Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

关于报表最底部画线问题

子煜  发表于:2011-12-05 09:36:46  
复制

详细见附档内报表。

我想建个表格形势的单据,但是如果多页时,第一页或中间页最后的一根横线不知道如何补上,如果在页面页脚内加一根线可以补上,但是最后一页也会多出一条线出来。。

请教高手帮忙怎样解决这个问题??

 

点击下载此附件

 

Top
simon 发表于:2011-12-05 12:02:46
煮茶论道 发表于:2011-12-05 12:10:39
子煜 发表于:2011-12-05 13:36:35

上面的公式都不好使,我自己搞定了。。用以下代码就行了。。

谢谢大家!!

 

Dim lngRed As Long, lngYellow As Long, lngWhite As Long
Dim i As Long

    lngRed = RGB(255, 0, 0)
    lngBlack = RGB(0, 0, 0)
    lngYellow = RGB(255, 255, 0)
    lngWhite = RGB(255, 255, 255)

   
    If Me.Text40 Mod 14 = 0 Then
        Me.Line35.BorderColor = lngBlack

    Else
        Me.Line35.BorderColor = lngWhite

    End If



总记录:3篇  页次:1/1 9 1 :