- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]对表格判断选取颜色 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76832)
-- 发布时间：2015/11/5 19:15:00
-- [求助]对表格判断选取颜色
以下代码我对对表格进行了判断选取颜色，选中单行时是达到效果，但是在鼠标拉选时 定义颜色列就如图所示，请问怎么样在鼠标拉选是也可以像只单选行的效果为"锁定列选择行颜色" ，未选中的颜色为"锁定列颜色"
此主题相关图片如下：qq截图20151105190753.png
If Tables("临时表").Current.Index = e.Row.Index then
end if
-- 发布时间：2015/11/5 19:26:00
--
1、不能用风格。
标题区和选定区的背景颜色设置，只有在表属性中的“使用界面风格”设置为False的时候，才会生效。
2、上传例子说明
-- 发布时间：2015/11/5 20:27:00
-- 回复：（大红袍）1、不能用风格。 标题区和选...
风格是关闭的
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.rar |
-- 发布时间：2015/11/5 20:45:00
--
If e.Table.BottomPosition - e.Table.TopPosition = 0 Then
If e.Col.Name = "第三列" OrElse e.Col.Name = "第二列" Then
If e.Table.Current.Index = e.Row.Index Then
e.Style = "锁定列选择行颜色"
Else
e.Style = "锁定列颜色"
End If
End If
Else
If e.Col.Name = "第三列" OrElse e.Col.Name = "第二列" Then
If e.Table.TopPosition <= e.Row.Index AndAlso e.Table.BottomPosition >= e.Row.Index Then
If e.Table.LeftCol <= e.Col.Index AndAlso e.Table.RightCol >= e.Col.Index Then
e.Style = "锁定列选择行颜色"
e.Table.Refresh
Else
e.Style = "锁定列颜色"
End If
Else
e.Style = "锁定列颜色"
End If
End If
End If