Dim hc As New HttpClient 怎么用变量的写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → Dim hc As New HttpClient 怎么用变量的写

共有1703人关注过本帖平板打印复制链接主题：Dim hc As New HttpClient 怎么用变量的写

fubblyc

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：九尾狐帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00

Dim hc As New HttpClient 怎么用变量的写 发帖心情

Post By：2017/10/27 20:32:00 [只看该作者]

老师，以下标黄色的的写法是不对的，但是不知道怎么写。。。

Dim hc As New HttpClient 这样写不对

If zhangtao = "A"

hc(CExp(url,Functions.Execute("GetAccessToken",appid,appsecret))) hc这样写应该也不对

ElseIf zhangtao = "B"

hc(CExp(url,Functions.Execute("GetAccessTokenshandong",appid,appsecret)))

End If

Dim jo As New JObject

jo("card_id") = cardid

jo("code") = qh

jo("check_consume") = False

hc.Content = jo.ToString()

jo = JObject.Parse(hc.GetData)

主题：Dim hc As New HttpClient 怎么用变量的写