- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何实现这种效果谢谢！！！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4896)
-- 发布时间：2009/11/6 8:49:00
-- 如何实现这种效果谢谢！！！
在下拉表中选择“无”时只用一级！！！
此主题相关图片如下：1.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:rsgzglxt.rar |
-- 发布时间：2009/11/6 8:51:00
--
If e.Node.Level = 层 Then
\'代码
End If
层从0开始算，第一层为0，第二层为1
-- 发布时间：2009/11/6 9:10:00
--
选择只有一层的“无”时，无法选择！！！代码如何改？谢谢
-- 发布时间：2009/11/6 9:20:00
--
难道自己写的代码，你都没有明白？
单击“无”的时候，也就是level = 0 的时候，你直接Retun，还怎么选啊。
你加上一句：
r("单位名称") = Nothing
不就可以清除单位名称来吗？
Dim r As Row = Tables("单位基本信息录入").Current
If e.Node.Level = 0 Then \'如果是顶层节点
r("单位名称") = Nothing
Return \'则返回
End If
Dim Vals() As String = e.Node.FullPath.Split("\\")
Dim Filter As String = "[单位性质] = \'" & Vals(0) & "\' And [单位名称] = \'" & Vals(1) & "\'"
Dim dr As DataRow = DataTables("单位名称").Find(Filter)
r("单位名称") = dr("单位名称")
e.Form.Close()
-- 发布时间：2009/11/6 9:48:00
--
这样改了，还是不行！！！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:rsgzglxt.rar |
-- 发布时间：2009/11/6 10:02:00
--
版主帮帮忙，谢谢
-- 发布时间：2009/11/6 10:06:00
--
你根本就没有按照4楼修改代码。
-- 发布时间：2009/11/6 10:33:00
--
记得以前已经给他回复过这样的例子了！
-- 发布时间：2009/11/6 10:57:00
--
我改的是“单位名称目录”这个窗口！！！！
此主题相关图片如下：1.jpg
-- 发布时间：2009/11/6 11:11:00
--
你点:"无" 时要什么结果?不明白,本身无,就是没有了