谁来帮我解释下vb的代码啊谢谢

显示全部楼层 · 2008-6-25 08:39:34

Private Sub Form_Activate()
Combo1.SetFocus
Data1.DatabaseName = App.Path & "\" & "sjk.mdb"
Data1.RecordSource = "select * from xueji order by 学号"
Data1.Refresh
Data3.DatabaseName = App.Path & "\" & "sjk.mdb"
Data3.RecordSource = "select * from xueji order by 学号"
Data3.Refresh
Data2.DatabaseName = App.Path & "\" & "sjk.mdb"
Data2.RecordSource = ""
Data2.Refresh
Do While Not Data1.Recordset.EOF
Combo1.AddItem (Data1.Recordset.学号)
Data1.Recordset.MoveNext
Loop
If Data1.Recordset.EOF And Data1.Recordset.BOF Then
Else
Data1.Recordset.MoveFirst
End If
MSFlexGrid1.ColWidth(0) = 100
MSFlexGrid1.ColWidth(1) = 1200
MSFlexGrid1.ColWidth(2) = 700
MSFlexGrid1.ColWidth(3) = 500
MSFlexGrid1.ColWidth(4) = 700
MSFlexGrid1.ColWidth(5) = 1500
MSFlexGrid1.ColWidth(6) = 1500
MSFlexGrid1.ColWidth(7) = 1000
MSFlexGrid1.ColWidth(8) = 800
MSFlexGrid1.ColWidth(9) = 1200
MSFlexGrid1.ColWidth(10) = 1000
MSFlexGrid1.ColWidth(11) = 1000
MSFlexGrid1.ColWidth(12) = 1000
End Sub

千问 · 2008-6-25 08:39:34

Private Sub Form_Activate() Combo1.SetFocus '控件得到焦点被选中Data1.DatabaseName = App.Path & "\" & "sjk.mdb" '设置数据库路径Data1.RecordSource = "select * from xueji order by 学号" '从数据库中得到XUEJI表中的所有内容,并按学号排序Data1.Refresh '数据刷新Data3.DatabaseName = App.Path & "\" & "sjk.mdb" '同上Data3.RecordSource = "select * from xueji order by 学号"

谁来帮我解释下vb的代码啊 谢谢

谁来帮我解释下vb的代码啊谢谢