1、
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
rsps.Close
stm.Close
reader.close
If e.DataRow("审批") = True Then
e.DataRow("审批时间") = str
Else
e.DataRow("审批时间") = Nothing
End If