以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  查询代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70046)
--  作者：huhu
--  发布时间：2015/6/15 10:11:00
--  查询代码

查询代码如下：请问哪里不对啊。没有结果。

Dim qsrwzdcphbid As WinForm.TextBox = e.Form.Controls("产品化表ID")
If (DataTables("审核产品化表").loadFilter="产品化表ID=\'"& qsrwzdcphbid.text & "\'") Then
    DataTables("审核产品化表").load
ElseIf (DataTables("审核产品化表").loadFilter="产品化表ID <> \'"& qsrwzdcphbid.text & "\'" ) Then
    MessageBox.Show("输入的产品化表ID不存在,请核实","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
End If

想要的效果就是找到符合条件的行，自动加载，没有符合条件的行，提示errow。
--  作者：Bin
--  发布时间：2015/6/15 10:16:00
--  
If (DataTables("审核产品化表").loadFilter="产品化表ID=\'"& qsrwzdcphbid.text & "\'") Then   你这是要做什么?
--  作者：huhu
--  发布时间：2015/6/15 10:20:00
--  
以下是引用Bin在2015/6/15 10:16:00的发言：
If (DataTables("审核产品化表").loadFilter="产品化表ID=\'"& qsrwzdcphbid.text & "\'") Then   你这是要做什么?

想把这一整句作为一条条件(找到符合条件的行作为条件，这个条件成立)。然后加载数据。

好像这么做应该不行，返回的是行，行好像不能作为条件吧。

直接

DataTables("审核产品化表").loadFilter="产品化表ID=\'"& qsrwzdcphbid.text & "\'"
    DataTables("审核产品化表").load

[此贴子已经被作者于2015/6/15 10:20:56编辑过]
--  作者：大红袍
--  发布时间：2015/6/15 10:47:00
--  
Dim qsrwzdcphbid As WinForm.TextBox = e.Form.Controls("产品化表ID")
Dim fdr As DataRow = DataTables("审核产品化表").SQLFind("产品化表ID=\'" & qsrwzdcphbid.text & "\'")
If fdr IsNot Nothing Then
    DataTables("审核产品化表").loadFilter="产品化表ID=\'"& qsrwzdcphbid.text & "\'"
    DataTables("审核产品化表").load
Else
    MessageBox.Show("输入的产品化表ID不存在,请核实","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
End If