Buen día,
Tengo el sieguiente codigo en mi formulario
Código vb:
Ver originalFor 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 originalPublic 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!?
Gracias!!
