我的写法:
Dim CurRow As Row = Tables("收款人名册").Current
Dim hc As New HttpClient("https://open.leshui365.com/api/invoiceInfoByQRCode?scanStr=" & CurRow("二维码") & "&token=" & Vars("tk"))
Dim jo As JObject = JObject.Parse(hc.GetData)
Dim server As String = jo("RtnCode")
Dim xiaofang As String = jo("invoiceResult")("salename")
Tables("收款人名册").Current("服务器联网") = server
Tables("收款人名册").Current("销方名称") = xiaofang
我的错误提示:
Cannot access child value on Newtonsoft.Json.Linq.JValue.
这是乐税网返回的信息示例:
{
RtnCode:服务器是否正常标志,//服务器是否正常标志
resultMsg:查验结果成功,
invoiceName:fa piao名称,
resultCode:查询fa piao状态码,
invoiceResult:
{
"invoiceTypeName":"上海增值税(电子普通fa piao)",//fa piao名称
"invoiceTypeCode":"10",//fa piao类型 01:增值税专piao,03:机动车销售统一fa piao,04:增值税普通fa piao,
10:电子普通fa piao,11:卷式普通fa piao,14:电子普通[通行费]fa piao,
15:二手车销售统一fa piao
"checkDate":"2018-03-02 18:16:04",//查询时间
"checkNum":"1",//查验次数
"invoiceDataCode":"0310017xxx11",//fa piao代码
"invoiceNumber":"1224xxx4",//fa piao号码
"billingTime":"2018-xx-01",//开piao日期
"purchaserName":"上海神州数码有限公司",//(购买方)名称
"taxpayerNumber":"9131xxxxxxx62219",//(购买方)纳税人识别号
"taxpayerAddressOrId":"上海市长宁区福泉路111号",//(购买方)地址.电话
"taxpayerBankAccount":"招商银行上海分行人民广场支行xxx10515",//(购买方)开户行及账号
"salesName":"上海xxx有限公司",//(销售方)名称
"salesTaxpayerNum":"9131011855xxxx5F",//(销售方)纳税人识别号
"salesTaxpayerAddress":"上海市青浦区徐泾镇xxx号xxxx",//(销售方)地址.电话
"salesTaxpayerBankAccount":"工行徐泾支行1001741919000018783",//(销售方)开户行及账号
"totalAmount":"42.45",//金额
"totalTaxNum":"2.55",//税额
"totalTaxSum":"45.00",//价税合计
"invoiceRemarks":" ",//备注
"taxDiskCode":"499099xxxx257",//机器编号
"checkCode":"16533044xxxxxx1959",//校验码
"voidMark":"0",//是否作废 0:正常,1:作废
"isBillMark":"N",//是否为清单piao Y:是,N:否//可以根据该字段展示清单piao和正常piao
"tollSign":"08",//收费标志字段(06:可抵扣通行费 07:不可抵扣通行费,08:成品油)
支持piao种:普通fa piao,专用fa piao,卷式fa piao,普通增值税(通行费),普通增值税(折叠费)
"tollSignName":"成品油",//收费标志名称
"invoiceDetailData":[//fa piao详情(清单piao首行号为0,折扣清单piao行号从-2开始,正常行号都是从1开始)
{
"lineNum":"1",//行号
"goodserviceName":"*物流辅助服务*收派服务费",//商品名称
"model":" ",//型号
"unit":"次",//单位
"number":"1.0",//数量
"price":"42.45",//价格
"sum":"42.45",//金额
"taxRate":"6%",//税率
"tax":"2.55",//税额
"isBillLine":"N" //是否为清单行 Y:是,N:否(是的时候,货物名称为“请详见货物清单”,“折扣额合计”,“原价合计”,可以不用做账)
"zeroTaxRateSign":"",//零税率标志字段(空:非零税率, 1:税率栏位显示“免税”, 2: 税率栏位显示“不征收”, 3:零税率)
"zeroTaxRateSignName":""//零税率标志名称
}
]
}
}