- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 目录树 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=3084)
-- 发布时间：2009/6/10 10:20:00
-- 目录树
"籍贯"表窗口的命令按钮原来可以用,现在不能用了,请高手指点.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
-- 发布时间：2009/6/10 10:47:00
--
你要干嘛,起什么作用,看不懂
-- 发布时间：2009/6/10 10:57:00
--
我也看不懂，你得告诉大家，你的目的是什么。
-- 发布时间：2009/6/10 11:30:00
--
|
"籍贯"表窗口的命令按钮.选择目录树中的一级节点,不会增加省份名称.目的是会增加省份名称. |
-- 发布时间：2009/6/10 11:34:00
--
搞得这么复杂干啥，直接在表中增加。
目录树本来就是根据表生成的。
-- 发布时间：2009/6/10 12:05:00
--
籍贯表窗口代码什么地方有问题?
-- 发布时间：2009/6/10 12:32:00
--
按一下按钮,不能增加省份.
-- 发布时间：2009/6/10 14:15:00
--
谁能伸出援助之手.
-- 发布时间：2009/6/10 14:45:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目87.table |
-- 发布时间：2009/6/10 15:11:00
--
dim 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"代码,则不同增加省份,是什么原因?