求助Treeview的问题(vb)
我是个vb初学者.刚刚学到Treeview这个控件.在网上搜了好几天关于treeview控件的问题.可是还是看不懂.这个数据库如何连接的..谁能帮忙指出下面的错误么?Pr...
我是个vb初学者.刚刚学到Treeview这个控件.在网上搜了好几天关于treeview控件的问题.可是还是看不懂.这个数据库如何连接的..
谁能帮忙指出下面的错误么?
Private Sub Form_Load()
Dim lbnod As Node
Dim lb1, lb2 As String
TreeView1.Nodes.Clear
Set mRS = cnmain.Execute("select id from sort")'这行出错..为什么?是我没有定义这个MRS么?
If mRS.RecordCount > 0 Then
mRS.MoveFirst
Do While mRS.EOF = False
lb1 = mRS.Fields("id")
Set lbnod = TreeView1.Nodes.Add(, , "R", lb1, 1)
mRS.MoveNext
Loop
mRS.Close
End If
End Sub
首先谢谢楼下3位的热心解答.
其实我也觉得是mrs和cnmain没有定义过的问题..
但是我不知道该如何来定义它们..能说的详细些么??
我的qq:14246520 展开
谁能帮忙指出下面的错误么?
Private Sub Form_Load()
Dim lbnod As Node
Dim lb1, lb2 As String
TreeView1.Nodes.Clear
Set mRS = cnmain.Execute("select id from sort")'这行出错..为什么?是我没有定义这个MRS么?
If mRS.RecordCount > 0 Then
mRS.MoveFirst
Do While mRS.EOF = False
lb1 = mRS.Fields("id")
Set lbnod = TreeView1.Nodes.Add(, , "R", lb1, 1)
mRS.MoveNext
Loop
mRS.Close
End If
End Sub
首先谢谢楼下3位的热心解答.
其实我也觉得是mrs和cnmain没有定义过的问题..
但是我不知道该如何来定义它们..能说的详细些么??
我的qq:14246520 展开
3个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询