Esto esta en el form_open()
cargar_combo("SELECT * FROM sis_carg1_condicion ORDER by sis_carg1_cond_id DESC", ComboBox1, "sis_carg1_cond_des")
cargar_combo("SELECT * FROM sis_nacionalidad ORDER by sis_nac_des DESC", ComboBox2, "sis_nac_des")
cargar_combo("SELECT * FROM sis_nacionalidad ORDER by sis_nac_des DESC", ComboBox2, "sis_nac_des")
y esta es mi funcion
FUNCTION cargar_combo(query AS String, combo AS ComboBox, texto AS String)
DIM total, i AS Integer
rs = cn.Exec(query)
rs.MoveFirst
'total = rs.Count
combo.Tag = NEW Variant[]
combo.Add("Seleccione")
combo.Tag.Add("X")
i = 1
WHILE i <= total
combo.Add(rs!texto)
combo.Tag.Add(rs!sis_carg1_cond_id)
combo.Refresh()
rs.MoveNext
'DEC (total)
WEND
END
DIM total, i AS Integer
rs = cn.Exec(query)
rs.MoveFirst
'total = rs.Count
combo.Tag = NEW Variant[]
combo.Add("Seleccione")
combo.Tag.Add("X")
i = 1
WHILE i <= total
combo.Add(rs!texto)
combo.Tag.Add(rs!sis_carg1_cond_id)
combo.Refresh()
rs.MoveNext
'DEC (total)
WEND
END
lo que necesito hacer es como hago para desirle a la funcion que quiero mostrar en la primera llamada de la funcion el campo sis_carg1_cond_des y en la segunda llamada de la funcion mandar a mostrar el valor sis_nac_des pero en realidad no se como hacer pasar el nombre del campo de la tabla para que no me de error..... espero me entiendan.... de ante mano Gracias...!
