- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求移动复制按钮代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74848)
-- 发布时间：2015/9/21 9:25:00
-- 求移动复制按钮代码
老师：你好
表属性中将表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 |
-- 发布时间：2015/9/21 9:55:00
--
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")
-- 发布时间：2015/9/21 9:55:00
--
datacolChanged的代码去掉
-- 发布时间：2015/9/21 15:23:00
--
老大，谢了
-- 发布时间：2015/9/21 18:36:00
--
大红袍老师:转移到表B,增加的是空行，没有记录，另帮着再增加一个弹窗，即，“请选择要复制转移的行”
-- 发布时间：2015/9/21 18:51:00
--
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
-- 发布时间：2015/9/21 23:14:00
--
大红袍老师，感谢了，以后少不了麻烦你，我在福州，给个地址快递大红袍茶一点聊表感激之心