- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教一下 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6898)
-- 发布时间：2010/5/1 10:55:00
-- 请教一下
一、我想在根据“科目代码”和“科目名称”列 自动生成“科目名称全称”列 如下：
213 农林水事务 农林水事务
21301 农业支出 农林水事务-农业支出
2130101 农业行政运行 农林水事务-农业支出-农业行政运行
这公式如何设置？
二、讲各位进“项目明细”表看一下。。。还有其他方法设置目录树（一题多解） ？ 想学一下其他目录树设置方法 (表列目可减少)
目录树必须 包括代码和名称 如：
此主题相关图片如下：科目.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:科目.rar |
将mr725 东西改了下。。。。他山之石可攻玉
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:科目.table |
[此贴子已经被作者于2010-5-4 21:07:51编辑过]
-- 发布时间：2010/5/1 14:16:00
--
5。1各各都出去玩了啊》》》》》》》》。。。
-- 发布时间：2010/5/3 9:32:00
--
会的帮一下》。。。。。。。。。。。。。。。。。。。。
-- 发布时间：2010/5/3 19:16:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:科目.rar |
-- 发布时间：2010/5/4 0:22:00
--
3Q 不过还有一个小问题请教一下：将按键命放DataColChanged 好象每输入一行最后全称 不会自动更新，要换行 才更新，，是不是我放错地方了
如输入:2130101 农业行政运行 后面只显示 " 农林水事务-农业支出- " 这个“ 农业行政运行” 没即时显示 要换行输入其他后才出
“ 农林水事务-农业支出-农业行政运行”
-- 发布时间：2010/5/4 22:38:00
--
放DataColChanged 中只要加入这段即可：
Dim dr1 As DataRow
Select Case e.DataCol.Name
............
.............
Case "科目名称"
if dr("级次") =1 Then
e.DataRow("科目全称") = e.DataRow("科目名称")
ElseIf dr("级次") =2 Then
dr1 = DataTables("预算科目设置").Find("科目代码_全称 = \'" & e.DataRow("上层ID") & "\'")
if dr1 isnot nothing \'如果是一行行输入的，加个提示更好···
If e.DataRow.Isnull("科目名称")
e.DataRow("科目全称") = ""
else
e.DataRow("科目全称") =dr1("科目全称") & "-" & e.DataRow("科目名称")
end if
end if
ElseIf dr("级次") =3 Then
dr1 = DataTables("预算科目设置").Find("科目代码_全称 = \'" & e.DataRow("上层ID") & "\'")
if dr1 isnot nothing
If e.DataRow.Isnull("科目名称")
e.DataRow("科目全称") = ""
else
e.DataRow("科目全称") =dr1("科目全称") & "-" & e.DataRow("科目名称")
end if
end if
End If
End Select
[此贴子已经被作者于2010-5-4 22:38:03编辑过]