主题：[求助]

对于表A有一列为“编号”，现在想要在窗口中选中表Ａ编号列的其中一项时，然后点击Button，效果是：让表Ａ根据所选择的编号重新加载

 根据当前行的编号加载表A的数据？

 Dim r As Row = Tables("表A").Current
DataTables("表A").LoadFilter = "编号 = '" & r("编号") & "'"
DataTables("表A").Load

还不是，只有当选中编号列的某一项时才根据编号重新加载表Ａ，若是选择的其他列则不加载

 不理解你4楼的意思，某一项又是什么意思，看3楼代码。

我的意思是只有光标在编号那一列时才进行重新加载，若是在别的列则不加载

If Tables("表A").Cols(Tables("表A").ColSel).Name = "编号" Then
    Dim r As Row = Tables("表A").Current
    DataTables("表A").LoadFilter = "编号 = '" & r("编号") & "'"
    DataTables("表A").Load
End If

谢谢甜姐