Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口中的table


  共有2121人关注过本帖树形打印复制链接

主题:[求助]窗口中的table

帅哥哟,离线,有人找我吗?
积水成渊
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:348 积分:2805 威望:0 精华:0 注册:2016/8/24 10:39:00
[求助]窗口中的table  发帖心情 Post By:2017/10/25 11:25:00 [只看该作者]

代码如下:
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'''
该怎么修改代码


 回到顶部
帅哥哟,离线,有人找我吗?
积水成渊
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:348 积分:2805 威望:0 精华:0 注册:2016/8/24 10:39:00
  发帖心情 Post By:2017/10/25 11:52:00 [只看该作者]

吃饭去了吗

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/25 12:26:00 [只看该作者]

 

t7.Fill("exec C_供应商单据查询 '" & SQLFilter.Replace("'", "''") & "'", "数据源", True)


 回到顶部
帅哥哟,离线,有人找我吗?
积水成渊
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:348 积分:2805 威望:0 精华:0 注册:2016/8/24 10:39:00
  发帖心情 Post By:2017/10/25 13:32:00 [只看该作者]

感谢 

 回到顶部