各位老师,
我在产品编码表中设计了一个产品选择的窗口,想用在各个相关的明细表中,如订单明细,入库明细,出库明细等,
填写时都会一次选择好几种产品实现自动填充。如下图是用在订单明细:
此主题相关图片如下:qq截图20120903160650.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2012-9/20129316123822820.jpg)
确定按钮的代码如下:
Dim drs As List(Of DataRow)
drs = DataTables(e.form.Name & "_Table1").Select("[选择] = True ")
For Each dr As DataRow In drs
Dim dr1 As Row
dr1 = Tables("CurrentTable").AddNew
dr1("产品编码") = dr("产品编码")
dr1("名称") = dr("名称")
dr1("规格") = dr("规格")
Next
e.Form.close()
运行时老时提示出错,如下图:
此主题相关图片如下:qq截图20120903161549.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2012-9/20129316162942147.jpg)
主要是要通用到不同的明细表中,请问确定按钮的代码应该如何写?
谢谢!