主题：关于自动查找关联表相关行的问题

比如说在子表选定了某行，打开父表时，能够自动选定到父表的对应行，这样的代码是怎样的。我好像在哪儿见过，但现在就是找不到，请哪位指点以下

能提供比较具体一点的代码吗

这段代码设置上有些问题，当在父表点击有些行时会提示错误信息，这是什么原因

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

 

 

这段代码能不能改成这样的，并放到CurrentTableChanged事件里：

 

 

Dim wz As Integer
Dim dr As DataRow
dr = DataTables("客户").Find("[客户ID] = '" & CurrentTable.Current("客户ID") & "'")
If dr IsNot Nothing Then
    wz = Tables("客户").FindRow(dr)
    If wz >= 0 Then
        Tables("客户").Position = wz
    End If
End If

 

好像也不是太好