'生产计划金额累计
'取出
Dim dr1 As DataRow
Dim jhje As Double
dr1 = DataTables("计划表").Find("[部门] = 'ORG1011' and [年份] = '2018' and [月份] = '11'")
If dr1 IsNot Nothing Then
jhje = dr1("计划金额")
Else
jhje = 1
End If
Dim jelist As New List(Of String)
'返回指定月份的天数
Dim tianshu As Integer = Date.DaysInMonth(Year(Date.Today),11)
Dim pgje As Double = jhje / tianshu
''''''''''''''''''''''''''''
'生成临时表
Dim dtb As New DataTableBuilder("总统计表")
dtb.AddDef("日期", Gettype(String), 32)
dtb.AddDef("计划金额累计", Gettype(String), 32)
dtb.AddDef("实际金额累计", Gettype(String), 32)
dtb.Build()
'添加数据
Dim jj As Integer
Dim zhrq As String
Dim t As Table = Tables("表B")
For jj = 1 To tianshu
Dim dr3 As DataRow = DataTables("总统计表").AddNew()
zhrq = Cstr(Year(Date.Today)) + "-11-" + Cstr(jj)
dr3("日期") = zhrq
dr3("计划金额累计") = Cstr(pgje*jj)
For Each r As Row In t.Rows
If CDate(r("日期")) = CDate(zhrq) Then
dr3("实际金额累计") = r("实际金额累计")
Else
dr3("实际金额累计") = Cstr(pgje*jj)
End If
Next
Next
DataTables("总统计表").Save()
''''''''''''''''''''''''''''
'make json
Dim Arys1 As List(Of String())
Dim Arys2 As List(Of String())
Dim tjb As Table = Tables("总统计表")
Arys1 = tjb.DataTable.GetValues("日期|计划金额累计","","日期")
Arys1 = tjb.DataTable.GetValues("日期|实际金额累计","","日期")
Dim salesdata As New JObject
Dim xmlb As New JArray
Dim i As Integer
salesdata("xsjh") = xmlb
For Each Ary1 As String() In Arys1
xmlb.Add(New Jobject)
xmlb(i)("month") = Ary1(0).ToString
xmlb(i)("num") = Ary1(1).ToString
i += 1
Next
Dim salesdata2 As New JObject
Dim xmlb2 As New JArray
Dim j As Integer
j = 0
salesdata("sjxs") = xmlb2
For Each Ary2 As String() In Arys2
xmlb2.Add(New Jobject)
xmlb2(j)("month") = Ary2(0).ToString
xmlb2(j)("num") = Ary2(1).ToString
j += 1
Next
FileSys.WriteAllText("d:\data1.json",salesdata.ToString,False,Encoding.UTF8)
加好友 
发短信
Post By：2018/12/14 11:06:00 [只看该作者]
