英语翻译Private Sub Form_Load()Set bjcs_Rec_Pri = New ADODB.Reco
1个回答

Private Sub Form_Load()

Set bjcs_Rec_Pri = New ADODB.Recordset '引用记录集变量

Me.Picture = Main_Frm.Xywy_Lst.ListImages.Item(1).Picture ‘设置背景图片

Title_Lvw.Picture = Main_Frm.Xywy_Lst.ListImages.Item(1).Picture

Return_Img.Picture = Me.Image_Lst.ListImages.Item(1).Picture

bjcs_Rec_Pri.Open "SELECT * FROM care", Nf_Cnt_Pub, adOpenForwardOnly, adLockReadOnly, adCmdText ’打开记录

Title_Lvw.ColumnHeaders.Item(1).Text = "请点击以下相应标题"

If bjcs_Rec_Pri.RecordCount > 0 Then

For i = 1 To bjcs_Rec_Pri.RecordCount ‘为列表框付值

Title_Lvw.ListItems.Add , , " "

Title_Lvw.ListItems.Add , bjcs_Rec_Pri!Title, bjcs_Rec_Pri!Title

bjcs_Rec_Pri.MoveNext

Next i

Title_Lvw.ListItems.Item(2).Selected = True

End If

相关问题