- 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=185691)
-- 发布时间：2023/3/10 15:01:00
-- 项目明细表父级整行变色
老师，我做了一个项目明细表如图1，我想让父级的整行颜色变为黄色，可以从哪里看呢？谢谢
此主题相关图片如下：1.jpg
-- 发布时间：2023/3/10 15:22:00
--
-- 发布时间：2023/3/11 16:51:00
--
老师，按照帮忙设置，咋提示没有备注这一列呢？这个备注列系统里有的，如图2
窗口表事件：afterload
DataTables("项目明细总表_项目分表").AddUserStyle("大节点", Color.blue, Color.White)
窗口表事件：DrawCell
If e.Row("备注") = "大节点" Then
e.Style = "大节点"
End If
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
[此贴子已经被作者于2023/3/11 16:51:52编辑过]
-- 发布时间：2023/3/11 17:29:00
--
提示是不变骗人的，表格是动态绑定的吧
If e.table.cols.contains("备注") andalso e.Row("备注") = "大节点" Then
e.Style = "大节点"
End If
-- 发布时间：2023/3/12 10:05:00
--
老师，我是用这个查询出来的！点击主表然后用下面这个代码查询的
Dim Filter1 As String
With e.Form.Controls("单据编码1")
If .Value IsNot Nothing Then
If Filter1 >"" Then
Filter1 = Filter1 & " And "
End If
Filter1 = Filter1 & "项目编码 = \'" & .Value & "\'"
End If
End With
If Filter1 >"" Then
e.Form.controls("项目分表").Table.DataTable.LoadPage = 0
e.Form.controls("项目分表").Table.DataTable.LoadFilter = Filter1
e.Form.controls("项目分表").Table.DataTable.Load
End If
With Tables("项目明细总表_项目分表")
.Select(.RowSel, .Cols("编制日期").Index)
End With
Dim st As New LayerTreeSetting
st.PathCol = "节点编码"
st.Lengths = {2} \'指定各级长度,这里每级的长度都是2
st.TreeCol = "节点内容"
Tables("项目明细总表_项目分表").ShowGridTree(st)
-- 发布时间：2023/3/12 20:34:00
--
老师，按照4楼的代码设置后还是不行整行显示，也没有提示！
-- 发布时间：2023/3/12 20:47:00
--
请上传实例说明
-- 发布时间：2023/3/13 8:35:00
--
谢谢老师，我找到原因了！