- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 遍历表，然后全部行计算 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100403)
-- 发布时间：2017/5/10 23:14:00
-- 遍历表，然后全部行计算
求教老师：
2、请问怎么在输入的时候，如果值1大于100则出现对话框，提示此值大于100，无法输入（求代码）
此主题相关图片如下：3.png
-- 发布时间：2017/5/11 0:43:00
--
1、drawcell事件
if val(e.text) > 100 then
e.Table.DataTable.AddUserStyle("样式1", Color.red, Color.black)
e.Style = "样式1"
End If
2、DataColChanging事件
If val(e.NewValue) > 100 Then
msgbox("不能超过100")
e.cancel = True
End If
-- 发布时间：2017/5/11 23:20:00
--
老师您好： 问题1中，我的意思是 值1列 ， 不是表的所有列
if val(e.text) > 100 then e.Table.DataTable.AddUserStyle("样式1", Color.red, Color.black) 出来的是所有列的单元格都大于100出现变色 求解，谢谢 |
-- 发布时间：2017/5/11 23:23:00
--
|
If e.Col.Name = "值1" AndAlso val(e.text) > 100 then e.Table.DataTable.AddUserStyle("样式1", Color.red, Color.black) |