[VB5]
Sub InitCmbPzClass()
Dim dbTemp As Database, rsTemp As Recordset, sSQL As String
Dim nPzClassCnt As Long, i As Long
sSQL = "select * from pz_class order by code"
Set dbTemp = DBEngine(0).OpenDatabase(sZbDataFullName)
Set rsTemp = dbTemp.OpenRecordset(sSQL, dbOpenSnapshot)
If rsTemp.RecordCount > 0 Then
rsTemp.MoveLast
rsTemp.MoveFirst
nPzClassCnt = rsTemp.RecordCount
cmbPzClass.ColumnCount = 2
cmbPzClass.ColumnWidths = "30;100"
cmbPzClass.ListWidth = 130
cmbPzClass.TextColumn = 2
For i = 0 To nPzClassCnt - 1
cmbPzClass.AddItem rsTemp("code")
cmbPzClass.Column(1, i) = rsTemp("name")
rsTemp.MoveNext
Next i
cmbPzClass.ListIndex = 0
End If
dbTemp.Close: Set dbTemp = Nothing: Set rsTemp = Nothing
End Sub