主题：请教一下

一、我想在根据“科目代码”和“科目名称”列  自动生成“科目名称全称”列 如下：
213        农林水事务            农林水事务
21301     农业支出              农林水事务-农业支出
2130101 农业行政运行         农林水事务-农业支出-农业行政运行
 这公式如何设置？


二、讲各位进“项目明细”表看一下。。。还有其他方法设置目录树（一题多解） ？ 想学一下其他目录树设置方法 (表列目可减少)
  目录树必须  包括代码和名称  如：   

此主题相关图片如下：科目.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:科目.rar

                            将mr725  东西改了下。。。。他山之石可攻玉

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:科目.table

5。1各各都出去玩了啊》》》》》》》》。。。

会的帮一下》。。。。。。。。。。。。。。。。。。。。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:科目.rar

3Q   不过还有一个小问题请教一下：将按键命放DataColChanged   好象每输入一行最后全称 不会自动更新，要换行 才更新，，是不是我放错地方了

         如输入:2130101 农业行政运行     后面只显示  "  农林水事务-农业支出-  "         这个“  农业行政运行”  没即时显示  要换行输入其他后才出

    “ 农林水事务-农业支出-农业行政运行” 

放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