[求助]动态提示什么更改字体大小和颜色? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、在MouseEnterCell事件设置代码：

If e.Col.Name = "备注" AndAlso e.Row.IsNull("备注") = False Then
e.Table.ShowToolTip(e.Row("备注"),e.Row,e.Col)
End If

2、在MouseLeaveCell事件设置代码：

If e.Col.Name = "备注" Then
e.Table.HideToolTip()
End If

对了，大红袍老师，我有几列是锁定的，同时也绘制了相关列（整列）的颜色（灰色），因为主表数据超过2000行了，加上之前的绘制问题，感觉用绘制会有操作效率上的问题，但又不的不这么做，能不能不用代码绘制整列的颜色呢？

因为想让用户在直观上忽略浅色列。。

[此贴子已经被作者于2016/4/11 22:31:47编辑过]

我的AOP里面已经有这么多代码了。。。。

能不能简化啊？

Applicati

Forms("任务栏").open()

Syscmd.Project.Update(False,True)

If User.Type <> UserTypeEnum.Developer

TableCaptionVisible = False

End If

'解锁非正常退出时被锁定的记录

DataTables("学员信息登记表").ReplaceFor("编辑者",Nothing,"编辑者 = '" & User.Name & "'")

DataTables("学员信息登记表").Save()

Tables("学员信息登记表").Cols.Remove("编辑者") '移除编辑者列,避免用户直接修改此列

Tables("科一预约情况").Cols("姓名").DropForm = "窗口1"

Tables("科二预约情况").Cols("姓名").DropForm = "窗口2"

Tables("科二预约情况职院").Cols("姓名").DropForm = "窗口3"

Tables("科三预约情况").Cols("姓名").DropForm = "窗口4"

Tables("科三预约情况职院").Cols("姓名").DropForm = "窗口5"

Tables("科四预约情况").Cols("姓名").DropForm = "窗口6"

Tables("体检").Cols("姓名").DropForm = "窗口7"

Tables("站岗名单").Cols("姓名").DropForm = "窗口8"

Tables("学员信息登记表").Grid.Cols("第一列").style.backcolor = color.red

Tables("学员信息登记表").Grid.Cols("第二列").style.backcolor = color.red

Tables("学员信息登记表").Grid.Cols("第三列").style.backcolor = color.red

Tables("学员信息登记表").Grid.Cols("第四列").style.backcolor = color.red

[此贴子已经被作者于2016/4/11 22:46:40编辑过]

不会改，因为我对这个完全不懂，东抄西抄拼凑出来的，反正用是没问题。。

但是随着数据增多，所以想尽量优化下部分代码了。

上面代码里的8张表都需要用到那个姓名的小窗口，增加信息录入的速度的。

l老师肯定觉得我笨到一定程度了。。。

编写不在行，优化就更不用说了，一条一条堆了。

[此贴子已经被作者于2016/4/11 22:48:02编辑过]

比如这个颜色的能合并么？

Tables("学员信息登记表").Grid.Cols("第一列").style.backcolor = color.red

Tables("学员信息登记表").Grid.Cols("第二列").style.backcolor = color.red

Tables("学员信息登记表").Grid.Cols("第三列").style.backcolor = color.red

Tables("学员信息登记表").Grid.Cols("第四列").style.backcolor = color.red

果然。。。看来优化是我今后必须学习的了。

主题：[求助]动态提示什么更改字体大小和颜色?