帮忙解释VB程序1

发布网友发布时间：2023-11-24 16:36

共2个回答

热心网友时间：2024-12-01 12:11

Private Sub Form_Load()
On Error Resume Next

'定义rsdep,rsclass为记录集类型的变量
Dim rsdep As New ADODB.Recordset, rsclass As New
ADODB.Recordset

'打开数据环境中预设计的查询记录集，存储到rsdep变量
Set rsdep = dataenv.rsdepartment
rsdep.Open

'初始化cbodep控件(应该是个列表框之类吧),第一条显示为：
["全部"，"0"]
cbodep.Clear
cbodep.AddItem "全部"
cbodep.ItemData(0) = 0

'继续用rsdep记录集的"name","id"字段逐条写入cbodep控件中
rsdep.MoveFirst
While Not rsdep.EOF
cbodep.AddItem rsdep("name")
cbodep.ItemData(cbodep.ListCount - 1) = rsdep("id")
rsdep.MoveNext
Wend

'cbodep控件指向第一条
cbodep.ListIndex = 0

'其它控件的初始化
cmdlist.Value = True
framanage.Enabled = True
frabrowse.Enabled = True
fraseek.Enabled = True
grdscan.Enabled = True
mbclose = True

'另一个初始函数
Call grdscan_Change
End Sub

热心网友时间：2024-12-01 12:12

代码不完全不能分析