你的列表项目是横表存储的？蛋疼的用法！
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "进销存数据库"
cmd.CommandText = "SELECT 出库用途,结算方式,piao据名称,摘要,项目分类] From {列表项目}"
dt = cmd.ExecuteReader
Tables("出库.出库明细").Cols("出库用途").Combolist = dt.GetComboListString("出库用途")
Tables("应收款").Cols("摘要").Combolist = dt.GetComboListString("摘要","[项目分类] = '出库'")
……
Dim spmc As New SQLCommand
Dim sp As DataTable
spmc.ConnectionName = "进销存数据库"
spmc.CommandText = "SELECT DISTINCT 商品名称 From 商品信息 where [项目分类] = '净水剂'" '外部数据源
sp = spmc.ExecuteReader
Tables("应付款").Cols("商品名称").Combolist = sp.GetComboListString("商品名称")
[此贴子已经被作者于2017/9/4 21:02:56编辑过]
加好友 
发短信
Post By：2017/9/4 20:37:00 [只看该作者]
此主题相关图片如下：无标题.png