主题：求移动复制按钮代码

老师：你好

表属性中将表A的DataColChanged事件是：

 

If e.DataCol.Name = "第四列" AndAlso e.DataRow("第四列") = True Then
     Dim dr As DataRow = DataTables("表B").AddNew
     For Each dc As DataCol In DataTables("表B").DataCols
         dr(dc.Name) = e.DataRow(dc.Name)
     Next
End If

 

在窗体中，把勾选表A第四列数据复制到了表B,如果在窗体中用按钮方式实现，即先勾选，再点击按钮，复制成功后，删除勾选的表A整行该怎么做？？

实例附后

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目14.rar

For Each adr As DataRow In DataTables("表A").Select("第四列 = true")
    Dim dr As DataRow = DataTables("表B").AddNew
    For Each dc As DataCol In DataTables("表B").DataCols
        dr(dc.Name) = adr(dc.Name)
    Next
Next
DataTables("表A").deletefor("第四列 = true")

datacolChanged的代码去掉

老大，谢了

大红袍老师:转移到表B,增加的是空行，没有记录，另帮着再增加一个弹窗，即，“请选择要复制转移的行”

Dim drs As List(Of DataRow) = DataTables("表A").Select("第四列 = true")

If drs.Count = 0 Then
    msgbox("请选择行")
Else
   
    For Each adr As DataRow In drs
        Dim dr As DataRow = DataTables("表B").AddNew
        For Each dc As DataCol In DataTables("表B").DataCols
            dr(dc.Name) = adr(dc.Name)
        Next
    Next
    DataTables("表A").deletefor("第四列 = true")
   
End If

 

大红袍老师，感谢了，以后少不了麻烦你，我在福州，给个地址快递大红袍茶一点聊表感激之心