If MainTable.Name = "商品表" Then
DataTables("商品表").DataRows.Clear()
For Each nm As String In DataTables("商品明细").GetValues("产品名称")
Dim dr As DataRow = DataTables("商品表").addnew( )
Dim dr2 As DataRow = DataTables("商品明细").find("产品名称='" & nm &"'")
dr("产品名称") = nm
dr("产品编号") = dr2("产品编号")
dr("规格型号") = dr2("规格型号")
dr("单位") = dr2("单位")
dr("商品_数量") = DataTables("商品明细").Compute("Sum(数量)","产品名称 = '" & nm & "'")
dr("商品_金额") = DataTables("商品明细").Compute("Sum(金额)","产品名称 = '" & nm & "'")
Next
End If
老师,我是以窗体开发为主,所以上面代码,不想在项目写,我把上面代码窗体打开事件,没有反映,应如何解决?谢谢