[浏览完整版]
标题：目录树
1楼
lihe60 发表于：2009/6/10 10:20:002楼
blackzhu 发表于：2009/6/10 10:47:00你要干嘛,起什么作用,看不懂
3楼
狐狸爸爸 发表于：2009/6/10 10:57:00我也看不懂，你得告诉大家，你的目的是什么。
4楼
lihe60 发表于：2009/6/10 11:30:00
|
"籍贯"表窗口的命令按钮.选择目录树中的一级节点,不会增加省份名称.目的是会增加省份名称. |
5楼
狐狸爸爸 发表于：2009/6/10 11:34:00搞得这么复杂干啥，直接在表中增加。
目录树本来就是根据表生成的。
目录树本来就是根据表生成的。
6楼
lihe60 发表于：2009/6/10 12:05:00籍贯表窗口代码什么地方有问题?
7楼
lihe60 发表于：2009/6/10 12:32:00按一下按钮,不能增加省份.
8楼
lihe60 发表于：2009/6/10 14:15:00谁能伸出援助之手.
9楼
狐狸爸爸 发表于：2009/6/10 14:45:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目87.table |
10楼
lihe60 发表于：2009/6/10 15:11:00dim trv as winform.treeview=e.form.controls("tv1")
dim nd as winform.treenode=trv.selectednode
dim pnd as winform.treenode=trv.selectednode.ParentNode
dim ppnd as winform.treenode=trv.selectednode.ParentNode.ParentNode
Dim txt As WinForm.TextBox = e.Form.Controls("TB1")
dim dr as datarow
Dim Value As Integer=trv.selectednode.Level
Select Case Value
Case 0
dr=datatables("jg").find("sheng = '" & txt.value & "'")
if dr is nothing then
dr=datatables("jg").addnew()
dr("sheng") = txt.value
trv.nodes.add(txt.value,txt.value)
end if
Case 1
if nd is nothing then
return
end if
dr=datatables("jg").find("xian= '" & nd.text & "' and xian= '" & txt.value & "'")
if dr is nothing then
dr=datatables("jg").addnew()
dr("sheng")=pnd.text
dr("xian")=txt.value
nd.nodes.add(txt.value,txt.value)
end if
case 2
if nd is nothing then
return
end if
dr=datatables("jg").find("xiang= '" & nd.text & "' and xiang= '" & txt.value & "'")
if dr is nothing then
dr=datatables("jg").addnew()
dr("sheng")=ppnd.text
dr("xian")=pnd.text
dr("xiang")=txt.value
nd.nodes.add(txt.value,txt.value)
end if
End Select
上述代码如果不删除"dim ppnd as winform.treenode=trv.selectednode.ParentNode.ParentNode"代码,则不同增加省份,是什么原因?
dim nd as winform.treenode=trv.selectednode
dim pnd as winform.treenode=trv.selectednode.ParentNode
dim ppnd as winform.treenode=trv.selectednode.ParentNode.ParentNode
Dim txt As WinForm.TextBox = e.Form.Controls("TB1")
dim dr as datarow
Dim Value As Integer=trv.selectednode.Level
Select Case Value
Case 0
dr=datatables("jg").find("sheng = '" & txt.value & "'")
if dr is nothing then
dr=datatables("jg").addnew()
dr("sheng") = txt.value
trv.nodes.add(txt.value,txt.value)
end if
Case 1
if nd is nothing then
return
end if
dr=datatables("jg").find("xian= '" & nd.text & "' and xian= '" & txt.value & "'")
if dr is nothing then
dr=datatables("jg").addnew()
dr("sheng")=pnd.text
dr("xian")=txt.value
nd.nodes.add(txt.value,txt.value)
end if
case 2
if nd is nothing then
return
end if
dr=datatables("jg").find("xiang= '" & nd.text & "' and xiang= '" & txt.value & "'")
if dr is nothing then
dr=datatables("jg").addnew()
dr("sheng")=ppnd.text
dr("xian")=pnd.text
dr("xiang")=txt.value
nd.nodes.add(txt.value,txt.value)
end if
End Select
上述代码如果不删除"dim ppnd as winform.treenode=trv.selectednode.ParentNode.ParentNode"代码,则不同增加省份,是什么原因?