单元格底色 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 单元格底色

共有6244人关注过本帖树形打印复制链接主题：单元格底色

有点蓝

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107896 积分：548849 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/15 21:10:00 [只看该作者]

没有办法保存的。

只能这样，专门建一个表，保存哪个表哪个行哪个列的单元格是什么颜色。然后在AfterOpenProject事件，遍历这个的数据给所有设置的单元格重新设置一遍样式颜色

shqpldczj

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：129 积分：1180 威望：0 精华：0 注册：2016/4/6 14:05:00

颜色备注

Post By：2022/9/15 21:59:00 [只看该作者]

我现在查了帖子新建了一个表背景批注存放表名行号和背景

菜单的帖子颜色选取按钮我参照的代码

Dim tname As String = CurrentTable.Name

Dim hk As Integer = CurrentTable.Current("_Identify")

Dim cname As String = CurrentTable.Cols(CurrentTable.ColSel).Name

Dim dr As DataRow = DataTables("背景批注").Find("表名 = '" & tname & "' and 行号 = " & hk )

If dr Is Nothing Then

dr = DataTables("背景批注").AddNew

dr("表名") = tname

dr("行号") = hk

End If

Dim sColor As String = dr("背景")

Dim Values() As String = sColor.Split("|")

For Index As Integer = 0 To Values.Length - 1

If cname = Values(Index).Split(",")(0) Then

sColor = sColor.replace(Values(Index),"")

Exit For

End If

sColor = sColor.Trim("|") & "|" & cName & "," & e.ColorPicker.Color.Toargb

e.ColorPicker.Color=Color.white

dr("背景") = sColor.Trim("|")

DataTables("背景批注").save

背景批注表里有新增的记录，但是当前表的单元格还是不变色。我下载的例子是可以变的真奇怪了，我看例子的库有内部函数我也照抄了

有点蓝

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107896 积分：548849 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/15 22:15:00 [只看该作者]

在AfterOpenProject事件，遍历这个的数据给所有设置的单元格重新设置一遍样式颜色

shqpldczj

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：129 积分：1180 威望：0 精华：0 注册：2016/4/6 14:05:00

实例

Post By：2022/9/15 22:39:00 [只看该作者]

这个实例里afteropenproject只是设定了maintable也没有遍历，全局表事件里drawcell写了

'背景色和批注

Dim dr As DataRow = DataTables("背景批注").Find("表名 = '" & e.Table.Name & "' and 行号 = '" & e.Row("_Identify") & "'")

If dr IsNot Nothing Then

'背景色

Dim Yanse As String = dr("背景")

Dim YSs() As String = Yanse.split("|")

For Index As Integer = 0 To YSs.Length - 1

Dim YSInfo() As String = YSs(Index).split(",")

If e.Col.Name = YSInfo(0) Then

Dim br2 As Brush = New SolidBrush(Color.FromARGB(YSInfo(1)))

Functions.Execute("ToYanse",e,br2)

End If

'批注

Dim Pizhu As String = dr("批注")

Dim PZs() As String = Pizhu.split("|")

For Index As Integer = 0 To PZs.Length - 1

Dim PZInfo() As String = PZs(Index).split(",")

If e.Col.Name = PZInfo(0) Then

Functions.Execute("ToPiZhu",e)

End If

我也照做了还是不行

下载信息 [文件大小：下载次数： ]
点击浏览该文件:g.foxdb

有点蓝

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107896 积分：548849 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/15 22:48:00 [只看该作者]

没有问题呀。按什么步骤测试

shqpldczj

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：129 积分：1180 威望：0 精华：0 注册：2016/4/6 14:05:00

应该是项目打开时的默认主表的关系 发帖心情

Post By：2022/9/16 8:35:00 [只看该作者]

我的项目就是现在这样我项目打开

下载信息 [文件大小：下载次数： ]
点击浏览该文件:g.foxdb

默认是main表，菜单上窗口2打开加载的是合同表这时我点添加背景就不能变色了

有点蓝

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107896 积分：548849 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/16 8:40:00 [只看该作者]

测试没有问题呀。添加背景后，点击其它单元格就看到了

shqpldczj

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：129 积分：1180 威望：0 精华：0 注册：2016/4/6 14:05:00

郁闷了

Post By：2022/9/16 9:48:00 [只看该作者]

这些代码也实在看不懂只能照搬

下载信息 [文件大小：下载次数： ]
点击浏览该文件:项目事件.txt

，在我的项目里就是不行我把代码输出了，麻烦看看哪里不对

[此贴子已经被作者于2022/9/16 10:01:05编辑过]

有点蓝

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107896 积分：548849 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/16 9:54:00 [只看该作者]

把合同表的样式改为“Foxtable经典蓝”

shqpldczj

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：129 积分：1180 威望：0 精华：0 注册：2016/4/6 14:05:00

麻烦看一下代码 发帖心情

Post By：2022/9/16 10:13:00 [只看该作者]

发你的例子是可以的，但是我在自己的项目里照搬就不行了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:项目事件.txt

下一主题 >> << 上一主题

总数 27 上一页 1 2 3 下一页

主题：单元格底色