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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

这个基本解决问题了。就是不知道如何去除当相同订单编号，对应的仓位信息都为空时，填入一个值，不要跳出窗口。还有填入的值和已有的值相同时也不要跳出来。不然每次跳出来是个麻烦事。

我把代码改成这样了。

Dim ddbh As String = e.Form.controls("ddbhtextbox").text
Dim fdr As DataRow = DataTables("小包发货单").Find( "[订单编号] = '" & ddbh & "' And [仓位信息] is not null")
If fdr IsNot Nothing Then
   msgbox("请存放到" & fdr("仓位信息") )
  e.Form.controls("zccwcombobox").text = fdr("仓位信息")
 Else Return  
End If

你把msgbox去掉就不会跳出窗口了·······