[求助]自定义样式统一设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]自定义样式统一设置

共有244人关注过本帖树形打印复制链接主题：[求助]自定义样式统一设置

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00

[求助]自定义样式统一设置 发帖心情

Post By：2024/11/15 18:32:00 [显示全部帖子]

在项目AfterOpenProject事件中设置了以下代码

For Each t As DataTable In DataTables

t.AddUserStyle("红色", Color.Red, Color.White)

t.AddUserStyle("橙色", Color.Orange, Color.White)

t.AddUserStyle("黄色", Color.Yellow, Color.White)

t.AddUserStyle("绿色", Color.Green, Color.White)

然后在全局表事件DrawCell中如下设置

Select Case e.Table.Name
Case "测试数据","示例_Table1"
If e.Col.Name = "本期销售" Then
If e.Row.IsNull(e.Col.Name) = False Then
If e.Row("本期销售") < 80 Then
e.Style = "橙色"
End If
End If
End If
End Select

其中"测试数据"是项目固定的表，"示例_Table1"是窗口统计生成的，但上述设置对"测试数据"有效，对"示例_Table1"无效，不知什么原因。"示例_Table1"代码如下

Dim b As New SQLGroupTableBuilder("统计表1", "测试数据")

b.C

b.Groups.AddDef("年份")

b.Groups.AddDef("月份")

b.Totals.AddDef("本期销售")

b.Totals.AddDef("同期销售")

b.Build

Tables("示例_Table1").DataSource = DataTables("统计表1")

Dim t As Table = Tables("示例_Table1")

t.DataTable.GlobalHandler.DrawCell = True

[此贴子已经被作者于2024/11/15 18:54:31编辑过]

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2024/11/16 9:43:00 [显示全部帖子]

不是这个原因，这些都测过，经反复测试是窗口设置的问题，必须得自动打开为true才有效

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2024/11/16 11:42:00 [显示全部帖子]

在菜单中弄了个自定义表样式，如何实现选择样式后能保存住，下次进系统不需要重新选择

此主题相关图片如下：微信图片_20241116113735.png

[此贴子已经被作者于2024/11/16 11:43:16编辑过]

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2024/11/16 14:40:00 [显示全部帖子]

我在组合框的SelectedIndexChanged事件中如下设置

If e.ComboBox.Text.Length > 0 Then

SaveConfigValue("xtys", e.ComboBox.Text)

Else

SaveConfigValue("mrxtys", e.ComboBox.Text)

End if

然后在AfterOpenProject事件中如下设置，结果还是不行

GetConfigValue("xtys","mrxtys")

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2024/11/17 11:24:00 [显示全部帖子]

MainTableChanged事件

Dim dr1 As DataRow

Dim dr2 As DataRow

dr1 = DataTables("自定义样式配置表").Find("表名 ='" & MainTable.Name & "' and 系统内置表样式 is not null and 设置人 ='" & _UserName & "'")

dr2 = DataTables("自定义样式配置表").Find("表名 ='" & MainTable.Name & "' and 自定义表样式 is not null and 设置人 ='" & _UserName & "'")

If dr1 IsNot Nothing Then

RibbonTabs("hlcz").Groups("bcz").Items("zdybdys").Items("xtbdys").Text = dr1("系统内置表样式")

MainTable.Theme = dr1("系统内置表样式")

ElseIf dr2 IsNot Nothing Then

RibbonTabs("hlcz").Groups("bcz").Items("zdybdys").Items("zdybys").Text = dr2("自定义表样式")

MainTable.Theme = dr2("自定义表样式")

End If

系统内置表样式没有问题，自定义表样式是自己整的一个样式，在菜单中选择设置时也没有问题，但设置完成后切换到其他表再切换回来时就提示错误

此主题相关图片如下：微信图片_20241117112320.png

另外，下面这两种也有同样问题

Tables("表A").Theme = "(none)"
Tables("表B").Theme = "(default)"

[此贴子已经被作者于2024/11/17 12:21:58编辑过]

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2024/11/18 17:21:00 [显示全部帖子]

我光标已定位在了table的第一个单元格，想做个模拟鼠标单击的动作，这个模拟鼠标单击的代码要怎么写。用下面这个方法这鼠标位置不好确定，有时会超出table的区域范围

SetCursorPos (500, 500) '鼠标位置
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) '点击
mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2024/11/18 18:20:00 [显示全部帖子]

在弄窗口table自定义样式的时候，生成table时没有生效，需要点击下单元格才生效，应该是CurrentTable 的问题吧。以下代码放在了一个函数里

Dim t As Table = CurrentTable

t.DataTable.SysStyles("Subtotal0").BackColor = Color.HotPink

t.DataTable.SysStyles("Subtotal0").FontBold = True

t.DataTable.SysStyles("Subtotal1").BackColor = Color.DarkOrchid

t.DataTable.SysStyles("Subtotal1").FontBold = True

t.DataTable.SysStyles("GrandTotal").BackColor = Color.Tomato

t.DataTable.SysStyles("GrandTotal").FontBold = True

[此贴子已经被作者于2024/11/18 18:34:40编辑过]

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2024/11/20 11:33:00 [显示全部帖子]

单元格图表能导出来吗

此主题相关图片如下：1c7d0733-264d-4c36-9c5c-5f22bea3f932.png

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

主题：[求助]自定义样式统一设置