以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]为啥colorlabel 的颜色对于drallcell 的代码没有效果呢  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148185)

--  作者:81538475
--  发布时间:2020/4/1 18:35:00
--  [求助]为啥colorlabel 的颜色对于drallcell 的代码没有效果呢
DRAcell 里面的代码 ,想根据colorlabel 的颜色改变而改变. 但是颜色无法改变,只能是初始颜色
If e.Row("转正") = True Then
            Dim clb1 As WinForm.ColorLabel = Forms("薪酬管理").Controls("ColorLabel1")
            
            Dim n As String = "转正"
            Dim n2 As String = "转正2"
            If e.Col.Name = "本次涨幅" Then
                e.Table.DataTable.AddUserStyle(n2, Clb1.BackColor , Color.red)
                e.style = n2
            Else
                e.Table.DataTable.AddUserStyle(n, clb1.BackColor , Color.black)
                e.style = n
            End If
            
            
            
        End If


--  作者:有点蓝
--  发布时间:2020/4/2 9:07:00
--  
Clb1.BackColor
改为
Clb1.Color

--  作者:81538475
--  发布时间:2020/4/2 9:37:00
--  
也没有效果.这两个都试了
--  作者:有点蓝
--  发布时间:2020/4/2 10:37:00
--  
上传实例说明
--  作者:81538475
--  发布时间:2020/4/2 10:41:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


--  作者:81538475
--  发布时间:2020/4/2 11:24:00
--  
老大帮忙看看


--  作者:有点蓝
--  发布时间:2020/4/2 13:44:00
--  
代码没有问题。应该是逻辑错了,具体要做什么判断?实现什么效果?
--  作者:81538475
--  发布时间:2020/4/2 14:46:00
--  
就是修改上面的颜色之后,表中的颜色会随之改变.现在改变上面的颜色,表中的颜色不会变
重新上传一下,单一的代码
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb

[此贴子已经被作者于2020/4/2 14:49:33编辑过]

--  作者:有点蓝
--  发布时间:2020/4/2 16:58:00
--  
到颜色控件的valuechanged事件写代码
DataTables("表A").styles("1").forecolor = e.Sender.Color