Dim trv As WinForm.TreeView = Forms("工资").Controls("TreeView1")
Dim nd As WinForm.TreeNode = trv.SelectedNode
Dim str0 As String=trv.SelectedNode.fullpath '记下原始节点名称
Messagebos.show("看看是不是等于1:" & vars("temp1"))
Select Case vars("temp1")
Case "1" '增加根节点
MessageBox.show("等于1，所以执行了")
nd = trv.Nodes.Add(e.Form.Controls("TextBox1").text )
Dim dr As DataRow = DataTables("工资表").AddNew
dr("工资表名") = nd
dr("设置") = "字段名"
Dim dr1 As DataRow = DataTables("工资表").AddNew
[此贴子已经被作者于2012-9-3 8:09:12编辑过]
加好友 
发短信
Post By：2012/9/3 8:09:00 [显示全部帖子]
