以文本方式查看主题

-  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=173481)

--  作者:rjh4078
--  发布时间:2021/12/1 14:57:00
--  折叠行赋值的问题
如何给折叠的父行的某些列赋值
--  作者:有点蓝
--  发布时间:2021/12/1 15:01:00
--  
和普通行列的用法完全一样
--  作者:rjh4078
--  发布时间:2021/12/1 15:14:00
--  
用什么方法获取折叠行呢,就是没有行号的行.帮助里没有找到方法,我用下列代码来赋值,没有任何作用


Dim st As New GroupTreeSetting()

st.GroupCols = {"产品编号","交货日期"}
st.AggregateCols = {"总重","交货数"}
Tables("计划明细").ShowGridTree(st,1)\'
For Each r As Row In Tables("计划明细")
    \' output.show(r.Hierarchy & "/" & r.Index)
    If r.Hierarchy=-1 Then
r("库位")="test"
        Dim dr As DataRow=DataTables("计划明细").find("产品编号=\'" & r("产品编号") & "\' and 库位<>\'\'")        
        If dr IsNot Nothing Then
            output.show(dr("库位"))
            r("库位")=dr("库位")
        End If
    End If
Next


红色代码没有按预期生效  蓝色代码是有值返回的,但是紫色代码部分也没生效

--  作者:rjh4078
--  发布时间:2021/12/1 15:51:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20211107193926.png
图片点击可在新窗口打开查看

这个GridTreeVisible是false 对吗?

--  作者:rjh4078
--  发布时间:2021/12/1 15:57:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20211201155550.png
图片点击可在新窗口打开查看

想要获取图中标记的行并且赋值给对应的列用什么方法?

--  作者:有点蓝
--  发布时间:2021/12/1 16:09:00
--  
这种使用汇总模式处理:http://www.foxtable.com/webhelp/topics/1594.htm
--  作者:rjh4078
--  发布时间:2021/12/1 21:42:00
--  
感谢老师