设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 4551|回复: 10

[报表] [源码]报表奇偶页不同颜色显示

[复制链接]
发表于 2003-9-22 01:27:00 | 显示全部楼层 |阅读模式


'代码如下:
Option Compare Database
Option Explicit

Dim i As Integer
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
    i = i + 1
    If i Mod 2 = 0 Then
        Me.主体.BackColor = 12632256
    Else
        Me.主体.BackColor = 16777215
    End If
End Sub

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2003-9-22 04:21:00 | 显示全部楼层
子窗体中如何实现
发表于 2003-9-22 06:03:00 | 显示全部楼层
用条件格式也可以
发表于 2003-9-22 22:51:00 | 显示全部楼层
数据表窗体格式的可以吗?
发表于 2003-9-23 20:33:00 | 显示全部楼层
好像是Acess自带的例程
 楼主| 发表于 2003-11-13 00:30:00 | 显示全部楼层
是自带例子基础上做的效果
发表于 2003-11-13 17:10:00 | 显示全部楼层
不错不错,进来拜一下~!
发表于 2003-11-13 18:46:00 | 显示全部楼层
考虑过打印成本吗?
针式打印机很容易损坏打印头
喷墨的,太费墨了,看来只能用激光的了,
嘿嘿,我的是激光....可是老板说省着点用,这个鼓也很贵的!

发表于 2003-11-13 20:04:00 | 显示全部楼层
版主大人只是提供操作报表的一种方法,至于成本吗不在此话题
发表于 2003-11-13 20:31:00 | 显示全部楼层
报表也可以作为浏览数据的一个界面的,老板看起来会比较理解你的工作
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 05:20 , Processed in 0.101825 second(s), 36 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表