代码如下,替换掉原来按钮的代码
Dim sql As String = ""
Dim dr As DataRow = Tables("表A").Current.DataRow
Dim drs As List(Of DataRow) = DataTables("表A").Select("产品名称 = '" & dr("产品名称") & "'")
For Each dr In drs
Dim drlist As List(Of DataRow) = dr.GetChildRows("表B")
For Each dr1 As DataRow In drlist
If sql.Contains(dr1("项目类型")) = False Then
sql += " '' As " & dr1("项目类型") & ","
End If
Next
Next
Dim cmd As New SQLCommand
cmd.Cfont-family: Verdana;">cmd.CommandText = "Select top 2 '' As 产品名称, '' As 产品批次," & sql.Trim(",")
Tables(e.Form.Name & "_Table1").DataSource = cmd.ExecuteReader()
Tables(e.Form.Name & "_Table1").DataTable.DataRows.Clear
For Each dr In drs
Dim r As Row = Tables(e.Form.Name & "_Table1").AddNew
r("产品名称") = dr("产品名称")
r("产品批次") = dr("产品批次")
Dim drlist As List(Of DataRow) = dr.GetChildRows("表B")
For Each dr1 As DataRow In drlist
r(dr1("项目类型")) = dr1("项目内容")
Next
Next