当前位置: 代码迷 >> VFP >> 怎么用几个Label显示同一个字段的不同记录
  详细解决方案

怎么用几个Label显示同一个字段的不同记录

热度:7015   发布时间:2013-02-26 00:00:00.0
如何用几个Label显示同一个字段的不同记录?
用Grid表格控件显示同一字段的所有记录很容易,但是能不能用Label控件显示同一字段的不同记录呢?比如有三个Label控件来显示Name字段的记录,Label1显示第一条记录,Label2显示第二条,Label3显示第三条,而且可以翻页,不知怎么实现?谢谢!!

------解决方案--------------------------------------------------------
SQL code
在表单加3个 Label ,分别命名为:Label1 Label2 Label33个按钮,分别为 显示按钮,下一页按钮,上一页按钮显示按钮 的 Click 事件代码:先是创建临时表,为了演示,初始显示前3条记录Public gnPageCreate Cursor T1 (Name C(10))For m.lnI=1 To 20    Insert Into T1 Values (Transform(m.lnI))EndforgnPage=1 &&初始1 表示第一页Select Top 3 Name,Recno() As jlh Into Cursor T2 From T1 Where Recno()=<3*gnPage Order By 2 DescSelect T2Scan    m.lnJ=Transform(3-Recno()+1)    Thisform.Label&lnJ..Caption=NameEndscan下一页按钮 的 Click 事件代码:gnPage=Min(gnPage+1,Ceiling(Reccount('T1')/3))Select Top 3 Name,Recno() As jlh Into Cursor T2 From T1 Where Recno()=<3*gnPage Order By 2 DescSelect T2Scan    m.lnJ=Transform(3-Recno()+1)    Thisform.Label&lnJ..Caption=NameEndscan上一页按钮 的 Click 事件代码:gnPage=Max(gnPage-1,1)Select Top 3 Name,Recno() As jlh Into Cursor T2 From T1 Where Recno()=<3*gnPage Order By 2 DescSelect T2Scan    m.lnJ=Transform(3-Recno()+1)    Thisform.Label&lnJ..Caption=NameEndscan
  相关解决方案