開通VIP,暢享免費電子書等14項超值服
首頁
好書
留言交流
下載APP
聯(lián)系客服
2010.04.16
Private Sub Form_Load()userlist.ClearAdodc1.RecordSource = "select * from 數(shù)據(jù)"Adodc1.RefreshDo While Not Adodc1.Recordset.EOFuserlist.AddItem Adodc1.Recordset.Fields("用戶")Adodc1.Recordset.MoveNextLoop
End sub
微信登錄中...請勿關(guān)閉此頁面