如何在VB中读取treeview最内层的节点的值
做一个对excel自动评分（自动修改题目要求）系统
1、通过combo1查找数据库(PP.mdb有源码）的代码（自定义的函数的信息），并且单击增加评分条件按钮，把combo1内的数据赋值给评分节点的子节点
2、把treeview最内层节点值（即评分下节点的值）读取，并给它赋值给某变量或数组，
3、变量或数组通过调用自定义函数，达到评分的效果
4、给出得分情况
问题是：
2~4过程如何实现
Private Sub 增加节点__Click()
'Add a node using tvwChild
Dim oNodex As Node
Dim skey As String
Dim iIndex As Integer
On Error GoTo myerr 'if the treeview does not have a node selected
' the next line of code will return an error number 91
iIndex = TreeView1.SelectedItem.Index 'Check to see if a Node is selected
Set oNodex = TreeView1.Nodes.Add(iIndex, tvwChild, skey, Combo1.Text, 1, 2)
oNodex.EnsureVisible 'make sure the child node is visible
Exit Sub
myerr:
'Display a messge telling the user to select a node
MsgBox ("You must select a Node to do an Add Child" & vbCrLf _
& "If the TreeView is empty us Add Last to create the first node")
Exit Sub
End Sub
Private Sub 删除 _Click()
'Remove the selected Node
Dim iIndex As Integer
On Error GoTo myerr 'if the treeview does not have a node selected
' the next line of code will return an error numbe
相关问答：
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
如题，VB中如何实现一PC控制N台PC机的开关机或者其他命令呢？
这个问题有点大哦.如不能在其它机器上也装程序的话,那只要看他们有没配置有远程控制开关机了
如果是那种客户/服务端的方式 ，就是被控制PC也需要安� ......
刚建了一个群:中山VB编程(105787219)
有在中山及中山周边的程序员请加入.大家一起探讨问题.合作项目.
尽管俺不是中山的，也进来蹭分……
佛山的行吗,广州的行吗?
友情支持
回复内容太短了！
帮顶 ......
