以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]按下按钮出现下面错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97377)

--  作者:jick0526
--  发布时间:2017/3/10 19:02:00
--  [求助]按下按钮出现下面错误
狐爸,我按下按钮出现下面错误,这什么意思

.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2016.7.29.1
错误所在事件:窗口,产品主窗口,发送,Click
详细错误信息:
表达式包含未定义的函数调用 收款()。
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("A")
f.DataTable = DataTables("B")
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() \'填充数据    
End If

这代码有错吗?

[此贴子已经被作者于2017/3/10 19:05:12编辑过]

--  作者:有点蓝
--  发布时间:2017/3/10 20:38:00
--  
msgbox(str) 弹出筛选条件看看
--  作者:jick0526
--  发布时间:2017/3/10 20:51:00
--  
msgbox(str) 弹出筛选条件看看
老师,msgbox(str) 弹出筛选条件看看,这句话什么意思,在哪里弹出?能说的具体点吗,不好意思,谢谢!

--  作者:有点蓝
--  发布时间:2017/3/10 21:26: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("A")
    f.DataTable = DataTables("B")
    Dim str As String = "1=2"
    For Each dc As DataCol In f.SourceTable.DataCols
        str &= " or " & dc.name & " is not null"
    Next
    msgbox(str) \'弹出筛选条件看看
    f.filter = str
    f.Distinct = False
    f.Fill() \'填充数据
End If

--  作者:jick0526
--  发布时间:2017/3/10 21:34:00
--  
老师,出现这样的提示,第一列is not null or第二列is not null or
--  作者:有点蓝
--  发布时间:2017/3/10 22:06:00
--  
这个提示不完整,截图看看