UC知道谁能帮我写一下VB的注释
来源：百度知道 编辑：UC知道 时间：2024/07/07 04:36:03
我不想浪费分数，谁会写我会再加分的。
Dim WithEvents adoPrimaryRS As Recordset
Private Sub DTPicker1_Change()
On Error Resume Next
Dim date1 As String
Dim date2 As String
date1 = Format(DTPicker1.Value, "YYYY/MM/DD")
month11 = MID$(date1, 6, 2)
date11 = MID$(date1, 9, 2)
date2 = Format(DTPicker2.Value, "YYYY/MM/DD")
month21 = MID$(date2, 6, 2)
date21 = MID$(date2, 9, 2)
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select 地点名称,日期,CH4,CO2,CO,温度,气压,操作员姓名,时间,操作员卡号,地点卡号 from 记录管理表 where 日期>='" & Trim$(month11 + "/" + date11) & "' and 日期<='" & Trim$(month21 + "/" + date21) & "'order by 地点名称", conn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoPrimaryRS
End Sub
Private Sub DTPicker2_Change()
On Error Resume Next
Dim date1 As String
Dim date2 As String
Dim WithEvents adoPrimaryRS As Recordset
Private Sub DTPicker1_Change()
On Error Resume Next
Dim date1 As String
Dim date2 As String
date1 = Format(DTPicker1.Value, "YYYY/MM/DD")
month11 = MID$(date1, 6, 2)
date11 = MID$(date1, 9, 2)
date2 = Format(DTPicker2.Value, "YYYY/MM/DD")
month21 = MID$(date2, 6, 2)
date21 = MID$(date2, 9, 2)
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select 地点名称,日期,CH4,CO2,CO,温度,气压,操作员姓名,时间,操作员卡号,地点卡号 from 记录管理表 where 日期>='" & Trim$(month11 + "/" + date11) & "' and 日期<='" & Trim$(month21 + "/" + date21) & "'order by 地点名称", conn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoPrimaryRS
End Sub
Private Sub DTPicker2_Change()
On Error Resume Next
Dim date1 As String
Dim date2 As String
不会是每一句都要写注释吧。
date1 = Format(DTPicker1.Value, "YYYY/MM/DD")
这句的意思是：将DTPicker1这个对象的值赋给date1这个变量，值的格式是年月日，例如"2008/05/25"这种格式，那么date1="2008/05/25"。
month11 = MID$(date1, 6, 2)
这句的意思是：将date1这个变量存放的值从第6个字符开始，一直取出2个字符出来赋给month11这个变量，例如"2008/05/25"的第六个字符就是0，取2个的话，就是0和后面这个5了。所以month11="05"。