共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：列项目
1楼
易简 发表于：2025/1/17 10:54:00老师上述代码用起来不是很稳定，能否帮忙优化一下。数据库是Access
此主题相关图片如下：1737081769427.jpg
此主题相关图片如下：1737081769427.jpg2楼
有点蓝 发表于：2025/1/17 11:08:00Dim 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()
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("渠道”)
……
共2 条记录, 每页显示 10 条, 页签:
[1]