Предположим, у меня есть набор данных DsStu, содержащий таблицу Student с столбцами [Rollno, Name, Branch].
Case 1 Я хочу Имя студента, чейRollno - 15 .
Dim answer As String = ""
Dim SerchRows() As Data.DataRow
SerchRows = DsStu.Tables(0).Select("Rollno = '15'")
answer = ""
For k As Integer = 0 To SerchRows.Length - 1
If answer = "" then
answer = SerchRows(k).Item("Name")
Else
answer = answer & Vbnewline & SerchRows(k).Item("Name")
End If
Next
MsgBox(" " & answer)
Случай 2 Я хочу Имя всех учеников, чей Rollno больше 15, а Branch - Electric.
Dim answer As String = ""
Dim SerchRows() As Data.DataRow
SerchRows = DsStu.Tables(0).Select("Rollno >= '15' And Branch = 'Electrical'")
answer = ""
For k As Integer = 0 To SerchRows.Length - 1
If answer = "" then
answer = SerchRows(k).Item("Name")
Else
answer = answer & Vbnewline & SerchRows(k).Item("Name")
End If
Next
MsgBox(" " & answer)