以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  代码错误  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=172423)

--  作者:jick0526
--  发布时间:2021/10/12 14:12:00
--  代码错误
老师,请问下,为什么下面这段代码只能填充第一行的数据
Dim Result As DialogResult
Result = MessageBox.Show("是否复制到表A?", "提示", MessageBoxButtons.YesNo,  MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim f As New Filler
f.SourceTable = DataTables("表B") 
f.DataTable = DataTables("表A") 
f.Filter = "A列 is not null and 付款 =\'支付\'"
f.Distinct = False
f.Fill() \'填充数据
End If

--  作者:有点蓝
--  发布时间:2021/10/12 14:22:00
--  
说明表B只有一行数据符合条件