主题：[求助]多行复选

参考：

 

http://www.foxtable.com/help/topics/1776.htm

 

获得选中的行，要复制到其他表，不是一件很简单的事情吗？ 
 
For Each r As Row In Tables("现在的表").GetCheckedRows
     Dim dr as Datarow = DataTables("另一个表")
     For each  c as Col in Tables("现在的表")
         if DataTables("另一个表").DataCols.Contains(c.Name)
             dr(c.name) = c.name
         End if
     Next
Next
 
如果两个表结构100%相同，代码更加简单：
 
For Each r As Row In Tables("现在的表").GetCheckedRows
     Dim dr as Datarow = DataTables("另一个表")
     For each c as Col in Tables("现在的表")
           dr(c.name) = c.name
      Next
Next