按钮的代码如下,打不开窗口,只能切换到主表:Dim Cols1() As String = {"订单编号","客商编码","客商名称","产品编码","产品名称","产品型号","产品规格","数量","单价","金额"}
Dim Cols2() As String = {"订单编号","客商编码","客商名称","产品编码","产品名称","产品型号","产品规格","数量","单价","金额"}
For Each dr1 As DataRow In DataTables("订单明细表").Select("[选择] = true")
Dim dr2 As DataRow = DataTables("收款明细表").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
MainTable = Tables("收款明细表")
Forms("收据明细表窗口").Show()