- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这句sql代码在 sql查询分析器 测试通过。但在foxtable中，符号应该如何处理 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8883)
-- 发布时间：2010/12/20 11:27:00
-- 这句sql代码在 sql查询分析器 测试通过。但在foxtable中，符号应该如何处理
select 客户档案.客户编号,客户档案.客户名称,\'铺市品项:\'+进货品项+\' 进货金额：\'+ replace(str(sum(合计金额)),\' \',\'\')+\'元，进货瓶数： \'+ replace(str(sum(合计数量)),\' \',\'\')+\'瓶\' as 备注 from 客户档案 inner join 出库 on 客户档案.客户编号 = 出库.客户编号 group by 客户档案.客户编号,客户档案.客户名称,进货品项
-- 发布时间：2010/12/20 11:45:00
--
复制到Foxtable的SQL执行窗口，直接执行，看看能不能通过。
-- 发布时间：2010/12/20 12:07:00
--
测试通过，如果在加上一个筛选的值，就不行了。
select ...... where 客户档案.客户编号 like \'"& a &"%\'"....
就不行了
-- 发布时间：2010/12/20 12:12:00
--
贴出你的代码
-- 发布时间：2010/12/20 12:40:00
--
Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
Dim dm As String
tr = e.Form.Controls("TreeView1")
nd = tr.SelectedNode
dm = nd.Name
dm = dm.Replace("\\","")
dm = dm.trim(" ")
Dim data As DataRow = DataTables("单位树").Find("标题id = \'"& dm &"\'")
Dim datastr As String
datastr = data("市场代码")
datastr = "DA-" & datastr
e.Form.StopRedraw()
DataTables("客户查询表").Fill("select 客户档案.客户编号,客户档案.客户名称,\'铺市品项:\'+进货品项+\' 进货金额:\'+ replace(str(sum(合计金额)),\' \',\'\')+\'元,进货瓶数: \'+ replace(str(sum(合计数量)),\' \',\'\')+\'瓶\' as 备注 from {客户档案} inner join {出库} on 客户档案.客户编号 = 出库.客户编号 where 客户档案.客户编号 like \'"& datastr & "%\'" group by 客户档案.客户编号,客户档案.客户名称,进货品项","销售系统",False)
e.Form.ResumeRedraw()
|
(则提示:  此主题相关图片如下：aa.jpg |
-- 发布时间：2010/12/20 12:41:00
--
-- 发布时间：2010/12/20 12:45:00
--
-- 发布时间：2010/12/20 14:36:00
--
DataTables("客户查询表").Fill("select 客户档案.客户编号,客户档案.客户名称,\'铺市品项:\'+进货品项+\' 进货金额:\'+ replace(str(sum(合计金额)),\' \',\'\')+\'元,进货瓶数: \'+ replace(str(sum(合计数量)),\' \',\'\')+\'瓶\' as 备注 from {客户档案} inner join {出库} on 客户档案.客户编号 = 出库.客户编号 where 客户档案.客户编号 like \'" & datastr & "%\' group by 客户档案.客户编号,客户档案.客户名称,进货品项", "销售系统", False)
请参考：
http://help.foxtable.com/topics/1284.htm