Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
复制到Foxtable的SQL执行窗口,直接执行,看看能不能通过。
测试通过,如果在加上一个筛选的值,就不行了。
select ...... where 客户档案.客户编号 like '"& a &"%'"....
就不行了
贴出你的代码
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()
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