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

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

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

wangxingwu

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

加好友

发短信

等级：婴狐帖子：41 积分：366 威望：0 精华：0 注册：2014/9/29 10:14:00

table单元格变色 发帖心情

Post By：2014/10/10 9:19:00 [显示全部帖子]

新增行或者克隆行的时候，设置某单元格变色

wangxingwu

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

加好友

发短信

等级：婴狐帖子：41 积分：366 威望：0 精华：0 注册：2014/9/29 10:14:00

Post By：2014/10/10 17:36:00 [显示全部帖子]

以下是引用有点甜在2014-10-10 9:20:00的发言：

参考 http://www.foxtable.com/help/topics/0656.htm

如何判定是新增加行的时候“号码”列变色，保存以后颜色取消

wangxingwu

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

加好友

发短信

等级：婴狐帖子：41 积分：366 威望：0 精华：0 注册：2014/9/29 10:14:00

Post By：2014/10/10 17:47:00 [显示全部帖子]

以下是引用有点甜在2014-10-10 17:39:00的发言：

If e.Col.Name = "号码" AndAlso e.Row.DataRow.RowState = DataRowState.Added Then
e.Style = "样式1"
End If

If e.Col.Name ="号码" AndAlso e.Row.DataRow.RowState = DataRowState.Added Then
e.Style ="styleRed"
End If

新增行以后没有反应

代码是写在了drawcell事件中

[此贴子已经被作者于2014-10-10 17:48:16编辑过]

wangxingwu

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

加好友

发短信

等级：婴狐帖子：41 积分：366 威望：0 精华：0 注册：2014/9/29 10:14:00

Post By：2014/10/10 17:51:00 [显示全部帖子]

以下是引用有点甜在2014-10-10 17:48:00的发言：
你要设置自定义颜色啊

If e.Col.Name ="号码" then

e.Style ="styleRed"
End If

原来写的这个但是这样的话整列就都变成红色了，就是说我这个styleRed已经写好了但是新增行的没作用

wangxingwu

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

加好友

发短信

等级：婴狐帖子：41 积分：366 威望：0 精华：0 注册：2014/9/29 10:14:00

Post By：2014/10/10 17:52:00 [显示全部帖子]

这个是我的样式

此主题相关图片如下：qq截图20141010175240.png

wangxingwu

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

加好友

发短信

等级：婴狐帖子：41 积分：366 威望：0 精华：0 注册：2014/9/29 10:14:00

Post By：2014/10/10 17:54:00 [显示全部帖子]

以下是引用有点甜在2014-10-10 17:52:00的发言：
那那些肯定不是新增行，你肯定把行保存了。

新增行代码

If User.Group = "业务员" OrElse User.Group = "业务内勤" Then
Tables("订单").AddNew()
Else
MessageBox.show("你无权执行此项操作!")
End If

wangxingwu

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

加好友

发短信

等级：婴狐帖子：41 积分：366 威望：0 精华：0 注册：2014/9/29 10:14:00

Post By：2014/10/10 17:57:00 [显示全部帖子]

以下是引用有点甜在2014-10-10 17:52:00的发言：
那那些肯定不是新增行，你肯定把行保存了。

新增加行按钮的代码，没有保存操作

If User.Group = "业务员" OrElse User.Group = "业务内勤" Then
Tables("订单").AddNew()
Else
MessageBox.show("你无权执行此项操作!")
End If

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

主题：table单元格变色