- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]下拉菜单层级不同时的输入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63641)
-- 发布时间：2015/1/25 16:28:00
-- [求助]下拉菜单层级不同时的输入
点击有最后层级的数据时，输入正确（如左图），但点击只有第二层级的数据时，报错（如右图，点击的是“总包”）
TreeView的NodeMouseClick事件代码如下：
Dim Vals() As String = e.Node.FullPath.Split("\\")
Dim Filter As String = "[合同类型名称] = \'" & Vals(0) & "\' And [一级合同类别名称] = \'" & Vals(1) & "\' And [二级合同类别名称] = \'" & Vals(2) & "\' And [三级合同类别名称] = \'" & Vals(3) & "\'"
Dim dr As DataRow = DataTables("合同类别").Find(Filter)
Dim r As Row = Tables("合同台账").Current
If dr.IsNull("二级合同类别名称") Then
r("合同类型") = dr("合同类型名称")
r("一级合同类别") = dr("一级合同类别名称")
e.Form.DropDownBox.Value = r("合同类型")
Else
If dr.IsNull("三级合同类别名称") Then
r("合同类型") = dr("合同类型名称")
r("一级合同类别") = dr("一级合同类别名称")
r("二级合同类别") = dr("二级合同类别名称")
e.Form.DropDownBox.Value = r("合同类型")
End If
r("合同类型") = dr("合同类型名称")
r("一级合同类别") = dr("一级合同类别名称")
r("二级合同类别") = dr("二级合同类别名称")
r("三级合同类别") = dr("三级合同类别名称")
e.Form.DropDownBox.Value = r("合同类型")
End If
e.Form.DropDownBox.CloseDropdown()| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工程项目数据管理.table |
-- 发布时间：2015/1/25 16:44:00
--
Dim dr As DataRow = e.Node.DataRow
Dim r As Row = Tables("合同台账").Current
If e.Node.Level = 0 Then
e.Form.DropDownBox.Value = dr("合同类型名称")
Else If e.Node.Level = 1 Then
r("合同类型") = dr("合同类型名称")
r("一级合同类别") = dr("一级合同类别名称")
e.Form.DropDownBox.Value = dr("合同类型名称")
Else If e.Node.Level = 2 Then
r("合同类型") = dr("合同类型名称")
r("一级合同类别") = dr("一级合同类别名称")
r("二级合同类别") = dr("二级合同类别名称")
e.Form.DropDownBox.Value = dr("合同类型名称")
Else If e.Node.Level = 3 Then
r("合同类型") = dr("合同类型名称")
r("一级合同类别") = dr("一级合同类别名称")
r("二级合同类别") = dr("二级合同类别名称")
r("三级合同类别") = dr("三级合同类别名称")
e.Form.DropDownBox.Value = dr("合同类型名称")
End If
e.form.DropDownBox.CloseDropdown
-- 发布时间：2015/1/25 18:04:00
--
非常感谢！我不是IT从业人员，每月月报需要很多数据，以前用透视表做，但还是不够方便。希望能做个简单的数据库解决统计问题，现看了一下使用手册，很多基本概念都还不太理解，以后有问题会经常请教。