各位老师，

我在产品编码表中设计了一个产品选择的窗口，想用在各个相关的明细表中，如订单明细，入库明细，出库明细等，

填写时都会一次选择好几种产品实现自动填充。如下图是用在订单明细：

此主题相关图片如下：qq截图20120903160650.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

主要是要通用到不同的明细表中，请问确定按钮的代码应该如何写？

谢谢！

1、在全局代码中顶一个全局变量：

Public myTable As String

2、在所有的CellButtonClick事件代码的前面加上一行：

myTable = e.Table.Name

\'接原来的代码

3、将这行：

dr1 = Tables("CurrentTable").AddNew

改为：

dr1 = Tables(MyTable).AddNew