有一个“销售订单明细”是远程数据表,其中有一个“销售单号”为“a”的数据共有两行,现希望再另一张表中(提货明细)输入销售单号“a”后出现“格式二”,我现在只能实现“格式一” 附代码如下:
If e.DataCol.Name = "销售单号" Then
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow = e.DataRow
cmd.C
cmd.CommandText = "SELECT * From {销售订单明细} Where [销售单号] = '" & dr("销售单号") & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
For Each r As DataRow In dt.Datarows
Dim r1 As Row = Tables("提货明细").addnew
r1("提货机型")=r("提货机型")
r1("数量")=r("数量")
Next
Else
dr("提货机型") = Nothing
dr("数量") = Nothing
End If
End If
此主题相关图片如下:格式一.jpg
此主题相关图片如下:格式二.jpg