If e.Table.Current Is Nothing Then '如果Current为Nothing Return '则返回 End If Dim
wz As Integer Dim dr As DataRow dr = DataTables("客户").Find("[客户ID] = '" & e.Table.Current("客户ID") & "'") If dr IsNot Nothing Then wz = Tables("客户").FindRow(dr) If wz >= 0 Then Tables("客户").Position = wz End If End If