请教各位~report 如果要 assign [textbox]=""可以吗？

程家伟

如果我放在我的report page footer里 modulus的话，不知可以吗？

IF [PAGE] < [PAGES] THEN

   [TEXTBOX]= ""
   [TEXTBOX]=""

ELSE

  IF[PAGE] = [PAGES] THEN

  [TEXTBOX].VISIBLE=TRUE

  ENDIF

ENDIF

[ 本帖最后由 程家伟 于 17-9-2006 11:01 PM 编辑 ]

程家伟

各位大大，，请教一教小弟。。。

meemee

我现在还没有access可以用。。。。回家之后再帮你试试看。。。

meemee

有两个event你可以试试看。。。
OnFormat和OnPage

coding，你放这一行就可以了。。。

1. [TEXTBOX].VISIBLE = [PAGE] = [PAGES]

复制代码

还没试。。。不过，９成可以行的通。。。

meemee

[textbox]=""

这个应该可以用吧？？
如果，不行就用[textbox].text ＝ ""

emmm。。。还有４楼的是解决掉[resulttotal]显示在最后一个page的难题。。。

程家伟

原帖由 meemee 于 18-9-2006 10:15 AM 发表
=""

这个应该可以用吧？？
如果，不行就用.text ＝ ""

emmm。。。还有４楼的是解决掉显示在最后一个page的难题。。。

谢谢你.mee mee

其实你讲述的 [textbox].Text = "" 我之前已经用过了。。。它还是出现了compiler error ( method or data member not found)......

如果在report 内做一个空的variable应该要怎么写？？？

是不是这样

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
Dim temp1 As String
Dim temp2 As string
Dim temp3 As String
Dim temp4 As String
Dim temp5 As String


If [pages] > [Page] Then
    temp1 = ""<--这样的话我把空白的variable assign进入我的temp1到temp5,不知这方法行得通吗？如果有错误亲指教
    [rm] = temp1
    temp2 = ""
    [txtResult] = temp 2
    temp3 = ""
    [Text62] = temp3
    temp4 = ""
    [Text70] = temp4
    temp5 = ""
    [Text79] = temp5
Else
        If [Page] = [pages] Then
        '[PageFooterControlName1] = [ReportFooterControlName1] 这一段我不明白是什么来的，所以我就放一个 ‘ 符号给它。
        [rm].Visible = True
        [txtResult].Visible = True
        [Text62].Visible = True
        [Text70].Visible = True
        [Text79].Visible = True
        'Do the same for each other ReportFooter control you wish to show  in the Page Footer.
        End If
End If
End Sub

程家伟

原帖由 程家伟 于 18-9-2006 11:12 AM 发表
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
Dim temp1 As String
Dim temp2 As string
Dim temp3 As String
Dim temp4 As String
Dim temp5 As String

If [pages] > [Page] Then
    temp1 = ""<--这样的话我把空白的variable assign进入我的temp1到temp5,不知这方法行得通吗？如果有错误亲指教
    [rm] = temp1
    temp2 = ""
    [txtResult] = temp 2
    temp3 = ""
    [Text62] = temp3
    temp4 = ""
    [Text70] = temp4
    temp5 = ""
    [Text79] = temp5

这些试过了，还是不能执行。。。

有没有方法是暂时hold着/ store着这些资料[rm],[txtResult],[Text62],[Text70],[Text79].

然后到我的 If [Page] = [Pages] Then 的时候
我的这些[rm],[txtResult],[Text62],[Text70],[Text79]就可以拿出来放我的report 最后一面

[ 本帖最后由 程家伟 于 18-9-2006 11:46 AM 编辑 ]

程家伟

max兄，有没有例子？RS.FIELD("这里要写什么？" )

如果你要直接把你的RECORDSET的资料放到你的TEXTBOX你可以用
TEXTBOX＝RS。FIELD（＂XXXX＂）
RS就是你自己设定的RECORDSET

[ 本帖最后由 程家伟 于 18-9-2006 02:22 PM 编辑 ]

max5007

那里是写的你FIELD NAME

程家伟

原帖由 max5007 于 18-9-2006 02:43 PM 发表
那里是写的你FIELD NAME

也就是说这样
[textbox] = RS.Field([result])

程家伟

哇哈哈哈哈~！！！！ 刚刚做到可以怎样把文字print在最后一面了。。哈哈哈好开心。。。现在是挑战如何的把empty的数目print在最后一面。。。

各位加油阿

meemee

其实，直接用reportfooter会比较容易。。。下一次可以改用reportfooter试试看。。。

一楼的coding是用来显示最后一个page。。。可以直接改用4楼的。。。1行代替7行。。。这样你的coding就美了。。。
OnFormat是event property。。。如果在code module那里就是PageFooterSection_Format的event

textbox的text是没办法改的。。。不过你可以改用label，用caption来改。。。

关于empty textbox的问题，有人帮你答了。。。

[ 本帖最后由 meemee 于 18-9-2006 11:54 PM 编辑 ]

程家伟

原帖由 meemee 于 18-9-2006 11:41 PM 发表
其实，直接用reportfooter会比较容易。。。下一次可以改用reportfooter试试看。。。

一楼的coding是用来显示最后一个page。。。可以直接改用4楼的。。。1行代替7行。。。这样你的coding就美了。。。
OnFormat ...

呵呵。。万分感谢你了。。mee mee。也感谢 max兄，chrysan(sex???)繁忙时间也要你们来帮忙。。。先说声对不起你们啦。。。

其实你的提议我已经用过咯。。。如果是放在report footer 的话。。我就很轻松的过日子拉。。。只是report footer 的textbox是跟着after detail 的资料排着下去。。所以我的invoice就会看起来怪怪的了。。。有时候多的item时候，result total 就会变去下面。。。result total 少的时候就会变去上面了。。。上一次我就是放在report footer时候，原以为可以做好了交功课，哪知道一通电话来说位置跑了。。。这时候我还得烦这个东西呢

不过还好咯。。。可以看到另外一个问题我从来没有想到的呢。。。现在我已经做到 文字可以在最后一面print 出来了。。。剩下的就是 total result 的 textbox...汗

这个是接连我另外一个帖 http://chinese2.cari.com.my/myfo ... ;extra=#pid18741474  

[ 本帖最后由 程家伟 于 19-9-2006 09:46 AM 编辑 ]