主题：狐爸,我要崩溃了,你进来看看吧,2段代码的执行顺序问题

=============下面2段代码是在我导入数据窗口里的

Dim r1 As Row = Tables("待出库产品选择_客户订单主表").Current
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText="select VendorCode From {客户资料主表} Where 简称 = '" & r1("客户名称") & "'"
Dim dm As String = cmd.ExecuteScalar
Dim Result As DialogResult
Result = MessageBox.Show("确定所选物料无误吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim r2 As Row  = Tables("销售出库单主表").AddNew
    r2("客户名称")=r1("客户名称")
    r2("订单号码")=r1("订单号码")
    r2("供应商代码") = dm
    For Each r As Row In Tables("待出库产品选择_客户订单子表").GetCheckedRows
        Dim r3 As Row  = Tables("销售出库单主表.销售出库单子表").AddNew()
        r3("客户订单编号") = r("客户订单编号")
        r3("料号")=r("OPN")
        r3("物料编码")=r("CPN")
        r3("品名")=r("客户品名")
        r3("规格")=r("客户规格")
        r3("单位")=r("单位")
        r3("数量_订单数")=r("数量")
        r3("单价")=r("单价")
        r3("数量_本次交")=r("未交数")
    Next
    e.Form.Close
Else
    e.Cancel = True
End If

=====================================这些代码是写在窗口的一个导入数据按钮里的

If  Tables("待出库产品选择_客户订单主表").Current Is Nothing Then Return
DataTables("销售出库单子表").LoadFilter="客户订单编号 = '" & Tables("待出库产品选择_客户订单主表").Current("客户订单编号") & "'"
DataTables("销售出库单子表").load()
DataTables("客户订单主表").LoadFilter = "客户订单编号 = '" & Tables("待出库产品选择_客户订单主表").Current("客户订单编号")  & "'"
DataTables("客户订单主表").Load()
If DataTables("客户订单主表").DataRows.Count = 0 Then '如果订单表没有数据
    DataTables("客户订单子表").LoadFilter = "客户订单编号 Is Null" '不加载订单明细
Else
    Dim ids As String
    For Each dr1 As DataRow In DataTables("客户订单主表").DataRows
        ids = ids & ",'" & dr1("客户订单编号") & "'"
    Next
    ids= ids.Trim(",")
    DataTables("客户订单子表").LoadFilter = "客户订单编号 In (" & ids & ")"
End If
DataTables("客户订单子表").LoadTop = ""
DataTables("客户订单子表").Load()

=============以上代码是动态加载我所需要的表的

第二段代码我不知道放哪里，才能够先动态加载我需要的表，然后再执行我导入数据的代码

如果我直接放在导入数据的按钮代码的前面，因为.load命令的执行会让表刷新，第二段代码会出错

我放在窗口的Before close事件里，又无法在我导入数据前执行，导致数据无法在导入后正确的被刷新