以文本方式查看主题

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

--  作者:lal021962
--  发布时间:2020/3/22 21:13:00
--  代码错误

在窗口中填写如下代码,提醒(\'#\' 附近有语法错误。),请问是哪里出了问题:

Dim jb As New SQLJoinTableBuilder("查询表1","资金账号")
Dim k As String = Tables("资金流向明细表").current("账号名称")
Dim g As Date = Tables("资金流向明细表").current("开始时间")
Dim f As Date = Tables("资金流向明细表").current("结束时间")
jb.C
jb.AddTable("资金账号","账号编号","资金支出单","账号编号")
jb.AddCols("付款单编号","账号名称", "支出金额","付款日期")
jb.filter = "账号名称 =\'" & k & "\'" & "and 付款日期>#" & g & "#"
Tables("资金流向明细表_Table1").datasource =jb.builddatasource


--  作者:有点蓝
--  发布时间:2020/3/22 22:45:00
--  
如果是SqlServer数据库,看看http://www.foxtable.com/webhelp/topics/2343.htm
--  作者:lal021962
--  发布时间:2020/3/22 23:32:00
--  
问题是我完全按照这个代码编写方式去做的啊,还有有问题
--  作者:程兴刚
--  发布时间:2020/3/22 23:49:00
--  
if Tables("资金流向明细表").current isnot nothing
Dim jb As New SQLJoinTableBuilder("查询表1","资金账号")
Dim k As String = Tables("资金流向明细表").current("账号名称")
Dim g As Date = Tables("资金流向明细表").current("开始时间")
Dim f As Date = Tables("资金流向明细表").current("结束时间")
jb.C
jb.AddTable("资金账号","账号编号","资金支出单","账号编号")
jb.AddCols("付款单编号","账号名称", "支出金额","付款日期")
jb.filter = "账号名称 =\'" & k & "\'" & "and 付款日期>#" & g & "#"
Tables("资金流向明细表_Table1").datasource =jb.builddatasource
else
MessageBox.Show("对不起,您没有在资金流向明细表选择行!")
end if

--  作者:lal021962
--  发布时间:2020/3/24 19:08:00
--  

还是不行,仍然报错


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200324191245.png
图片点击可在新窗口打开查看

--  作者:程兴刚
--  发布时间:2020/3/24 19:20:00
--  
jb.filter = "账号名称 = \'" & k & "\' and 付款日期>#" & g & "#"
--  作者:lal021962
--  发布时间:2020/3/24 19:24:00
--  
仍旧有同样提示
--  作者:程兴刚
--  发布时间:2020/3/24 19:32:00
--  
SQL好像三#换%,您试一下!
--  作者:lal021962
--  发布时间:2020/3/24 19:55:00
--  

搞清楚了,用‘号代替#