| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 怎么复制行到例外一个表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9971) |
| -- 作者：zxjwyyqh -- 发布时间：2011/5/16 22:45:00 -- 怎么复制行到例外一个表 在表A中添加一列辅助的逻辑列 当把某一行的逻辑列改为true 则复制此行内容到表B 假定表A和表B结构一样 |
| -- 作者：mr725 -- 发布时间：2011/5/16 23:02:00 -- 看看这里 http://www.datasoft.com.cn/dispbbs.asp?boardid=2&id=9867&authorid=0&page=0&star=1 |
| -- 作者：狐狸爸爸 -- 发布时间：2011/5/17 7:38:00 -- 如果要从表A复制到表B，假定结构一样，设置表A的DataColChanged事件代码：
If 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 |