主题：[求助]表控件已通过代码绑定表 但表控件选定行后 ，所绑定表的当前行未同步改变？为何？

代码：

Dim A As String=(CurrentTable.DataTable.name )
   If A="施工升降机监检" Then
      Tables("报告修改的查询_Table1").DataSource = DataTables("施工升降机监检")  '动态绑定表控件
   End If
   If A="塔式起重机监检" Then
      Tables("报告修改的查询_Table1").Fill("Select [_Identify],[报告编号],[使用单位],[施工单位] From {塔式起重机监检}",True)'动态绑定表控件
   End If

截图怎么上传？呵呵

传不了图 

就是表控件已选中第2行  但绑定的表的当前行任然是第一行

好的  我试试  再次感谢

求代码  谢谢