如果是 Dim ret As String = hc.getData()这一句卡，那是服务端的问题。
试试超时设置长一定。
hc.
TimeOut = 600
上面的错误依旧 服务端的代码
帮忙看看什么原因
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编辑过]
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
Next
dr.Save()
e.writestring("OK")
End Select
帮忙看一下代码
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编辑过]
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")
远程服务器返回错误: (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()
用的表单方式提交数据，不是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)
获取只保存修改后的列数据，以下代码无效
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编辑过]
BeforeSaveDataRow
Dim dr As DataRow = e.DataRow
Dim str As String
Dim rz As String = dr("操作日志")
If dr.RowState <> DataRowState.Added Then '如果不是新增行
For Each c As Col In Tables(e.form.name & "_table1").Cols '遍历当前表中的列
Dim Values() As String = {"编辑人","编辑日期"}
Dim Value As String
For Each Value In Values
If c.Name <> value Then
If e.DataRow(c.Name) <> e.DataRow.OriginalValue(c.Name) Then
str = str & "【" & c.Name & "】:" & Tables(e.form.name & "_table1").Current(c.Name)
End If
End If
Next
Next
dr("操作日志") = rz & vbcrlf & "操作人:" & User_ReName & "-操作电脑:" & ComputerId & "-操作时间:" & Date.Now & " " & str
End If
为什么得到的结果是重复的2条数据
操作人:001-操作电脑:RJK5/ZU8WNGX-操作时间:2022-10-21 20:07:51 【证件号】:0064【证件号】:0064【到期时间】:2022-10-21【到期时间】:2022-10-21
操作人:001-操作电脑:RJK5/ZU8WNGX-操作时间:2022-10-21 20:07:51
想要的结果 操作人:001-操作电脑:RJK5/ZU8WNGX-操作时间:2022-10-21 20:07:51【证件号】:0064【到期时间】:2022-10-21
[此贴子已经被作者于2022/10/21 20:17:03编辑过]