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

如下图。 combobox 要进行validating的操作， table中“第一列”的值都必须一致。 比如现在是2，3，5行的值已经有了。现在我要填入第4行的值。只能和第一列其他行的值一致，如果不一致的话就提示“必须一致！”，并且光标返回到combobox。 我不知道如何取到table中J02这个值？ 请教一下各位~谢谢

此主题相关图片如下：qq截图20140304161829.jpg

validating事件啦，不好意思。

一下是我的实际在做的。我套用进去。

我增加了个条件，

Dim ddbh As String = e.Form.controls("ddbhtextbox").text
If e.Sender.Text > "" Then
    Dim dr As DataRow = DataTables("小包发货单").Find( " 订单编号 = '" & ddbh & "'"  And " 仓位信息 = '" & e.Sender.Text & "'",0)
    If dr IsNot Nothing Then
        e.Form.Controls("Table1").Table.Current("仓位信息") =  dr("仓位信息")
        MessageBox.Show("请和同订单的其他商品放一起!")
    Else
        e.Form.Controls("Table1").Table.Current("仓位信息") =  e.Sender.Text
    End If
End If

 

结果提示出错。为啥会要求转换成long？

此主题相关图片如下：qq截图20140305121405.jpg

不是哦。是字母加数值的字符串类型。
此主题相关图片如下：qq截图20140305132936.jpg

上了个小例子

先说一下validating事件功能。 现在有个仓位J01~J05, 产品编号 A000000001~D000000001, 小包发货单里某些订单编号对应已经填入了一些仓位信息。只要求订单编号相同的仓位信息相同。如果不相同就提示“不一致”，并自动返回相同订单编号里已经有的仓位信息。如相同订单编号里一个仓位信息也没有，就按照所选的录入即可。

 

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

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

此主题相关图片如下：入仓要求.jpg

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

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

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

悲剧~ 重新上传不了。

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

对啊。