- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- replace for 筛选表达式 出现 数据类型编译不匹配错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153523)
-- 发布时间：2020/8/14 6:27:00
-- replace for 筛选表达式 出现 数据类型编译不匹配错误
Dim CorpID As String
Dim Secret As String
Dim r As DataRow
Dim dt As DataTable=DataTables("wechat_account")
Dim accountlist As List(of String())
accountlist=DataTables("wechat_account").GetValues("wechat_corpid|wechat_secret")
For Each account As String() In accountlist
corpid=account(0)
secret=account(1)
\'output.show(secret)
Dim accesstocken As String=Functions.Execute("GetWeqyAccessToken",corpid,secret)
Dim da As Date=Date.now()
output.show(da)
output.show(accesstocken)
dt.replacefor("wechat_accestocken",accesstocken,"wechat_corpid=\'"&CorpID&"\'")
\'dt.replacefor("tocken_time",da,"wechat_secret"="&secret&")
Next
此主题相关图片如下：编译错误.png
-- 发布时间：2020/8/14 8:34:00
--
符号，关键字前后加上必要的空格
dt.replacefor("wechat_accestocken",accesstocken,"wechat_corpid=\'" & CorpID & "\'")