Dim a As Integer
Dim part, juliano, nano As String
'crear dataview para filtrar
Me.MySqlDataAdapter1.Fill(DataSet31)
Dim nuevo_dataview As New DataView()
nuevo_dataview.Table = DataSet31.Tables("recepcionesc")
'establecer filtro
nuevo_dataview.RowFilter = "fecha= '" & Today & "'"
a = nuevo_dataview.Count + 1
If a > 9 Then
part = "P-" & juliano & nano & a
Else
part = "P-" & juliano & nano & "0" & a
End If
Es complicado explicarlo,pero en fin el resultado es un numero de produccion que depende de los articulos que tenga en la base de datos por eso necesito acceder a la tabla.Saludos y perdon por la explicaion
