以文本方式查看主题

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

--  作者:sunlit
--  发布时间:2018/9/15 10:27:00
--  数据行信息显示在标题行下
数据行信息显示在标题行下了,情况说明:
1:主窗口非副本表,列标题(几月几日_星期几)(二层)是按对应行中的年月计算上去BuildHeader的。
2:第二层“星期日”时的背景颜色是按星期日判断显示。
3:滚动数据时,出现数据行信息显示在标题行下的情况。现象可重复,但不影响使用。

补充:显示在标题行的重叠数据信息,还不一定是标题行下的那行的内容,感觉是残影。

能否改善?


图片点击可在新窗口打开查看此主题相关图片如下:数据行信息显示在标题行下了.png
图片点击可在新窗口打开查看
[此贴子已经被作者于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
--  
滚动表中的数据,会出现所述问题。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:多层列标题残影.foxdb


--  作者:有点蓝
--  发布时间: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
--  
好的,谢谢。