谢谢
Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click
Dim rngVis As String
Dim VisCell As String
Dim barcode As String = Nothing
barcode = InputBox("")
barcode = InputBox("Naskenujte čárový kód ||||||||||||||||||||||||||||||||||||")
If Len(Trim(barcode)) = 0 Then Exit Sub 'Pressed cancel
Dim table As DataTable = SdfDataSet.Tables("vyhl")
Me.Refresh()
'Vytvoreni dotazu
Dim expression As String
expression = ("[zak] = '" & barcode & "'")
Dim foundRows() As DataRow
'vykonani dotazu
foundRows = table.Select(expression)
MsgBox("")
End Sub