数据在窗体中的翻页

原创 2002年05月04日 17:44:00

用mshflexgrid控件实现数据库翻页
========================
打开vb6.0
在窗体中加入2个command控件,1个mshflexgrid控件
代码:
-----------------------------
Dim intpage As Integer

Private Sub Command1_Click()
intpage = intpage - 1
page intpage
End Sub

Private Sub Command2_Click()

intpage = intpage + 1
page intpage
End Sub

 Sub page(intpagecount As Integer)
On Error Resume Next
Dim cn As New ADODB.Connection
Dim cm As New ADODB.Command
Dim rs As New ADODB.Recordset
MSHFlexGrid1.Clear
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "/Students.mdb"
cn.Open
cm.ActiveConnection = cn
rs.CursorLocation = adUseClient
rs.Open "select * from 新生入学信息表 ", cn, adOpenDynamic, adLockBatchOptimistic
rs.PageSize = 10
If intpagecount > rs.PageCount Then
intpagecount = rs.PageCount
End If
If intpagecount < 1 Then
intpagecount = 1
End If
rs.AbsolutePage = intpagecount

'MsgBox rs.Fields.Count
With MSHFlexGrid1
    .Cols = rs.Fields.Count
    .Rows = 10
    For i = 0 To 9
        For j = 0 To rs.Fields.Count - 1
        .TextMatrix(i, j) = rs.Fields(j)
        Next
    rs.MoveNext
    Next
End With
 End Sub

Private Sub Form_Load()
Command2.Caption = "下一页"
Command1.Caption = "上一页"
page 1
End Sub

作者主页:http://risk.y365.com

C#——数据翻页

一、页面部分:      1、所需控件:             bindingNavigator       2、操作:             网页面中拖一个bindinNavigator    ...
  • yixianfeng41
  • yixianfeng41
  • 2014年12月23日 10:33
  • 2039

在一个窗体中调用另一个窗体的数据

在做机房收费系统时我们经常会遇到
  • u013034828
  • u013034828
  • 2014年08月24日 19:53
  • 1418

c# 在类中将数据传递给窗体

在Form1中 textbox1的modifilers设为Public, public static Form1 f=null; public Form1() ...
  • wind_cloud2011
  • wind_cloud2011
  • 2013年12月27日 12:26
  • 1443

关于easyui的datagrid翻页保存选中项

。。。
  • li1441009033
  • li1441009033
  • 2014年11月15日 13:48
  • 1192

winform 子窗体数据改变刷新父窗体

第一步: 在主窗体中拉一个Timer
  • u013816709
  • u013816709
  • 2014年05月06日 18:30
  • 1335

vb.net 一个窗体在另一个窗体的容器内显示

Private Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As IntPtr _ ...
  • mhjcumt
  • mhjcumt
  • 2012年08月31日 16:48
  • 4154

c# 主窗体传值给子窗体

在Form1中 public static Form1 f=null; public Form1() { Initialize...
  • wind_cloud2011
  • wind_cloud2011
  • 2013年12月29日 20:19
  • 901

C# 在第二个窗体上添加数据之后如何刷新第一个窗体加载的数据

如何在第二个窗体上添加数据之后,刷新第一个窗体的数据?     解决: (1)在第二个窗体上添加第一个窗体的引用                    private Form1 frm;   ...
  • hlx20080808
  • hlx20080808
  • 2016年03月19日 12:07
  • 356

C#中如何处理子窗体在父窗体中显示的位置

   这几天我一直在做一个WinForms项目,等做得差不多准备运行的时候,突然发现了一个问题,那就是该如何控制子窗体在父窗体中显示的位置。    经过一段时间的查找才找到一个可以解决的方案,希望这个...
  • liaoxiaoli99
  • liaoxiaoli99
  • 2009年06月09日 21:50
  • 4613

C#中一个窗体怎样对另外一个窗体操作,使窗体上的数据得到刷新?

C#中一个窗体怎样对另外一个窗体操作,使窗体上的数据得到刷新? 2010-7-8 12:50 提问者: jenemarlin | 悬赏分:5 | 浏览次数:354次 情况是这样的...
  • laoniu541292552
  • laoniu541292552
  • 2012年07月03日 22:13
  • 4583
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:数据在窗体中的翻页
举报原因:
原因补充:

(最多只允许输入30个字)