以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=144788)
--  作者：wangweizf
--  发布时间：2019/12/30 10:29:00
--  代码
帮助文件是两级的，如何展开多阶 3阶以上的。自己琢磨了很久
[此贴子已经被作者于2020/3/23 19:37:28编辑过]
--  作者：wei0769
--  发布时间：2019/12/30 10:44:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2019/12/30 10:59:00
--  
比如：http://www.foxtable.com/webhelp/topics/2502.htm
--  作者：wangweizf
--  发布时间：2019/12/31 10:50:00
--  
还是只有一阶的数据出来，求助！！！
自定义函数代码：
Dim nm As String = args(0)
Dim dt As DataTable = args(1)
Dim vl As Single = args(2)
Dim drs As List(of DataRow)
drs = dt.SQLSelect("Ib01 = nm")
For Each dr2 As DataRow In drs
    Dim nm1 As String = dr2("Ib03")
    Dim vl1 As Single = vl * dr2("Ib04") / dr2("Ib05")
    Dim dr1 As DataRow = DataTables("WLXQB").AddNew()
    dr1("WLBM") = nm1
    dr1("XQSL") = vl1
    If dt.SQLSelect("Ib01 = nm") IsNot Nothing Then
        Functions.Execute("BOMZHYL",nm1,dt,vl1)
    End If
Next

填入按钮代码：
DataTables("WLXQB").DataRows.Clear()
For Each dr1 As DataRow In DataTables("CPJHB").DataRows
    For Each dr2 As DataRow In DataTables("MRPBOM").SQLSelect("Ib01 = \'" & dr1("PH") & "\'")
        Dim nm As String = dr2("Ib03")
        Dim vl As Single = dr1("SL") * dr2("Ib04") / dr2("Ib05")
        Dim dr As DataRow = DataTables("WLXQB").AddNew()
        dr("WLBM") = nm
        dr("XQSL") = vl
        If DataTables("MRPBOM").SQLSelect("Ib01 = nm") IsNot Nothing Then
            Dim dt As DataTable = DataTables("MRPBOM")
            Functions.Execute("BOMZHYL",nm,dt,vl)
        End If
    Next
Next
--  作者：有点蓝
--  发布时间：2019/12/31 10:59:00
--  
还是只有一阶的数据出来，求助！！！
自定义函数代码：
Dim nm As String = args(0)
Dim dt As DataTable = args(1)
Dim vl As Single = args(2)
Dim drs As List(of DataRow)
drs = dt.SQLSelect("Ib01 = \'" & nm & "\'")
For Each dr2 As DataRow In drs
    Dim nm1 As String = dr2("Ib03")
    Dim vl1 As Single = vl * dr2("Ib04") / dr2("Ib05")
    Dim dr1 As DataRow = DataTables("WLXQB").AddNew()
    dr1("WLBM") = nm1
    dr1("XQSL") = vl1
    If dt.SQLSelect("Ib01 = \'" & nm1 & "\'") IsNot Nothing Then
        Functions.Execute("BOMZHYL",nm1,dt,vl1)
    End If
Next

填入按钮代码：
DataTables("WLXQB").DataRows.Clear()
For Each dr1 As DataRow In DataTables("CPJHB").DataRows
    For Each dr2 As DataRow In DataTables("MRPBOM").SQLSelect("Ib01 = \'" & dr1("PH") & "\'")
        Dim nm As String = dr2("Ib03")
        Dim vl As Single = dr1("SL") * dr2("Ib04") / dr2("Ib05")
        Dim dr As DataRow = DataTables("WLXQB").AddNew()
        dr("WLBM") = nm
        dr("XQSL") = vl
        If DataTables("MRPBOM").SQLSelect("Ib01 = \'" & nm & "\'") IsNot Nothing Then
            Dim dt As DataTable = DataTables("MRPBOM")
            Functions.Execute("BOMZHYL",nm,dt,vl)
        End If
    Next
Next