Hola,
Primeramente queria realizarte algunas observaciones.
- Cuado defines la funcion "llena_combo", estas usando todos parametros por referencia, ehh yo lo evitaria si es que son string y ademas veo que cuando los usas son solo cadenas estaticas, prueba usando ByVal.
Por ahi en el combo no estaria mal el ByRef, aunque como es un objeto si usas por valor tambien te lo tomara, recuerda que los objetos simpre se referencian por sus punteros, no se realizan copiar cuando se pasan por parametro a una funcion, bueno al menos asi es en C#.
- Otra aclaracion porque realizas al final de la funcion "llena_combo" un return del combo, si este lo estas pasando por referencia?
la funcion deberia ser del tipo void, o sea sin retorno, ya que al salir de la funcion, el combo fue modificado
Con respecto al error puedo mencionarte que me da la sensacion que le problema esta en la forma en que estas cargando el DataSet.
O sea no necesitas realizar dos Fill() cuando la consulta es una sola.
Lo que estas haciando es creando dos tablas con los nombres de los campos que le pasas como parametro.
Pero deberias crear uno solo con el nombre de la tabla.
Y ademas no deberias pasarle secciones de sql por parametro con especificar tres parametros de la consutla alcanzaria, o sea la tabla y sus dos columnas a vincular con el combo, eso es todo.
Por ahi tu metodos podria quedar de esta forma:
| Public Function llena_combo(ByRef combo As ComboBox, ByVal tabla As String, ByVal primercampo As String, ByVal segundocampo As String) As ComboBox |
| |
| Dim cad As New Conexion |
| Dim ds As New DataSet() |
| Dim reader As SqlDataAdapter |
| Dim my_strsql As String |
| |
| cad.abrir() |
| |
| combo.Items.Clear() |
| |
| my_strsql = string.Format("SELECT {0}, {1} FROM {2}", primercampo ,segundocampo, tabla) |
| reader = New SqlDataAdapter(my_strsql, cad.getCon) |
| reader.Fill(ds, tabla) |
| |
| combo.DataSource = ds.Tables(0) |
| combo.DisplayMember = primercampo |
| combo.ValueMember = segundocampo |
| |
| cad.cerrar() |
| |
| End Function |
Para realizar la llamada simplemente lo harias de esta forma:
| estado.llena_combo(estados(i), "estados_est", "pk_estado_est", "nom_estado_est" ) |
Deje fuera el parametro de filtros para hacer mas simple el ejemplo, pero es facilmente realizable, solo deberias agregar un parametro mas por valor, que sea alguna lista, que tenga campo-valor, podria ser un dictionary, y usarlo para armar el where dinamico.
Otra cosa que no entendi es porque agregas el combo a una coleccion de nombre "estados", si despues tambien la agregas a un panel, o sea en la linea: Me.panel1.Controls.Add(obj4).
Recuerda que puedes buscar entre los controles que contiene, usando la propeidad "Controls" del objeto panel1.
Puedes hacer cosas como estas:
//para buscar por tipo
foreach(Control control in panel1.Controls)
{
TextBox textBox = control as TextBox;
if(textBox != null)
{
//do whatever...
}
}
o como estas:
//para buscar por nombre
foreach (TextBox mp_control in panel1.Controls)
{
//If you want to set a text in the textbox....
if mp_control.Name == "txtUserName"
{
mp_control.Text = "Put your name here...";
// set the focus in the control...
mp_control.Focus();
//....whatever....
}
}
bueno espero te sea util la info.
Saludos
Leandro Tuttini
