Dim x As String = e.Form.Controls("combobox1").text
Dim y As String = e.Form.Controls("combobox2").text
Dim z As String = e.Form.Controls("combobox3").text
Dim a As String = e.Form.Controls("textbox1").text
Dim d As DataRow = DataTables("hqhz").Find("bh = '"& x &"' and lx = '"& y &"' and zy = '"& z &"'")
If d IsNot Nothing Then
msgbox("已存在相同区域,无法添加")
Return
Else
Tables("hqhz").addnew
Tables("hqhz").Current("bh") = e.Form.Controls("combobox1").text
Tables("hqhz").Current("lx") = e.Form.Controls("combobox2").text
Tables("hqhz").Current("zy") = e.Form.Controls("combobox3").text
Tables("hqhz").Current("qc") = e.Form.Controls("textbox1").text
Tables("hqhz").save
DataTables("hqhz").load
msgbox("添加完成")
End If
这段代码，无论怎么搞都是返回"已存在相同区域,无法添加"，但是我非常确定xyz的值是唯一的，并且后台的数据表实际上是有添加记录，但是处于未保存状态。
之前find也用过很多次了，单条件下没用碰到过这样的问题。难道是find不能使用多条件？
加好友 
发短信
Post By：2022/4/18 16:13:00 [显示全部帖子]
太不应该了.........