高分请VB榜忙翻译

来源：百度知道 编辑：UC知道 时间：2024/05/24 20:03:40
Do While Not rs.EOF
tagnamArray(i) = Trim(rs("tagnam"))
i = i + 1
count = count + 1
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

For k = 0 To count - 1
tagnam = Trim(tagnamArray(k))
Date1 = Format(Now - 1, "YYYY-MM-DD HH:MM:SS")
rs.Open "Select Max(DRAWDATE) RQ from TREND_OVERRANGE where trim(TAGNAM)='" & tagnam & "' and trim(RANGE)='上限' ", ADOCC, , adCmdTable
If rs("RQ") <> "" Then
'MsgBox tagnam
Date1 = rs("RQ")
End If
注释：tagnam是数据库一列表的标题，代表设备的型号。RANGE=上限，说的是仪表工作时的最大数值。
请高手帮我做详细的阐述，不要给我解释函数的作用，要详细解释这段代码的作用和功能，就是每句代码的具体意思，谢谢，可追价到100分。
仪表有多个，应该构成数组。每个仪表都是持续工作的，就每个仪表而言，它工作时的数值也应该构成数组。大家帮我看看，每句话具体管什么用的。
1楼，你说的不对，而且不是我想要的，我需要每行代码翻译和解释作用，VB高手帮忙。
楼下的在努努力，后面几句话作用，作用比如tagnam = Trim(tagn

小试一下
Do While Not rs.EOF 这句上面应该有一局rs.movefirst或者rs.open，这样这句的意思就是从rs的第一条记录到最后一条记录做循环
tagnamArray(i) = Trim(rs("tagnam")) rs中的tagnam这一列去空格赋值给数组tagnamarray
i = i + 1
count = count + 1 计数器
rs.MoveNext rs移动到下一条
Loop
rs.Close 关闭连接
Set rs = Nothing 施放内存

For k = 0 To count - 1 因为从0开始所以是count-1才能表示出条数（从0开始是考虑到前面定义的数组也是从0开始的）
tagnam = Trim(tagnamArray(k)) 去空格后赋值
Date1 = Format(Now - 1, "YYYY-MM-DD HH:MM:SS") 给date控件赋值的问题了
rs.Open "Select Max(DRAWDATE) RQ from TREND_OVERRANGE where trim(TAGNAM)='" & tagnam & "' and trim(RANGE)='上限' ", ADOCC, , adCmdTable 打开rs连接
If rs("RQ") <> "" Then 如果rs的rq这列不为空
'MsgBox tagnam
Date1 = rs("RQ")
End If

OVER~
==============================补充==============================
对数组会有一组数据记录在里面，那么就用你上面的k区分，比如说tagnamArray(k)中k=0的时候是取tagnamArray(0)中的记录（对你的