主题：不同表之间联动的技巧问题求助？

dr = DataTables("客户信息").Find("[客户姓名] = '" & e.Table.Current("客户姓名") & "'")

wz = Tables("客户信息").FindRow(dr)

    If wz >= 0 Then

        Tables("客户信息").Position = wz

    End If

dr = DataTables("信息备注表").Find("[客户姓名] = '" & e.Table.Current("客户姓名") & "'")

If dr IsNot Nothing Then

    wz = Tables("信息备注表").FindRow(dr)

    If wz >= 0 Then

        Tables("信息备注表").Position = wz

    End If

End If

第三点，是无法做到的。

 

如果做筛选，去 AfterFilter 事件写代码

 

Tables("信息备注表").Filter = e.Table.Filter

 

如果做排序，去 AfterSort 事件写代码

 

Tables("信息备注表").Sort = e.Table.Sort

不懂老师的意思，代码只是少了一句啊！

找错表名了.表名要统一. 是要找另外一个表,并且设置另外一个表的焦点同步

情况是这样的！
此主题相关图片如下：qq截图20150511174956.jpg

焦点同步是没问题的！问题是两个表的“编号”列是“字符型”时，给“客户信息表”表新增行时，添加编号时，右边的“信息备注表”也会增加，bug是“客户信息表”不能删除行，删除则系统崩溃。

Datacolchanged事件，代码改一下

 

Select Case e.DataCol.name
    Case "编号"
        Dim dr As DataRow
        If e.OldValue Is Nothing Then
            dr = DataTables("信息备注表").AddNew()
            dr("编号") = e.DataRow("编号")
            dr("客户姓名") = e.DataRow("客户姓名")
            dr("联系电话") = e.DataRow("联系电话")
        Else
            dr = DataTables("信息备注表").Find("编号 = " & e.OldValue & "")
            If dr Is Nothing Then
                dr = DataTables("信息备注表").AddNew()
                dr("编号") = e.DataRow("编号")
                dr("客户姓名") = e.DataRow("客户姓名")
                dr("联系电话") = e.DataRow("联系电话")
            Else
                dr("编号") = e.DataRow("编号")
            End If
        End If
    Case "客户姓名","联系电话"
        Dim dr As DataRow = DataTables("信息备注表").Find("编号 = " & e.DataRow("编号") & "")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select

出现bug,删除行时系统强制退出！
此主题相关图片如下：qq截图20150511193051.jpg

系统报错了！用你改过的代码也是这样的。

我测试没有问题。你重新打开项目试试