经过测试web数据源执行
cmd.ExecuteReader(True) 报错 请问web数据源的还能用cmd.ExecuteReader(True)吗？ 不能使用该用什么方案替代呢
Dim cmd
As new
SQLCommand
cmd.ConnectionName = "数据源名称"
Dim ckd
As
DataTable
Dim ckmx
As
DataTable
cmd.CommandText = "S elect *
From {出库} Where [_Identify] Is null" '生成一个空出库表
ckd = cmd.ExecuteReader(True)
'记得将参数设置为True
Dim dr As
DataRow =
ckd.AddNew() '增加出库单
dr("出库日期")
= Date.today
dr("出库单编号") = "2020-0517-101"
cmd.CommandText = "S elect *
From {出库明细} Where [_Identify] Is null" '生成空出库明细表
ckmx = cmd.ExecuteReader(True)
'记得将参数设置为True
dr = ckmx.AddNew()
'增加一个出库明细
dr("出库单编号") = "2020-0517-101"
dr("商品代码")
= "HC00101"
dr("数量") =
50
dr = ckmx.AddNew()
'再增加一个出库明细
dr("出库单编号") = "2020-0517-101"
dr("商品代码")
= "HC00102"
dr("数量") =
100
ckd.Save()
ckmx.Save()
加好友 
发短信
Post By：2023/3/22 14:37:00 [只看该作者]
