- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]字体的颜色可以保存，那么单元格的颜色呢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109513)
-- 发布时间：2017/11/13 20:52:00
-- [求助]字体的颜色可以保存，那么单元格的颜色呢
求助：在一个表格中，点击修改标记按钮后，该单元格的字体颜色变为红色，表、行、列、颜色信息保存到表B中，那么单元格颜色信息怎么保存？
修订标记按钮代码：
If Functions.Execute("ShouQuan","设置","词典") Then
Dim t As String = CurrentTable.Name
Dim r As String = CurrentTable.Current("_Identify")
Dim c As String = CurrentTable.Cols(CurrentTable.ColSel).Name
Dim filter As String = "表 = \'" & t & "\' and 行 = \'" & r & "\' and 列 = \'" & c & "\'"
Dim fdr As DataRow = DataTables("表B").Find(filter)
If fdr Is Nothing Then
fdr = DataTables("表B").AddNew
fdr("表") = t
fdr("行") = r
fdr("列") = c
End If
fdr("颜色") = Color.red.ToArgb
Tables("人员编制及到位人员").save()
Else
msgbox("权限不足!")
End If
单元格颜色怎么设置颜色？保存到表B中？
-- 发布时间：2017/11/13 23:42:00
--
字体的颜色、单元格的颜色，都是一样的意思，多加一个列保存单元格颜色不就好了？
或者，参考这种方法 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100242&skin=0
-- 发布时间：2017/11/14 21:12:00
-- [求助]
请问按照我的方法，单元格的颜色怎么保存？思路我懂了，就是单元格颜色保存代码不知道怎么写？谢谢了
-- 发布时间：2017/11/14 21:17:00
--
直接保存为某一种颜色不就好了？
fdr("单元格颜色") = Color.Yellow.ToArgb
-- 发布时间：2017/11/14 21:17:00
--
具体例子发上来说明你要做的功能。
-- 发布时间：2017/11/15 17:38:00
-- [求助]
想点击标记红色，则单元格为黄色，字体为红色。谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:单元格及字体颜色标记.foxdb |
当点击标记绿色，则单元格为白色，字体为绿色，谢谢
[此贴子已经被作者于2017/11/15 17:46:23编辑过]
-- 发布时间：2017/11/15 17:49:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:单元格及字体颜色标记.foxdb |
-- 发布时间：2017/11/17 20:50:00
--
感谢甜老师指导，搞定。
[此贴子已经被作者于2017/11/17 21:04:21编辑过]