问题:这样的窗体界面可以实现吗(问题解决了)

hljthzbc

我把隐藏菜单加到窗体1上了,看看在办法解决吗

hljthzbc

那位版主再过问一下,看看怎么解决

hljthzbc

这个我实现不会的,再帮我一下吧,求你了
帮我一下吧,
问题是:1页数组合框翻页查询
       2.每页记录数,可更改

hjb016

每页记录数最多也只能20.你就只有20个子窗体.再加就出错了.

hljthzbc

我想一要解决:
问题1.页码组合框,以后要很多人的.可以通过翻页查询
问题2.页记录可以更改的,最多不超过20页

hljthzbc

可惜我不会改呀

' 示  例: 子窗体记录分页显示
' 作  者: t小雨(tcl013@126.com)
' 日  期: 2009-07-23

Private Sub TxtPageRecCount_AfterUpdate()
    Dim i As Integer
   
    If Nz(Me.TxtPageRecCount) = "" Then
        Me.TxtPageRecCount = 1
    ElseIf Me.TxtPageRecCount < 1 Then
        Me.TxtPageRecCount = 1
    ElseIf Me.TxtPageRecCount > 100 Then
        Me.TxtPageRecCount = 100
    End If
    i = Me.CmbPageCount.ListIndex
    Me.CmbPageCount.RowSource = CreatePageString(rst, Me.TxtPageRecCount)
    If i >= Me.CmbPageCount.ListCount Then i = Me.CmbPageCount.ListCount - 1
    Me.CmbPageCount = Me.CmbPageCount.ItemData(i)
    CmbPageCount_AfterUpdate
   
End Sub


页码组合框

Private Sub CmbPageCount_AfterUpdate()
    Me.订单_浏览.Form.Painting = False
    ChangeRstPage Me.订单_浏览.Form, rst, "订单ID", Me.TxtPageRecCount, Me.CmbPageCount.ListIndex + 1
    Me.订单_浏览.Form.Painting = True
   
End Sub

hjb016

正在帮你处理...

hjb016

你帮你修改好了.

hljthzbc

太谢谢了,是你帮我全部解决了,这个也是我太笨了.不会代码.在此也祝你心情愉快.

hjb016

这个也不能这样说,你要多学基础的.你这样一头就扎进去,代码又看不懂,你总不能一个程序都让人家帮你做的吧!