一个treeview控件关联了数据表,已经展开,现在更改了数据表的内容,想同时更改相应节点的内容,如何实现?谢谢!
解决方案 »
- 问:使用Connection.Execute(SQL语句)返回的记录集是哪种类型(动态,键集,静态)?
- vb程序自启动问题
- vsflexgrid简单问题,求助!!!
- 菜鸟问题:在FORM窗体中的AutoRedraw属性是什么意思?
- 怎样确定类型?
- 如何删除关联的表的记录?100分求助
- 在VB6.0里可以把数据批量插入到Excel中吗?
- 等了3天啦,还没有解决问题,CSDN上就没有人会这个问题吗?about ture type font
- 我在VB中引用了"Microsoft DAO2.5/3.5 compatibility Library",请问在做安装程序时要添加什么DLL和库文件?
- 送分题,快来看呀!!!
- 老问题,有人会控制打印机进纸、退纸吗?
- 制作安装程序,如何打包SQL数据库?????
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=Report;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from table1", CN, adOpenDynamic, adLockBatchOptimistic
Rs.MoveFirst
Do While Not Rs.EOF
Select Case Len(Trim(Rs.Fields("lno")))
Case 3
TreeView1.Nodes.Add , , "key" & Trim(Rs.Fields("lno")), Rs.Fields("lname")
Case 5
TreeView1.Nodes.Add "key" & Left(Trim(Rs.Fields("lno")), 3), tvwChild, "key" & Trim(Rs.Fields("lno")), Rs.Fields("lname")
Case 7
TreeView1.Nodes.Add "key" & Left(Trim(Rs.Fields("lno")), 5), tvwChild, "key" & Trim(Rs.Fields("lno")), Rs.Fields("lname")
End Select
Rs.MoveNext
Loop
Rs.Close
CN.Close
For I = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(I).Expanded = True
Next