 加好友  发短信
等级：超级版主
帖子：112053
积分：570449
威望：0
精华：9
注册：2015/6/24 9:21:00
|
 Post By：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("渠道”) ……
|
|
