Foxtable(狐表)用户栏目专家坐堂 → [求助] 代码功能添加


  共有2859人关注过本帖树形打印复制链接

主题:[求助] 代码功能添加

帅哥哟,离线,有人找我吗?
13969192969
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:231 威望:0 精华:0 注册:2017/11/13 16:53:00
[求助] 代码功能添加  发帖心情 Post By: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”显示出来,怎么添加代码,我添加了怎么也不行,请给予指导!谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/2 14:56:00 [只看该作者]

cmd1.CommandText ="Select Max(数值) From {实时数据} Where 编号 = '" & bh & "' And 抄表时间 >= '" & dy1 & "' And 抄表时间 < '" & dy1.addmonths(1) & "'"

 回到顶部