以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 数据行信息显示在标题行下 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124870) |
||||
-- 作者:sunlit -- 发布时间:2018/9/15 10:27:00 -- 数据行信息显示在标题行下 数据行信息显示在标题行下了,情况说明: 1:主窗口非副本表,列标题(几月几日_星期几)(二层)是按对应行中的年月计算上去BuildHeader的。 2:第二层“星期日”时的背景颜色是按星期日判断显示。 3:滚动数据时,出现数据行信息显示在标题行下的情况。现象可重复,但不影响使用。 补充:显示在标题行的重叠数据信息,还不一定是标题行下的那行的内容,感觉是残影。 能否改善? [此贴子已经被作者于2018/9/15 10:40:20编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2018/9/15 10:41:00 -- 请上传实例说明 |
||||
-- 作者:sunlit -- 发布时间:2018/9/15 10:59:00 -- 现贴影响的代码(注释掉就没有上述问题了) 代码想实现的效果:是一个月中31列,几月几日对应星期为“星期日”时就显示 Red 颜色,其它按 transparent。 \'\'--------------------改变星期日那天列标题第1层颜色---------------------- \'For i As Integer = 1 To 31 Step 1 \'With Tables(Tbl) \'下面的 If 只是在有二层标题含星期日时显红色背景,并恢复非星期日颜色 \'If DataTables(Tbl).DataCols("Day" & format(i,"00") & "InMonth").Caption.Contains("星期日") \'.SetHeaderCellBackColor("Day" & format(i,"00") & "InMonth",Color.Red,1) \'.SetHeaderCellForeColor("Day" & format(i,"00") & "InMonth",Color.white,1) \'Else \'If DataTables(Tbl).DataCols("Day" & format(i,"00") & "InMonth").Caption.Contains("_") \'.SetHeaderCellBackColor("Day" & format(i,"00") & "InMonth",Color.transparent,1) \'.SetHeaderCellForeColor("Day" & format(i,"00") & "InMonth",Color.black,1) \'End If \'End If \'End With \'Next \'\'--------------------改变星期日那天列标题第1层颜色---------------------- 仅注释掉 SetHeaderCellBackColor 二句代码也不出现上述问题
[此贴子已经被作者于2018/9/15 11:07:05编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2018/9/15 11:17:00 -- 测试不出来你问题。请做个例子发过来看看 |
||||
-- 作者:sunlit -- 发布时间:2018/9/15 11:33:00 -- 滚动表中的数据,会出现所述问题。
|
||||
-- 作者:有点蓝 -- 发布时间:2018/9/15 11:58:00 -- .SetHeaderCellBackColor("C" & format(i,"00") & "CC",Color.transparent,1) 设置了背景透明,当然就看到后面的内容了 改为 .SetHeaderCellBackColor("C" & format(i,"00") & "CC",Color.white,1)
|
||||
-- 作者:sunlit -- 发布时间:2018/9/15 12:24:00 -- 好的,谢谢。 |