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


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

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


加好友 发短信
等级：三尾狐 帖子：670 积分：7958 威望：0 精华：0 注册：2015/8/24 9:02:00 		接口上报，帮忙指导一下  发帖心情 Post By：2022/4/30 14:47:00 [显示全部帖子]

大神帮忙接口对接，谢谢了

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:desktop.rar



[此贴子已经被作者于2023/8/16 14:01:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：670 积分：7958 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2022/5/2 19:55:00 [显示全部帖子]

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.1.30.2
错误所在事件：窗口,上报,上报,Click
详细错误信息：
无法将类型为“System.String”的对象强制转换为类型“Newtonsoft.Json.Linq.JToken”。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:定川接口.table
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：670 积分：7958 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2022/5/23 16:40:00 [显示全部帖子]

    Dim Proc As New Process
    Proc.Arguments = Tables("tabl").Current("项目资料")   '打开
    Proc.Start()


执行上面代码，出现下面错误


.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.1.30.2
错误所在事件：
详细错误信息：
尚未提供文件名，因此无法启动进程。
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：670 积分：7958 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2022/5/23 16:54:00 [显示全部帖子]

E:\软件\Attachments\工程管理\2022\P22001\投标文件.txt

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


加好友 发短信
等级：三尾狐 帖子：670 积分：7958 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2022/5/28 15:34:00 [显示全部帖子]

access数据库

cmd.Com mandText = "se lect * from {xjbb} where [年份] = #" & Date.Today.Year & "# And [未到金额] > '0'"



.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.1.30.2
错误所在事件：
详细错误信息：
字符串的语法错误 在查询表达式 '[年份] = #2022# and [未到金额] > '0' 中。
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：670 积分：7958 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2022/6/28 20:50:00 [显示全部帖子]

        Dim IPAdress As System.Net.IPAddress
        Dim HostName As String
        Dim nics() As System.Net.NetworkInformation.NetworkInterface = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces  '定义MAC
        Dim mac As String = nics(0).GetPhysicalAddress.Tostring '获得MAC地址
        HostName = System.Net.Dns.GetHostName '获得本机的机器名
        IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP
        
        FileSys.WriteAllText(ProjectPath & "Account.txt", s1, False, Encoding.Default)    '写入当天日期
        
        Dim hc As New HttpClient("http://139.17.186.23:3939/xtrzdjb.htm")
        hc.FormData.Add("时间",Date.Now)
        hc.FormData.Add("IP地址",IPAdress.ToString)
        hc.FormData.Add("计算机名称",HostName)
        hc.FormData.Add("MAC地址",mac)
        hc.FormData.Add("机器码",ComputerId)
        hc.FormData.Add("版本号",Tables("S_基础数据").Rows(2)("值"))
        Dim ret As String = hc.getData()

以上代码有效，但是执行后会卡死1分钟，最后提示操作超时

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.1.30.2
错误所在事件：
详细错误信息：
操作超时
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：670 积分：7958 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2022/6/29 19:31:00 [显示全部帖子]

上面的错误依旧      服务端的代码

帮忙看看什么原因

Select Case e.Path
    Case "xtrzdjb.htm"
        Dim wb As New weui
        Dim c md As New S QLCommand
        c md.C
        c md.CommandText = "s elect * fr om {SYS_系统日志} where 1=2"
        Dim dt As DataTable = c md.ExecuteReader(True)
        Dim nms() As String = {"程序","时间","IP地址","计算机名称","MAC地址","机器码","版本号","年份","月份","年月","关联码"}
        Dim dr As DataRow = dt.AddNew()
        For Each nm As String In nms
            dr(nm) = e.PostValues(nm)
        Next
        dr.Save()
End Select
[此贴子已经被作者于2022/6/29 19:31:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：670 积分：7958 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2022/8/31 20:15:00 [显示全部帖子]

帮忙看一下代码

    Dim code As String = "01,01,1300221130,18913948,4996.73,20220729,,21AC,"    '二维码
    Dim hc As New HttpClient("http(s)://fapiao.market.alicloudapi.com/v2/invoice/qrcode")    
    hc.C
    Dim AppCode As String = "e16f06e6ccaab6bcb2206f64289b127"
    hc.Headers.Add("Authorization","APPCODE " & AppCode)
    hc.FormData.Add("code",code)     '上传内容
    Dim ret As String = hc.GetData()
    msgbox(ret)

'API文档
https://market.aliyun.com/products/56928005/cmapi025075.html?spm=5176.2020520132.101.8.acb77218MkT4Ib#sku=yuncode1907500007
[此贴子已经被作者于2022/9/2 8:53:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：670 积分：7958 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2022/9/3 12:13:00 [显示全部帖子]

远程服务器返回错误: (400) 错误的请求。

        Dim fpdm As String = r("代码")
        Dim fphm As String = r("号码")
        Dim kprq As String = r("日期")
        Dim checkCode As String = r("校验码后6位")
        Dim noTaxAmount As String = r("不含税金额")
        Dim hc As New HttpClient("http://fapiao.market.alicloudapi.com/v2/invoice/query?fpdm=" & fpdm & "&fphm=" & fphm & "&kprq=" & kprq & "&checkCode=" & checkCode & "&noTaxAmount=" & noTaxAmount)   
        hc.C
        Dim AppCode As String = Table_DBase.datarows(35)("内容")
        hc.Headers.Add("Authorization","APPCODE " & AppCode)
        Dim ret As String = hc.GetData()
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：670 积分：7958 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2022/10/20 19:51:00 [显示全部帖子]

获取只保存修改后的列数据，以下代码无效


Dim dr As DataRow = e.DataRow
If dr.RowState <> DataRowState.Added Then '如果不是新增行
    Dim str As String
    For Each c As Col In Tables("投标立项_table1").Cols '遍历当前表中的列
        Dim Values() As String = {"区域","项目名称","编辑人","编辑日期"}
        Dim Value As String
        For Each Value In Values
            If c.Name = value Then
                If dr(c.Name) <> dr.OriginalValue(c.Name) Then   '是否修改数据
                    str = str &  "【" & c.Name &"】:" & Tables("投标立项_table1").Current(c.Name)
                End If
            End If
        Next
    Next
    Dim rz As String = dr("操作日志")
    dr("操作日志") = rz & vbcrlf & str    
End If
[此贴子已经被作者于2022/10/20 20:20:51编辑过]
 回到顶部
总数 44 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.09766 秒, 7 次数据查询