主题：[求助]请问这个代码如何写？

两个条件的正确代码应该是这样吧？不过还是解决不了问题。没有返回已有订单编号。

Dim dr As DataRow = DataTables("小包发货单").Find( "[订单编号] = '" & ddbh & "' And [仓位信息] = '" & e.Sender.Text & "'")

订单编号在哪儿？

想重新传一份，上传不上去。。。 我忘了添加一个textbox，绑定一下订单编号列。

悲剧~ 重新上传不了。

11楼的代码，不报错。

是啊。这个find的条件我改过来了。但是如何让在相同订单编号里找已经有的值，然后赋值给你选定的订单编号。Isy老师给的代码只是对比吧。我自己改的代码也不能做到。

 

呃，没理解你的意思，是不是要找 与当前行的订单号相同、而且仓位有值的行，然后把 仓位的值 赋值给当前行？

对啊。

这个是物流系统里一个物流订单，多个包裹分别入库的情形。

 这样写代码获取仓位信息

 

Dim fdr As DataRow = DataTables("小包发货单").Find( "[订单编号] = '" & ddbh & "' And [仓位信息] is not null")

If fdr IsNot Nothing Then

    msgbox(fdr("仓位信息"))

Else

    msgbox("没有对应的仓位")

End If