Dim url As String = "http://foxtable.sinaapp.com/time/?f=Y-m-d H:i:s"

Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)

Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse

Dim stm As System.IO.Stream = rsps.GetResponseStream()

Dim reader As New System.IO.StreamReader(stm)

Dim str As String = reader.ReadToEnd

 

If e.DataRow("审批") = True Then

 

e.DataRow("审批时间")  = str

Else

            e.DataRow("审批时间")  = Nothing

End If

Dim drs As List(of DataRow) = DataTables("日记账").Select("", "产品类型,发生日期") \'注意排序参数

 

       drs(0)("余额") = drs(0)("收入") - drs(0)("支出") \'设置第一行的余额

For i As Integer = 1 To drs.Count - 1  \'从第二行开始逐行计算余额

    If drs(i)("产品类型") = drs(i - 1)("产品类型") Then

        drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")

    Else

        drs(i)("余额") = drs(i)("收入") - drs(i)("支出")

    End If

Next