我在Kakusan表填入运单号的时，想要把"我们的订单信息"表中的一些信息 赋值给Kakusan表，当运单号=快递单号时
我一个个测试时没有问题，两张表中快递单号相对应的信息会准确的赋值
但是我复制了一列运单号复制进Kakusan表时，就出现了所有的运单号的信息都被赋值成第一行的运单号信息的情况。
PS：两表中的运单号 和快递单号实际上是一个东西都是快递单号
代码如下
If e.DataCol.name="运单号"
Dim dr As DataRow = DataTables("我们的订单信息").SQLFind("快递单号 = '" & Tables("Kakusan").Current("运单号") & "'")
If dr IsNot Nothing Then
e.DataRow("核算日期") = Date.now
e.DataRow("收货省") = dr("收货省")
e.DataRow("产品名称") = dr("产品名称")
e.DataRow("规格") = dr("规格")
e.DataRow("内部便签") = dr("内部便签")
e.DataRow("订单数量") = dr("订货数量")
e.DataRow("订单状态") = dr("订单状态")
e.DataRow("库房编码") = dr("库房编码")
dr=Nothing
End If
End If
加好友 
发短信
Post By：2016/6/21 23:18:00 [只看该作者]
