If Forms("客户板块").Opened Then '如果窗口已经打开
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("客户板块_Table1").FindRow(dr)
If wz >=0 Then
Tables("客户板块_Table1").Position = wz
End If
Dim wz1 As Integer = Tables("客户板块_Table2").FindRow(dr)
If wz1 >=0 Then
Tables("客户板块_Table2").Position = wz
End If
Dim wz11 As Integer = Tables("客户板块_Table3").FindRow(dr)
If wz11 >=0 Then
Tables("客户板块_Table3").Position = wz
End If
End If