Question

VB菜鸟想请教各位老鸟，我的代码哪错了，有两个Combo2　和一个list1 listbox

Private Sub Form_Load()
Dim i As Integer
Dim n As Integer
Adodc1.RecordSource = "select * from tt"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then '假如记录大于零
'浏览操作员权限
For i = 0 To Adodc1.Recordset.RecordCount
ext = Adodc1.Recordset.Fields("name")
MsgBox ext
List2.AddItem = " & ext & "
Adodc1.Recordset.Move i
Next i
End If
With Combo1
.AddItem "普通权限"
.AddItem "高级权限"
.AddItem "管理员"
.ListIndex = 0 '把第一个条目作为初始项
End With
With Combo2
.AddItem "普通权限"
.AddItem "高级权限"
.AddItem "管理员"
.ListIndex = 0 '把第一个条目作为初始项
End With
End Sub

我的想法是想把SQL数据库里面的用户名全部列到list的列表上。请各位帮忙下！在线等

Answer 1

Private Sub Form_Load()
Adodc1.RecordSource = "select * from tt"
Adodc1.Refresh
do until Adodc1.Recordset.Eof
List2.AddItem Adodc1.Recordset("name")
Adodc1.Recordset.MoveNext
loop
With Combo1
.AddItem "普通权限"
.AddItem "高级权限"
.AddItem "管理员"
.ListIndex = 0 '把第一个条目作为初始项
End With
With Combo2
.AddItem "普通权限"
.AddItem "高级权限"
.AddItem "管理员"
.ListIndex = 0 '把第一个条目作为初始项
End With
End Sub

追问

你是我的偶像....我也不知道哪出问题。谢谢谢谢！

Answer 2

看不出来