导入代码：
For Each r As Row In Tables("商品明细表").GetCheckedRows
If Forms("新增客户订砖").opened
Dim r1 As Row = Tables("客户订砖明细表").AddNew
Dim r2 As Row = Tables("客户订砖总表").Current
'客户订砖
r1("日期") =
r2("日期")
r1("客户名称") =
r2("客户名称")
r1("订砖单号") = r2("订砖单号")
r1("地址") = r2("地址")
r1("电话") = r2("电话")
r1("付款方式") = r2("付款方式")
r1("商品编号") = r("商品编号")
r1("商品类别") = r("商品类别")
r1("商品名称") = r("商品名称")
r1("规格型号") = r("规格型号")
r1("单位") = r("单位")
r1("单价") = r("单价")
End If
'Dim rls1 As Row = Tables("零售销砖明细表").AddNew
'Dim rls2 As Row = Tables("零售销砖总表").Current
'
'Dim rsx1 As Row = Tables("赊销销砖明细表").AddNew
'Dim rsx2 As Row = Tables("赊销销砖总表").Current
''客户订砖
'r1("日期") = r2("日期")
'r1("客户名称") = r2("客户名称")
'r1("订砖单号") = r2("订砖单号")
'r1("地址") = r2("地址")
'r1("电话") = r2("电话")
'r1("付款方式") = r2("付款方式")
'r1("商品编号") = r("商品编号")
'r1("商品类别") = r("商品类别")
'r1("商品名称") = r("商品名称")
'r1("规格型号") = r("规格型号")
'r1("单位") = r("单位")
'r1("单价") = r("单价")
'
''零售销砖
'rls1("日期") = rls2("日期")
'rls1("客户名称") = rls2("客户名称")
'rls1("地址") = rls2("地址")
'rls1("电话") = rls2("电话")
'rls1("零售单号") = rls2("零售单号")
'rls1("付款方式") = rls2("付款方式")
'rls1("商品编号") = r("商品编号")
'rls1("商品类别") = r("商品类别")
'rls1("商品名称") = r("商品名称")
'rls1("规格型号") = r("规格型号")
'rls1("单位") = r("单位")
'rls1("单价") = r("单价")
'
''赊销销砖
'rsx1("日期") = rsx2("日期")
'rsx1("客户名称") = rsx2("客户名称")
'rsx1("地址") = rsx2("地址")
'rsx1("电话") = rsx2("电话")
'rsx1("赊销单号") = rsx2("赊销单号")
'rsx1("商品编号") = r("商品编号")
'rsx1("商品类别") = r("商品类别")
'rsx1("商品名称") = r("商品名称")
'rsx1("规格型号") = r("规格型号")
'rsx1("单位") = r("单位")
'rsx1("单价") = r("单价")
Next
e.Form.close
导入砖商品代码，这个窗体我是三个录单界面都调用这个窗体，原来在商业版本下都没有没问题，商业版转换为开发版本后，在录单界面，选择了这个商品后，然后点“导入”按钮，程序就闪退了，不知道怎么回事，还有我这个要在在这个代码里加入判断，当打开不同的录单界面，调用不同的代码，这个不知道怎么定义窗体判断调用，请教了
加好友 
发短信
Post By：2018/4/3 0:31:00 [只看该作者]
此主题相关图片如下：111.png