二表间光标对应,在主表
CurrentChanged设置
If e.Table.Current Is Nothing Then '如果Current为Nothing Return '则返回
End If
Dim wz1 As Integer
Dim dr1 As DataRow
dr1 = DataTables("资料扫描").Find("[身份证号] = '" & e.Table.Current("身份证号") & "'")
If dr1 IsNot Nothing Then
wz1 = Tables("资料扫描").FindRow(dr1)
If wz1 >= 0 Then
Tables("资料扫描").Position = wz1
End If
End If
现在的问题是"资料扫描"没加载,在后台,无法让光标相互对应,代码要怎么写?用sqlfind不行啊