[求助]临时表交替行颜色与字体大小(解决) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]临时表交替行颜色与字体大小(解决)

共有7485人关注过本帖树形打印复制链接主题：[求助]临时表交替行颜色与字体大小(解决)

tele

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

加好友

发短信

等级：幼狐帖子：90 积分：1057 威望：0 精华：0 注册：2013/1/2 19:17:00

[求助]临时表交替行颜色与字体大小(解决) 发帖心情

Post By：2013/3/26 10:40:00 [只看该作者]

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目28.foxdb

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

muhua	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/3/26 10:55:00 [只看该作者] 用户已被锁定

tele

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

加好友

发短信

等级：幼狐帖子：90 积分：1057 威望：0 精华：0 注册：2013/1/2 19:17:00

Post By：2013/3/26 11:18:00 [只看该作者]

补充了个例子

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

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

加好友

发短信

等级：幼狐帖子：90 积分：1057 威望：0 精华：0 注册：2013/1/2 19:17:00

Post By：2013/3/26 11:40:00 [只看该作者]

狐爸这个是交替行，请问字体呢？

muhua	小大 6楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/3/26 11:44:00 [只看该作者] 用户已被锁定

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

主题：[求助]临时表交替行颜色与字体大小(解决)