การใช้คำสั่ง find ค้นหา Row ที่ต้องการใน DataTable

ก่อนจะ Find ก็ต้องตั้ง Primary Key The first example defines a single column as the primary key

Dim columns(1) As DataColumn
columns(0) = workTable.Columns("CustID")
workTable.PrimaryKey = columns

The following example defines two columns as a primary key.

Dim keyColumn(1) As DataColumn
keyColumn(0) = workTable.Columns("CustLName")
keyColumn(1) = workTable.Columns("CustFName")
workTable.PrimaryKey = keyColumn

Find กรณีใช้ 1 column เป็น Primary key

        Dim foundRow As DataRow
        Dim findValue As String
        findValue = "abc"
        foundRow = workTable.Rows.Find(findValue)
        If Not (foundRow Is Nothing) Then
            foundRow("workColumn") = xxx
        End If

Find กรณีใช้มากกว่า 1 column เป็น Primary key

        Dim foundRow As DataRow
        Dim findValues(1) As String
        findValues(0) = "abc1"
        findValues(1) = "abc2"
        foundRow = workTable.Rows.Find(findValues)
        If Not (foundRow Is Nothing) Then
            foundRow("workColumn") = xxx
        End If