以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 代码功能添加  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114291)
--  作者：13969192969
--  发布时间：2018/2/2 14:21:00
--  [求助] 代码功能添加
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”显示出来，怎么添加代码，我添加了怎么也不行，请给予指导！谢谢
--  作者：有点甜
--  发布时间：2018/2/2 14:56:00
--  
cmd1.CommandText ="Select Max(数值) From {实时数据} Where 编号 = \'" & bh & "\' And 抄表时间 >= \'" & dy1 & "\' And 抄表时间 < \'" & dy1.addmonths(1) & "\'"