首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

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

2012-03-04 
如何用几个Label显示同一个字段的不同记录?用Grid表格控件显示同一字段的所有记录很容易,但是能不能用Labe

如何用几个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 

热点排行