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:57:39编辑过]