=============下面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事件里，又无法在我导入数据前执行，导致数据无法在导入后正确的被刷新
加好友 
发短信
Post By：2013/3/6 16:33:00 [显示全部帖子]
！系统等着上线呢！