专家坐堂-HttpRequest 调用e.GetValues 总是提醒调用目标发生异常Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  HttpRequest 调用e.GetValues 总是提醒调用目标发生异常  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117980)

--  作者：baiheinet
--  发布时间：2018/4/22 16:20:00
--  HttpRequest 调用e.GetValues 总是提醒调用目标发生异常

Dim dr As DataRow
Dim filter As String
filter = "ISO = \'" & e.GetValues("iso").ToString & "\'" AndAlso "openid = \'" & e.GetValues("openid").ToString & "\'"
dr = DataTables("templateMessage").SQLFind(filter)
If dr IsNot Nothing Then \'如果找到的话
dr("form_date") = Date.Now()
Else
dr = DataTables("templateMessage").AddNew()
dr("ISO") = e.GetValues("iso").ToString
dr("openid") = e.GetValues("openid").ToString
dr("form_date") = Date.Now()
End If
dr.Save()
其他地方加.ToString 就没问题了 filter 却不行请高手解答

--  作者：有点甜
--  发布时间：2018/4/22 20:33:00
--

filter = "ISO = \'" & e.GetValues("iso").ToString & "\'" AndAlso "openid = \'" & e.GetValues("openid").ToString & "\'"

改成

filter = "ISO = \'" & e.GetValues("iso").ToString & "\' And openid = \'" & e.GetValues("openid").ToString & "\'"

[此贴子已经被作者于2018/4/22 20:33:15编辑过]