- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]引用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106220)
-- 发布时间：2017/9/4 20:37:00
-- [求助]引用
老师，下面的代码能合并吗？
-- 发布时间：2017/9/4 21:02:00
--
你的列表项目是横表存储的？蛋疼的用法！
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "进销存数据库"
cmd.CommandText = "SELECT 出库用途,结算方式,票据名称,摘要,项目分类] 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编辑过]
-- 发布时间：2017/9/4 21:12:00
--
老师，有更好的存储方式吗？
-- 发布时间：2017/9/4 21:20:00
--
能用就好。
此主题相关图片如下：无标题.png
-- 发布时间：2017/9/4 21:48:00
--
老师，是这样的吗
-- 发布时间：2017/9/4 21:55:00
--
没看懂你的问题。原来的用法请参考2楼