Buenos días...
Tengo la siguiente función en VB.Net, la cual debe retornar la suma de los valores existentes en un campo en específico.
El campo, tiene la siguiente nomenclatura: "PAX 60 18:00 20:00". Es por esto que dentro se realizan cortes para obtener los valores decimales que estan junto a la palabra PAX y obtener su suma general.
El Error en la función, es que no logro arrojar la suma de total de estos valores.
Private Function zonaPaga(ppu As String, sentido As String, conn As Object) As Integer
Dim zp_ As New DataTable
Dim cont As Integer = 0
Dim suma As Integer = 0
Dim query_string As String = "SELECT * FROM Evasiones WHERE ppu='" + ppu + "' AND sentido_serv='" + sentido + "'"
Dim cmm As New OleDbCommand(query_string, conn)
Dim dr As New OleDbDataAdapter(cmm)
dr.Fill(zp_)
While zp_.Rows.Count > cont
Dim zp_str As String = Convert.ToString(zp_.Rows(cont)("zona_paga"))
Dim new_str As String = Mid(zp_str, 1, 6)
If zp_str <> "" And Mid(new_str, 1, 3) = "PAX" Then
Dim a As Object = Split(new_str, " ")
If Mid(a(1), 2, 1) = "," Then
suma += Convert.ToInt32(Mid(a(1), 1, 1))
Else
suma += Convert.ToInt32(a(1))
End If
End If
cont += 1
End While
Return suma
End Function
,
:If Mid(a(1), 2, 1) = "," Then
?