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
老师，我是以窗体开发为主，所以上面代码，不想在项目写，我把上面代码窗体打开事件，没有反映，应如何解决？谢谢
加好友 
发短信
Post By：2020/2/20 16:13:00 [只看该作者]
