主题：[求助]代码

  e.Form.Controls("ComboBox1").ComboList = DataTables("通信").GetComboListString("企业信息_客户供应商", "企业信息_群组分类 = '供应商'")

 

恳请老师，在上面代码上添加一个外部数据表的连接  谢谢了

 已经跟你说了，添加一个数据源，然后添加一个外部数据表，代码不用改。

 

 http://www.foxtable.com/help/topics/1420.htm

 

'从外部数据表列表项目表提取出库用途列的内容, 作为出库明细表领用部门的列列表项目
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT 出库用途 From {列表项目}"
dt = cmd.ExecuteReader
Tables("出库.出库明细").Cols("出库用途").Combolist = dt.GetComboListString("出库用途")

 

 

老师，我要用上面类型的代码在（ComboBox1）的组合框中做候选值

 1、你是否有添加数据源？你就不能按照帮助文档添加一个数据源？

 

 2、如果添加了数据源，你是否有添加外部数据表？

 

 你就不能看一下帮助？要别人重复n次？

我的意思是直接利用外部数据表进行连接获取数据

 

都必须需要：1、添加外部数据源；2、添加外部数据表 两个步骤，你做好这两步，再谈其它

怎样我的项目里都增加了一个表

 

添加外部表，参考 http://www.foxtable.com/help/topics/1812.htm

 

我的意思是说在项目里又增加了一个表，初衷是直接引用外部数据不想在项目中增加表

 

那你就添加一个数据源，然后用下面的代码

 

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "数据源名"
cmd.CommandText = "SELECT DISTINCT 出库用途 From {列表项目}"
dt = cmd.ExecuteReader
e.Form.Controls("ComboBox1").ComboList = dt.GetComboListString("出库用途")