[求助] 条件公式问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我有一个“增加”按钮如下命令：其中如果“设备编码”条件内容为空、那么在其他条件完全相同的情况下还是会新增一行、如果“设备编码”有内容、那么点击按钮后就不会再新增一行。为什么？

Dim d1 As String = e.Form.Controls("机房名称").Text

Dim t11 As String = e.Form.Controls("设备名称").Text

Dim t12 As String = e.Form.Controls("设备型号").Text

Dim t13 As String = e.Form.Controls("设备编号").Text

Dim c1 As String = e.Form.Controls("板件槽位1").Text

Dim t1 As String = e.Form.Controls("板件型号1").Text

Dim nd2 As DataRow = DataTables("机房设备板件表").Find("机房名称 = '" & d1 & "' and 设备名称 = '" & t11 & "' and 设备型号 = '" & t12 & "' and 设备编号 = '" & t13 & "'and 板件槽位 = '" & c1 & "'and 板件型号 = '" & t1 & "'")

If nd2 Is Nothing Then

If c1 > "" And t1 > "" Then

nd2 = DataTables("机房设备板件表").AddNew()

nd2("机房名称") = d1

nd2("设备名称") = t11

nd2("设备型号") = t12

nd2("设备编号") = t13

nd2("板件槽位") = c1

nd2("板件型号") = t1

End If

[此贴子已经被作者于2014-9-1 22:34:47编辑过]

我希望实现：在以下这些条件中如果其中有任何一个条件列的内容时空的；在其他条件完全相同的情况下、也能够实现不再新增该行

"机房名称 = '" & d1 & "' and 设备名称 = '" & t11 & "' and 设备型号 = '" & t12 & "' and 设备编号 = '" & t13 & "'and 板件槽位 = '" & c1 & "'and 板件型号 = '" & t1 & "'"

应该是 If c1> "" And t1> "" Then

我以上公式的目的是如果我要新增加的内容在表中已经存在；就不再新增；但是像我表中原来已经有两条记录第一条“设备编号”有_01、第二条“设备编号”为空。那么我录入窗口中录入的其他内容都是一模一样；当“设备编号”列为_01时，公式就会默认不再新增这一条相同内容；但是如果我新增的是第二条“设备编号”是空的、那么公式就会在表中新增一行。我想实现跟第一行那样不再新增一行。公式该怎么修改？