以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  老师,这段代码能帮我改下吗?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98714)
--  作者：jick0526
--  发布时间：2017/4/5 17:03:00
--  老师,这段代码能帮我改下吗?
Dim Result As DialogResult
Result = MessageBox.Show("发送仓库", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim f As New Filler
f.SourceTable = DataTables("表A") 
f.DataTable = DataTables("表B") 
f.Distinct = False
f.Fill() \'填充数据
End If

老师，上面的代码是我按按钮时表A的数据会复制到表B,但是会连空行都一起复制,能不能帮我增加个代码,就是如果是空行,则不会复制,只会复制有数据的行,谢谢!
--  作者：有点蓝
--  发布时间：2017/4/5 17:13:00
--  
Dim Result As DialogResult
Result = MessageBox.Show("发送仓库", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim f As New Filler
    f.SourceTable = DataTables("表A")
    f.DataTable = DataTables("表B")
    f.Distinct = False
    f.ExcludeNullValue = True
    f.Fill() \'填充数据
End If
--  作者：jick0526
--  发布时间：2017/4/5 17:45:00
--  
老师,上面的代码我试了下还是会连空行都一起复制.
--  作者：有点色
--  发布时间：2017/4/5 18:23:00
--  
以下是引用jick0526在2017/4/5 17:45:00的发言：
老师,上面的代码我试了下还是会连空行都一起复制.

 

加上筛选吧，比如代码

 

f.Filter = "第一列 is not null and 第二列 is not null and 第三列 is not null"