以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  临时表的表样式设置问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=184395)

--  作者:朱女士
--  发布时间:2022/12/5 15:42:00
--  临时表的表样式设置问题
老师您好!
我建了一个临时表:把数据填进去以后,要根据单元格的内容标识不同的颜色,比如说,单元格“上一个工序” 未完成,标识红色,不知道怎么写代码设置,请指教,谢谢!

Dim dtb As New DataTableBuilder("工序进度查询表")
dtb.AddDef("序号", GetType(String), 4)
dtb.AddDef("清单条码编码", GetType(String), 20)
dtb.AddDef("项目号", GetType(String), 50)
dtb.AddDef("所属装配", GetType(String), 26)
dtb.AddDef("产品类型", GetType(String), 26)
dtb.AddDef("产品名称", GetType(String), 36)
dtb.AddDef("产品图号", GetType(String), 46)
dtb.AddDef("变压器型号", GetType(String), 50)
dtb.AddDef("项号", GetType(String), 26)
dtb.AddDef("台数", GetType(Short))
dtb.AddDef("件每台", GetType(Short))
dtb.AddDef("数量", GetType(Short))
dtb.AddDef("重量", GetType(Double))
dtb.AddDef("上一工序", GetType(String), 20)
dtb.AddDef("结束时间", GetType(Date))
dtb.Build()


--  作者:有点蓝
--  发布时间:2022/12/5 15:55:00
--  
到全局表事件drawcell事件处理:http://www.foxtable.com/webhelp/topics/0671.htm

注意要开启这个临时表的全局drawcell事件