主题：[求助] 录入限制

版主，请教一下，我想在表的属性中增加如下功能

 

当我输入集装箱号时进行判断，所输入的集装箱号在当前船号一样的情况下，如地址一样，就可以加入相同的集装箱号，如地址不一样，就提示地址不对，不能用相同的集装箱号， 这样可以吗 ？ 图中那个标出就不对了，地址不对了。谢谢。

此主题相关图片如下：捕获.png

datacolchanging事件

 

If e.datacol.name = "集装箱号" Then

    dim fdr = e.datatable.find("船号 = '" & e.datarow("船号") & "'")

    If fdr isNot Nothing Andalso fdr("地址") <> e.datarow("地址") Then

        msgbox("地址不一样")

        e.cancel = True

    End If

End If

版主这个代码不是很完美，请检查，另外输入后它不允许修改， 在对的情况下，也出现提示地址不一样的。

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

点击浏览该文件:diff.table

改成

 

If e.DataCol.name = "集装箱号" Then

    Dim fdr = e.DataTable.find("船号 = '" & e.DataRow("船号") & "'")

    If fdr IsNot Nothing AndAlso fdr("集装箱号") = e.newvalue AndAlso fdr("地址") <> e.DataRow("地址") Then

        msgbox("地址不一样")

        e.cancel = True

    End If

End If

这次好多了，但是还有点问题，全部清空时，出现提示了
此主题相关图片如下：捕获.png

If e.DataCol.name = "集装箱号" andalso e.newvalue <> Nothing Then

    Dim fdr = e.DataTable.find("船号 = '" & e.DataRow("船号") & "'")

    If fdr IsNot Nothing AndAlso fdr("集装箱号") = e.newvalue AndAlso fdr("地址") <> e.DataRow("地址") Then

        msgbox("地址不一样")

        e.cancel = True

    End If

End If

版主，我把第一个号删除了，后面就不受控了，可以随意输入了。
此主题相关图片如下：捕获.png