- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 列项目 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194821)
-- 发布时间：2025/1/17 10:54:00
-- 列项目
老师上述代码用起来不是很稳定，能否帮忙优化一下。数据库是Access
此主题相关图片如下：1737081769427.jpg
-- 发布时间：2025/1/17 11:08:00
--
Dim cmd As New SQLCommand
cmd.ConnectionName = "订单"
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 公司 as 客户,null as 供应商,null as 渠道,null as 送货方式,null as 单位,null as 收款方式,null as 费用类型,null as 订单名称 From {客户} union SELECT DISTINCT null as 客户,公司 as 供应商,null as 渠道,null as 送货方式,null as 单位,null as 收款方式,null as 费用类型,null as 订单名称 From {供应商} union SELECT DISTINCT null as 客户,null as 供应商,渠道,送货方式,单位,收款方式,费用类型,订单名称 From {列库}"
dt = cmd.ExecuteReader()
……
Tables("费用").Cols("客户名称"). Combolist = dt. GetComboListString("客户”)
Tables("订单").Cols("供应商"). Combolist = dt. GetComboListString("供应商”)
Tables("订单").Cols("渠道”). Combolist = dt. GetComboListString("渠道”)
……