[求助]窗口表格中的颜色标记问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口表格中的颜色标记问题

共有2554人关注过本帖树形打印复制链接主题：[求助]窗口表格中的颜色标记问题

81538475

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

加好友

发短信

等级：六尾狐帖子：1302 积分：10502 威望：0 精华：1 注册：2018/1/20 12:40:00

[求助]窗口表格中的颜色标记问题 发帖心情

Post By：2018/9/14 0:06:00 [显示全部帖子]

窗口表格中的drawcell 中添加下面代码，但是窗口表没有_identify 列。应该如何处理呢。。

If e.Row.IsNull("第一列") = False Then

Dim n As String = "样式" & e.Row("_Identify") & "_" & e.Col.name

Dim ary() As String = e.Row("第一列").split("|")

For Each s As String In ary

Dim a() As String = s.split(":")

If a(0) = e.Col.name Then

e.Table.DataTable.AddUserStyle(n, Color.FromARGB(a(1)), Color.black)

e.Table.DataTable.Styles(n).BackColor = Color.FromARGB(a(1))

e.style = n

Exit For

End If

81538475

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

加好友

发短信

等级：六尾狐帖子：1302 积分：10502 威望：0 精华：1 注册：2018/1/20 12:40:00

Post By：2018/9/14 9:55:00 [显示全部帖子]

哦。好的。另外。我在颜色记录列的记录是这样的职务:-1015680|数量:-65536。那我想做一个功能，就是还原颜色，如何把

某一个去掉呢，用 trim 好像不行。

[此贴子已经被作者于2018/9/14 9:58:21编辑过]

81538475

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

加好友

发短信

等级：六尾狐帖子：1302 积分：10502 威望：0 精华：1 注册：2018/1/20 12:40:00

Post By：2018/9/14 10:58:00 [显示全部帖子]

好的，多谢了。

Dim t As Table = CurrentTable

Dim str As String = CurrentTable.Current("颜色记录")

Dim ss As String = t.cols(t.ColSel).name

Dim nstr As String = ""

For Each s As String In str.split("|")

If s.StartsWith(ss) = False Then

nstr &= s & "|"

End If

t.Current("颜色记录") = NSTR

那我要是希望框选的所有单元格的颜色都还原呢。。这个应该如何处理呀。

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

主题：[求助]窗口表格中的颜色标记问题