主题：版本转换后不能用了

导入代码：

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

导入砖商品代码，这个窗体我是三个录单界面都调用这个窗体，原来在商业版本下都没有没问题，商业版转换为开发版本后，在录单界面，选择了这个商品后，然后点“导入”按钮，程序就闪退了，不知道怎么回事，还有我这个要在在这个代码里加入判断，当打开不同的录单界面，调用不同的代码，这个不知道怎么定义窗体判断调用，请教了