- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]再次请教复制行的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50968)
-- 发布时间：2014/5/16 6:13:00
-- [求助]再次请教复制行的问题
昨天甜老师帮我做了个复制行的代码，很好，但是我更希望能在表A输入重复行的时候，在表B就不复制重复行（即在表B中不自动加载重复行，即只加载表B中没有的行），请帮忙，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2014/5/16 6:36:00
--
Select Case e.DataCol.Name
Case "A","B","C","D"
If e.DataRow.IsNull("A") = False AndAlso e.DataRow.IsNull("B") = False AndAlso e.DataRow.IsNull("C") = False AndAlso e.DataRow.IsNull("D") = False
Dim f As New Filler
f.SourceTable = DataTables("表A")
f.DataTable = DataTables("表B")
f.Filter = "[_Identify]=" & e.DataRow("_Identify")
f.ExcludeExistValue = True
f.Fill() \'填充数据
End If
End Select
-- 发布时间：2014/5/16 6:49:00
--
非常感谢Y2287958！正是我想要的.