刷新租金服务费金额合同状态
Dim htid As String = Args(0) '合同编号
Dim Vals_r As New List(Of String)
'Dim htid As String = Args(1) '项目名称
'Dim htid As String = Args(2) '租赁类别
Dim hc As New HttpClient("http://ls.xinlianhuichuang.com/v1/lshtmx?id=" & htid)
Dim ret As String = hc.GetData()
If ret="" OrElse ret="[]" Then Return Vals_r
Dim dtb As New DataTableBuilder("明细表")
dtb.AddDef("合同编号", Gettype(String), 100)
dtb.AddDef("客户名称", Gettype(String), 100)
dtb.AddDef("合同属性", Gettype(String), 20)
'dtb.AddDef("合同开始日期", Gettype(Date), 20)
'dtb.AddDef("合同终止日期", Gettype(Date), 20)
'dtb.AddDef("起租日期", Gettype(Date), 20)
'dtb.AddDef("签订日期", Gettype(Date), 20)
dtb.AddDef("项目名称", Gettype(String), 100)
'dtb.AddDef("楼栋名称", Gettype(String), 100)
'dtb.AddDef("房间名称", Gettype(String), 100)
dtb.AddDef("租赁类别", Gettype(String), 100)
dtb.AddDef("合同状态", Gettype(String), 50)
dtb.AddDef("合同面积", Gettype(Double))
'dtb.AddDef("经手人", Gettype(String), 50)
dtb.AddDef("租金总额", Gettype(Double), 50)
dtb.AddDef("管理费总额", Gettype(Double), 50)
dim dt as datatable = dtb.Build(true)
For Each ep As JToken In JArray.Parse(ret)
Dim rr As Row=dt.addnew()
rr("合同编号")=ep("合同编号")
rr("合同属性")=ep("合同属性")
'rr("合同开始日期")=ep("合同开始日期")
'rr("合同终止日期")=ep("合同终止日期")
'rr("起租日期")=ep("起租日期")
'rr("签订日期")=ep("签订日期")
rr("项目名称")=ep("项目名称")
'rr("楼栋名称")=ep("楼栋名称")
'rr("房间名称")=ep("房间名称")
rr("客户名称")=ep("客户名称")
rr("租赁类别")=ep("租赁类别")
rr("合同状态")=ep("合同状态")
rr("合同面积")=ep("合同面积")
'rr("经手人")=ep("经手人")
rr("租金总额")=ep("租金总额")
rr("管理费总额")=ep("管理费总额")
'messagebox.Show("姓名:" & ep("name").ToString() & " 年龄:" & ep("age").ToString())
Next
Dim zt As String=dt.compute("sum(租金总额)")
Dim ft As String=dt.compute("sum(管理费总额)")
Dim htzt As String=dt.datarows(0)("合同状态")
Dim khmc As String=dt.datarows(0)("客户名称")
Vals_r.add(zt)
Vals_r.add(ft)
Vals_r.add(htzt)
Vals_r.add(khmc)
Return Vals_r
其它函数自己也相应改改。
另外看了一下大概的逻辑，其实都没有必要创建临时表，直接在json数据的遍历里直接累加求和不就行了
加好友 
发短信
Post By：2019/10/8 10:38:00 [显示全部帖子]
