以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]查询，  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185874)
--  作者：bzqlyj
--  发布时间：2023/3/22 13:41:00
--  [求助]查询，
With wb.AddInputGroup("form1", "ipg2", "查询结果")
            If e.PostValues.ContainsKey("AA") Then
                flt = e.PostValues("AA")
                dr = DataTables("表A").SQLFind("[AA]= \'" & flt & "\'")
                    With .AddInput("AA", "AA", "Text")
                        .Value = dr("AA")
                        .Readonly = True
                    End With
在查询框中输入表A内AA列有的数据，显示正常，如输入表A内AA列没有的数据，显示
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：项目,HttpRequest
详细错误信息：
未将对象引用设置到对象的实例。
--  作者：有点蓝
--  发布时间：2023/3/22 13:43:00
--  
http://www.foxtable.com/webhelp/topics/2911.htm，理解一下示例三
--  作者：cd_tdh
--  发布时间：2023/3/22 13:44:00
--  
 dr = DataTables("表A").SQLFind("[AA]= \'" & flt & "\'")
If dr IsNot Nothing Then 
                    With .AddInput("AA", "AA", "Text")
                        .Value = dr("AA")
                        .Readonly = True
                    End With
end if
最好在加个提示，没找到就提示没有数据。
[此贴子已经被作者于2023/3/22 13:44:51编辑过]