以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97263)

--  作者：jick0526 --  发布时间：2017/3/8 21:23:00 --  [求助] 狐爸，请问下数据填充器，我如果想要能复制重复行，但不复制空白行，代码该怎么写，下面的代码能复制重复行，但空白行也复制进来了。谢谢！ Dim f As New Filler f.SourceTable = DataTables("A")  f.DataTable = DataTables("B")  f.Distinct = False f.Fill() \'填充数据

--  作者：有点色 --  发布时间：2017/3/8 21:29:00 --   Dim f As New Filler f.SourceTable = DataTables("A") f.DataTable = DataTables("B") f.ExcludeNullValue = True f.filter = "某列 is not null" f.Distinct = False f.Fill() \'填充数据

--  作者：jick0526 --  发布时间：2017/3/8 22:01:00 --   老师，这个是某列不要复制，我是想要只要是一整行都是空白的就不要复制，不是列，是行，比如添加的空白行。

--  作者：有点色 --  发布时间：2017/3/8 22:18:00 --   Dim f As New Filler f.SourceTable = DataTables("表B") f.DataTable = DataTables("表E") Dim str As String = "1=2" For Each dc As DataCol In f.SourceTable.DataCols     str &= " or " & dc.name & " is not null" Next f.filter = str f.Distinct = False f.Fill() \'填充数据

--  作者：jick0526 --  发布时间：2017/3/9 2:24:00 --   完美解决，老师辛苦了，谢谢老师！