做一个按钮,点击的时候保存LoadFilter的值即可。如
Dim nr As DataRow = DataTables("表B").AddNew
nr("第一列") = CurrentTable.DataTable.LoadFilter
nr("第二列") = CurrentTable.DataTable.Name
nr("第三列") = User.Name