主题：怎么根据编号选中与另外一个表相同的编号的行啊

 写positionChanged事件，代码

Dim fdr As DataRow = DataTables("表A").Find("第二列 = '" & e.Table.Current("第一列") & "'")
If fdr IsNot Nothing Then
    e.Form.Controls("Label1").Text = fdr("第二列")
    e.Form.Controls("Label2").Text = fdr("第三列")
    e.Form.Controls("Label3").Text = fdr("第四列")
    e.Form.Controls("Label4").Text = fdr("第五列")
    e.Form.Controls("Label5").Text = fdr("第六列")
    e.Form.Controls("Label6").Text = fdr("第七列")
    e.Form.Controls("Label7").Text = fdr("第八列")
Else
    e.Form.Controls("Label1").Text = Nothing
    e.Form.Controls("Label2").Text = Nothing
    e.Form.Controls("Label3").Text = Nothing
    e.Form.Controls("Label4").Text = Nothing
    e.Form.Controls("Label5").Text = Nothing
    e.Form.Controls("Label6").Text = Nothing
    e.Form.Controls("Label7").Text = Nothing
End If

 人家例子都给你做出来了，例子可用，你自己不会改造，是自己的问题。

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

2楼用的是控件绑定表，3楼的直接给控件赋值。