主题：订单导入

此主题相关图片如下：1.png

 

当在这个窗体中没有选择任何商品时，关闭窗体后弹出下图错误

此主题相关图片如下：2.png

 

我希望在导入界面没有选择任何明细的时候 提示 ("没有选择任何商品,请重新选择","提醒")，然后再选择导入

一键导入代码

For Each o As Row In Tables("客户订货明细表").GetCheckedRows

                                         '没有勾选任何一行

 

        MessageBox.Show("没有选择任何商品,请重新选择","提醒")

 

 Next

 

    For Each r As Row In Tables("客户订货明细表").GetCheckedRows   '订货明细表

        Dim r1 As Row = Tables("新增客户发货单_Table1").AddNew   '发货明细表

        Dim r2 As Row = Tables("客户发货总表").Current   '发货主表

        r1("客户名称") = r2("客户名称")

        r1("发货单号") = r2("发货单号")

        r1("日期") = r2("日期")

        r1("地址") = r2("地址")

        r1("电话") = r2("电话")

        r1("一级类别") = r("一级类别")

        r1("二级类别") = r("二级类别")

        r1("商品编号") = r("商品编号")

        r1("商品名称") = r("商品名称")

        r1("规格") = r("规格")

        r1("型号") = r("型号")

        r1("单位") = r("单位")

        r1("单价") = r("单价")

        r1("数量") = r("数量")

        r1("欠货数量")=r("欠货数量")

        r1("发货数量")=r("欠货数量")

        r1("订货单号") = r("订货单号")

        Dim dr As DataRow=DataTables("客户订货明细表").find("订货单号='"& r1("订货单号") & "' And 商品编号='" & r1("商品编号")& "'")

        If dr IsNot Nothing Then

            dr("已发数量")=r("已发数量")+r1("发货数量")

        End If

    Next

e.Form.close

 

黄色部分是原来的代码，我想在前面代码判断之后，在执行这段黄色部分代码

 

新增发货单的 导入代码

Dim dhs()As String={"日期","客户名称","发货单号","地址","电话"}

For Each dh As String In dhs

    If Tables("客户发货总表").Current.Isnull(dh)=True Then

        messagebox.show("请将红色必填字段填写完整!","提醒")

        Return

    End If

Next

Forms("客户订货单导入").open

Dim r As Row=Tables("新增客户发货单_Table1").Current

For Each dh As String In dhs

    r(dh)=Tables("客户发货总表").Current(dh)

Next

 

老师，这个是成功了，可是在客户订单窗体没有选择任何商品，点了关闭窗口，这个时候就会返回到客户发货窗体，弹出第二张图的提示，这个错误太不友好了，如何可以屏蔽掉了。