|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
有表[客户库]
客户号 客户名 客户地址
001 张三 张家庄
002 李四 李家庄
003 王五 王天间
有表[销售库]
客户号 日期 单据号 金额 ....
002 2014-1-5 00051 175000
003 2014-5-9 000021 320000
002 2014-5-7 000321 365000
001 2014-5-1 A002 1793000
现有一控件COMBOBOX,我想 不重复且排序 添加 销售库 中的客户号及相对应 客户库 的客户名 求SQL语句;
结果应是:
001 | 张三
002 | 李四
003 | 王五
sql = "select a.客户号 AS 客户号 ,a.客户名 as 客户名 FROM 客户库 as a right JOIN 销售库 as b ON a.客户号=b.客户号 order by b.客户号"
Set rst = cnn.Execute(sql)
KHComboBox.Clear
Do While Not rst.EOF
KHComboBox.AddItem IIf(IsNull(rst.Fields("客户号")), "", rst.Fields("客户号")) & "|" & IIf(IsNull(rst.Fields("客户名")), "", rst.Fields("客户名"))
rst.MoveNext
Loop
?该如何写,不知如何取相关客户号与客户名 字段
系统提示SQL语句错误,
|
|