标题：单元格格式

1楼

chenwuwenyu 发表于：2009/7/22 21:13:00

某表两列［手动库存］［自动库存］
如果［手动库存］［自动库存］两列的值不相等，则［手动库存］格式变为红色背景

怎么写代码呢，我想在窗口按钮中实现，直到刷新表，审核库存的功能
谢谢大家

2楼

shaof 发表于：2009/7/22 21:24:00

增加一个自定义样式，如，样式1，并设置好背景颜色。

DrawCell事件代码:
Dim dr As Row = e.Row
if dr("手动库存") = dr("自动库存") Then
Return
Else
e.Style = "样式1"
End If

3楼

chenwuwenyu 发表于：2009/7/22 21:46:00

可不可以不用DrawCell呢，我想在窗口中的一个按钮中实现，也不需要自动执行
谢谢

[此贴子已经被作者于2009-7-22 21:46:03编辑过]

4楼

mr725 发表于：2009/7/22 22:02:00

以下是引用chenwuwenyu在2009-7-22 21:46:00的发言：
可不可以不用DrawCell呢，我想在窗口中的一个按钮中实现，也不需要自动执行
谢谢

[此贴子已经被作者于2009-7-22 21:46:03编辑过]

既然用按钮，不如直接跳出个提示框来不是更好吗？

5楼

梦倩发表于：2009/7/23 8:19:00

DrawCell事件必须用，不过可以加一个按钮切换，按钮代码：

With DataTables.Styles("A")
.BackColor = iif(.BackColor = Color.Red, Color.White, Color.Red)
End With

共5 条记录, 每页显示 10 条, 页签: [1]