FindRow(DataRow)
DataRow: 指定一个数据行
返回指定的数据行在Table中的位置,如果没找到(例如Table处于筛选状态,而此数据行恰好不符合筛选条件),则返回-1。
例如
在订单表中,我们希望将光标定位到最后一次订购PD01产品的订单:
Dim
dr As DataRow
dr = DataTables("订单").Find("[产品] = 'PD01'", "日期 Desc")
If dr IsNot Nothing Then
Dim wz As Integer = Tables("订单").FindRow(dr)
If wz >= 0 Then
Tables("订单").Position = wz
End If
End If
上面的代码,首先利用DataTable的Find方法找出符合条件的DataRow,然后利用Table的FindRow方法找出这一DataRow在Table中的位置。
说得通俗点,就是先在仓库(DataTable)中查找,看看仓库是否有符合条件的DataRow,如果有,就到展厅(Table)中找出这个DataRow的位置。