以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树的fullpath改成fullname后此功能如何实现？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=27270)
--  作者：zpx_2012
--  发布时间：2012/12/27 9:06:00
--  目录树的fullpath改成fullname后此功能如何实现？

各位老师，

如题，在目录树的删除按钮上用fullpath没有问题,若用fullname则会报错：

 Dim pth() As String = nd.FullPath.Split("\\")

 \'Dim pth() As String = nd.FullName.Split("\\")

    Select Case nd.Level
        Case 0
            DataTables("单据流程").DeleteFor("表名= \'" & pth(0) & "\'")
        Case 1
            DataTables("单据流程").DeleteFor("表名 = \'" & pth(0) & "\' And 流程 = \'" & pth(1) & "\'")
    End Select
    nd.Delete()

 


图片点击可在新窗口打开查看此主题相关图片如下：360截图20121227090440361.jpg
图片点击可在新窗口打开查看

如果要用fullname如何修改才可以？

谢谢！
--  作者：lin_hailun
--  发布时间：2012/12/27 9:14:00
--  
 应该这样 Dim pth() As String = nd.FullName.Split(".")

 对于目录树，有一个datarow属性，也可以直接使用的。

 DataTables("单据流程").DeleteFor("表名 = \'" & nd.DataRow("表名") & "\'")
--  作者：zpx_2012
--  发布时间：2012/12/27 9:18:00
--  

原来是这样，可以了，谢谢林老师。