专家坐堂-后台数据加载没有显示数据Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=124650)

--  作者：ZJZK2018
--  发布时间：2018/9/11 13:10:00
--  后台数据加载没有显示数据
老师：
下面代码后台数据加载没有显示数据，错在哪里？

Dim tb1 As Table = Tables(e.Form.Name & "_table2")
Dim str As String = DataTables("往来款项").SQLGetComboListString("系统编号","收款提醒 < = #" & Date.Today & "# And 付款_金额 Is Not Null And 款项余额 < 0")
tb1.DataTable.LoadFilter = ""
tb1.DataTable.LoadFilter = "系统编号 In (\'" & str.Replace("|","\',\'") & "\')"
tb1.DataTable.Load

--  作者：ZJZK2018
--  发布时间：2018/9/11 13:15:00
--

因为我用的是SQL数据库，#改为\'，搞糊了
Dim tb1 As Table = Tables(e.Form.Name & "_table2")
Dim str As String = DataTables("往来款项").SQLGetComboListString("系统编号","收款提醒 < = \'" & Date.Today & "\' And 付款_金额 Is Not Null And 款项余额 < 0")
tb1.DataTable.LoadFilter = ""
tb1.DataTable.LoadFilter = "系统编号 In (\'" & str.Replace("|","\',\'") & "\')"
tb1.DataTable.Load

--  作者：有点甜
--  发布时间：2018/9/11 14:41:00
--
如果还有问题，再继续提问。