- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 记录移位 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138000)
-- 发布时间：2019/7/20 9:47:00
-- [求助] 记录移位
版主，刚买来这个版本，可不知道如何操作这些记录，可以帮忙一下吗？
当表A的第二例的内容是包含 “zz"字样 或者 第二例包含”HH"但第一例不包含”tt“，就把该记录全部移到表B中，批表A中这些记录删除掉。
附上实例 ，谢谢。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:记录移位.table |
-- 发布时间：2019/7/20 10:36:00
--
参考：http://www.foxtable.com/webhelp/topics/0400.htm、http://www.foxtable.com/webhelp/topics/1533.htm
Dim drs As List(Of DataRow) = DataTables("表A").Select("第二列 like \'%zz%\' or 第二列 like \'%HH%\' and 第一列 not like \'%tt%\'")
For Each dr As DataRow In drs
Dim dr2 As DataRow = DataTables("表B").AddNew()
For Each dc As DataCol In DataTables("表A").DataCols
dr2(dc.Name) = dr(dc.name)
Next
dr.Delete
Next