以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]临时表交替行颜色与字体大小(解决)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30336)

--  作者:tele
--  发布时间:2013/3/26 10:40:00
--  [求助]临时表交替行颜色与字体大小(解决)

请问用代码生成的临时表的交替行颜色,与字体及字号,代码应该怎么写啊?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目28.foxdb

[此贴子已经被作者于2013-3-26 11:45:20编辑过]

--  作者:tele
--  发布时间:2013/3/26 11:18:00
--  
补充了个例子
--  作者:狐狸爸爸
--  发布时间:2013/3/26 11:35:00
--  

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("产品", Gettype(String), 32)
dtb.AddDef("客户", Gettype(String), 32)
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Double))
dtb.Build()

Dim f As New Filler
f.SourceTable = DataTables("表A") \'指定数据来源
f.SourceCols = "产品,客户" \'指定数据来源列
f.DataTable = DataTables("统计") \'指定数据接收表
f.DataCols = "产品,客户" \'指定数据接收列
f.Fill() \'填充数据

DataTables("统计").SysStyles("Alternate").BackColor = Color.Red

Forms("窗口2").open


--  作者:tele
--  发布时间:2013/3/26 11:40:00
--  
狐爸这个是交替行,请问字体呢?