Foxtable(狐表) → 用户栏目 → 专家坐堂 → 接口上报，帮忙指导一下


  共有9491人关注过本帖树形打印复制链接

主题：接口上报，帮忙指导一下
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106207 积分：540158 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/2 11:30:00 [显示全部帖子]

Dim hc As New HttpClient("http://jgptzw.dcyun.com:49000/ProjectSuperviseService.asmx/ReceiveJson")
hc.ContentType = "application/x-www-form-urlencoded;charset=UTF-8"
hc.Headers.Add("UserName","xxxUserName")
hc.Headers.Add("Token","xxxToken")
hc.FormData.Add("strCommand","xxx类型")
hc.FormData.Add("strContent","xxx内容")
Dim ret As String = hc.getData()
output.show(ret)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106207 积分：540158 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/4 20:31:00 [显示全部帖子]

单元格里是json数据，要转换为xml数据的
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:定川接口.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106207 积分：540158 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/23 16:43:00 [显示全部帖子]

if Tables("tabl").Current isnot nothing
msgbox(Tables("tabl").Current("项目资料"))
Dim Proc As New Process
    Proc.File = Tables("tabl").Current("项目资料")   '打开
    Proc.Start()
endif
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106207 积分：540158 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/28 15:42:00 [显示全部帖子]

日期列才能使用#，多看几遍：http://www.foxtable.com/webhelp/topics/1284.htm

cmd.Com mandText = "se lect * from {xjbb} where [年份] = " & Date.Today.Year & " And [未到金额] > 0"
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106207 积分：540158 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/28 21:01:00 [显示全部帖子]

如果是 Dim ret As String = hc.getData()这一句卡，那是服务端的问题。

试试超时设置长一定。
hc.TimeOut = 600

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106207 积分：540158 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/30 9:00:00 [显示全部帖子]

        For Each nm As String In nms
            dr(nm) = e.PostValues(nm)
        Next
        dr.Save()
e.writestring("OK")
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106207 积分：540158 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/9/1 8:56:00 [显示全部帖子]

Dim code As String = "01,01,1300221130,18913948,4996.73,20220729,,21AC,"    '二维码
    Dim hc As New HttpClient("http://fapiao.market.alicloudapi.com/v2/invoice/qrcode")    
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106207 积分：540158 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/9/3 13:51:00 [显示全部帖子]

用的表单方式提交数据，不是get参数

Dim noTaxAmount As String = r("不含税金额")
        Dim hc As New HttpClient("http://fapiao.market.alicloudapi.com/v2/invoice/query")   
        hc.C
        Dim AppCode As String = Table_DBase.datarows(35)("内容")
        hc.Headers.Add("Authorization","APPCODE " & AppCode)
        hc.Headers.Add("fpdm",fpdm)

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106207 积分：540158 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/20 20:44:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106207 积分：540158 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/22 9:03:00 [显示全部帖子]

Dim dr As DataRow = e.DataRow
Dim str As String
Dim rz As String = dr("操作日志")
Dim Values() As String = {"编辑人", "编辑日期"}
If dr.RowState <> DataRowState.Added Then '如果不是新增行
    For Each c As DataCol In e.DataTable.DataCols '遍历当前表中的列
        If Array.IndexOf(Values, c.Name) = -1 Then
            If dr(c.Name) <> dr.OriginalValue(c.Name) Then
                str = str & "【" & c.Name & "】:" & dr(c.Name)
            End If
        End If
    Next
    dr("操作日志") = rz & vbcrlf & "操作人:" & User_ReName & "-操作电脑:" & ComputerId & "-操作时间:" & Date.Now & " " & str 
End If
 回到顶部
总数 37 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 6 次数据查询