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()

端口渗透表