replace for 筛选表达式出现数据类型编译不匹配错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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&")

此主题相关图片如下：编译错误.png

主题：replace for 筛选表达式 出现 数据类型编译不匹配错误