关于treeview从数据库里取数的问题

[cedvfr]

我是一个新手 我想实现的功能是 在一个form1中的text文本框点击ctrl后调出form2 form2里就一个treeview控件窗体加载的时候将库里的值写进treeview的节点然后点击某个节点就将节点的值赋给text文本框
我现在卡在如何从库里将数据赋给treeview节点 我知道是add方法 但是这是从数据库里取 我只会写成固定的数 忘各位大侠指点一下

[ahljxwy]

循环记录集

[cedvfr]

ahljxwy 可以写一两句吗 我不懂啊 库是test 表是 abc 取字段是 no

[jhone99]

你知道赋给treeview节点 add方法
知道从数据库里取
*************************
两个组合不就可以了

[jhone99]

[Quote=引用 3 楼 ahljxwy 的回复:]
循环记录集
[/Quote]

while not rs.eof
……add …… rs.fields("id")……
rs.movenext
wend

[cedvfr]

我用的是rdo连接
Private mrdoCon As rdoConnection
Dim mRes As rdoResultset
Dim mSQL As String
Dim curRstyle As Integer

Private Sub Form_Load()
Dim myNode As Node
Dim a As String
Dim I As Integer

treChooseReason.Style = tvwTreelinesPlusMinusPictureText
treChooseReason.LabelEdit = tvwManual

mSQL = "select Rid,Description from jcYwyy where RStyle='" & curRstyle & "'"
Set mRes = grdoCon.OpenResultset(mSQL, rdOpenKeyset, rdConcurReadOnly, rdExecDirect)
If mRes.RowCount > 0 Then
Select Case curRstyle
Case 1
a = "退货原因"
Case 2
a = "退库原因"
Case 3
a = "残次原因"
Case 4
a = "损益原因"
End Select

myNode = treChooseReason.Nodes.Add(, tvwLast, "myNode.Key", "a", 1)
I = myNode.Key
For idx = 1 To mRes.RowCount
Set myNode = treChooseReason.Nodes.Add("i", tvwChild, myNode.Key, mRes("Rid") & mRes("Description"), 1)
mRes.MoveNext
Next

End If
treChooseReason.Nodes(1).Expanded = True
End Sub
在
Set mRes = grdoCon.OpenResultset(mSQL, rdOpenKeyset, rdConcurReadOnly, rdExecDirect)
报错说with变量未设置

[zx056x]

标记一下,晚饭前没答案的话我给你做,可怜的孩子

[cedvfr]

额 先谢谢啊

[cedvfr]

感谢楼上的

[mengniu001]

myNode = treChooseReason.Nodes.Add(,, "R", "a")
里 add函数 的第二个参数不是指定是建立父节点 还是兄弟节点的 省略是什么意思

[孤独剑_LPZ]

myNode = treChooseReason.Nodes.Add(,, "R", "a")
I = myNode.Key
For idx = 1 To mRes.RowCount
Set myNode = treChooseReason.Nodes.Add("R", tvwChild, "C" & cstr(idx), mRes("Rid") & mRes("Description"))
mRes.MoveNext
Next

说明:1 确保mRes("Rid") & mRes("Description")都有值,不为空
2 图标先去掉试试,没有问题再加上

[visual1989]

第二个r应该指的是建立父节点的名字，