以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口中的table  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108572)
--  作者：积水成渊
--  发布时间：2017/10/25 11:25:00
--  [求助]窗口中的table
代码如下：
Dim t7 As Table = e.Form.Controls("Table7").Table

Dim SQLFilter As String = Nothing
Dim Result As DialogResult
Result = Win.FoxLib.LoadFilterDialog.ShowResult(SQLFilter, "", SYS.Login.UserName, "PSM_供应商取值查询")
If Result <> DialogResult.OK Then Return
t7.Fill("exec C_供应商单据查询  " & SQLFilter,"数据源",True)

报错的提示：select语句执行错误，请检查语法及其数据源设置，可以确定的是数据源没有错，然后跟踪到的代码如下
exec C_供应商单据查询  $开始时间 = \'2017-08-01\' And $结束时间 = \'2017-08-31\' And $单据类型 = \'配送单\' And $商品编码 = \'001627\'

正确的执行代码如下：
exec C_供应商单据查询  \'$开始时间 = \'\'2017-08-01\'\' And $结束时间 = \'\'2017-08-31\'\' And $单据类型 = \'\'配送单\'\' And $商品编码 = \'\'001627\'\'\'
该怎么修改代码
--  作者：积水成渊
--  发布时间：2017/10/25 11:52:00
--  
吃饭去了吗
--  作者：有点甜
--  发布时间：2017/10/25 12:26:00
--  

 

t7.Fill("exec C_供应商单据查询 \'" & SQLFilter.Replace("\'", "\'\'") & "\'", "数据源", True)
--  作者：积水成渊
--  发布时间：2017/10/25 13:32:00
--  
感谢