主题：TABLE绑定控件问题

CurrentChanged  副本表事件

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

  自己修改下表名和列名.