Tengo el sieguiente codigo en mi formulario
Código vb:
Ver original
For Each f As DataRow In ds41.Tables(0).Rows DataGridView1.Rows.Add(f(0).ToString(), f(1).ToString(), _ f(2).ToString(), f(3).ToString(), f(4).ToString(), f(5).ToString(), f(6).ToString(), f(7).ToString(), _ f(8).ToString(), f(9).ToString, f(10).ToString, f(11).ToString, _ comentarioTIENDA(f(2).ToString()), comentarioCP(f(4).ToString(), f(2).ToString()),_ comentarioITEM(f(6).ToString(), f(2).ToString())) ProgressBar1.Value = ProgressBar1.Value + 1 Application.DoEvents() Next
y tengo estas funciones en mi modulo
Código vb:
Ver original
Public Function comentarioTIENDA(ByVal TIENDA As String) As String Dim tbl2 As DataTable tbl2 = Tabla2("SELECT descome FROM COM" & validador.cbbperiod.Text & " where CODCP=" & TIENDA) Return tbl2.Rows(0)("descome").ToString() = "SIN COMENTARIOS" End Function Public Function comentarioCP(ByVal CP As String, ByVal tienda As String) As String Dim tbl2 As DataTable tbl2 = Tabla2("SELECT descome FROM COM" & validador.cbbperiod.Text & " where codloj=" & CP & " and codloj=" & tienda) Return tbl2.Rows(0)("descome").ToString() = "SIN COMENTARIOS" End Function Public Function comentarioITEM(ByVal ITEM As String, ByVal tienda As String) As String Dim tbl2 As DataTable tbl2 = Tabla2("SELECT descome FROM COM" & validador.cbbperiod.Text & " where codITE=" & ITEM & " and codloj=" & tienda) If tbl2.Rows.Count = 0 Then Console.Write("Sin Comentarios") Else Return tbl2.Rows(0)("descome").ToString End If End Function
Se supone que en en mi codigo llamo a las funciones para llenar unas celdas en mi datagridview pero no entiendo porque solo me toma la ultima funcion "comentarioItem" y no recorre las funciones "ComentarioTienda" y "comentariocp"
Alguien me podra ayudar!?
![lloron](http://static.forosdelweb.com/fdwtheme/images/smilies/chillando.png)
Gracias!!
![Beso](http://static.forosdelweb.com/fdwtheme/images/smilies/beso.png)