Dim zg As New List(Of String) '最高
Dim dy1 As Date = New Date(d.Year,d.Month,1) '当月第一天
Dim sy As Integer = Date.DaysInMonth(d.Year,d.Month) '月天数
Dim LastDay As Date = New Date(d.Year,d.Month,sy)'最后一天
Dim maxmid as Double
Do While dy1 <= LastDay
cmd1.CommandText ="Select Max(数值) Fro m {实时数据} Where 编号 = '" & bh & "' And 抄表时间 >= convert(varchar(10),'" & dy1 & "',120) And 抄表时间 < convert(varchar(10),dateadd(d,1,'" & dy1 & "'),120)"
zg.Add("'" & cmd1.ExecuteScalar & "'")
Loop
以上实现的是读取每天的“数值”最大值；
现在我想把这个月的最大值（也就是从每天采集到的数值最大值里 提取出最大的那个值！）提取出来 赋值到maxmid，然后在标签“lable9”显示出来，怎么添加代码，我添加了怎么也不行，请给予指导！谢谢
加好友 
发短信
Post By：2018/2/1 11:22:00 [显示全部帖子]
