Sub btnGluRpt_Click
Dim Query As String
Dim dates1(RC) As Long
StTemp = "Partial"
CheckRptMsCount
RC=RptGlList.Size
'StartActivity(SimpleGraph)
DateTime.DateFormat = "yyyy-MM-dd"
DateTime.TimeFormat = "HH:mm"
RptDt2List.Initialize
RptGl2List.Initialize
DtValue = DateTime.DateParse(edtRStDt.Text)
For i = 0 To RC-1
Dim datesplit() As String 'define an array to hold the date and time after we split it
datesplit = Regex.Split(" ", RptDtList.Get(i)) 'split Date and Time at the Space between Date and Time ex. "2015-1-16 14:30"
' Log("epoch: " & DateTime.DateTimeParse(datesplit(0), datesplit(1)))
' dates1(i) = DateTime.DateTimeParse(datesplit(0), datesplit(1)) 'convert date and time to epoch values so that the graph library can use them
If DateTime.DateTimeParse(datesplit(0),datesplit(1)) >= DtValue Then
RptDt2List.Add(RptDtList.Get(i))
RptGl2List.Add(RptGlList.Get(i))
End If
Next
' WebView1.LoadHtml(DBUtils.ExecuteHtml(SQL1, Query, Null, 0, True))
End Sub
{/CODE]
Thanks,
Lary