hur.cn - 华软网

 热门搜索

用PB 用游标怎样实现下列功能

  作者:未知    来源:网络    更新时间:2018/6/13
现在有四个按钮分别是"第一条" "下一条" "上一条" "最后一条",来用文本框显示"字段"数据
eg 
  单击第一条文本枢显示第一条记录的姓名字段值
  单击下一条文本枢显示下一条记录的姓名字段值
  .......
 请用游标实现
 多谢~~~

------华软网友回答------
如果数据库还支持下述读取语句的话,简单!
fetch (当然支持^_^)
fetch first
fetch prior
fetch last

------华软网友回复------
// sample: f_dwscrolltorow('top,prior,next,bottom',tablename,fieldname,當前編號)
string Result_var,select_str
choose case lower(scrolltype)
case 'top','min','begin','first'
select_str = " select min("+fieldname+") from "+tablename+ " where " + fieldname+" <> ? "
case 'prior'
select_str = " select max("+fieldname+") from "+tablename+ " where " + fieldname+" < ? "
case 'next'
select_str = " select min("+fieldname+") from "+tablename+ " where " + fieldname+" > ? "
case 'bottom','max','end','last'
select_str = " select max("+fieldname+") from "+tablename+ " where " + fieldname+" <> ? "
case else
return ''
end choose 
prepare sqlsa from :select_str;
open dynamic my_cursor using :current_val;
fetch my_cursor into :result_var;
close my_cursor;
if isnull(result_var) then result_var = ''

dw_1.retrieve(result_var)
------华软网友回复------
没看懂你的问题,为什么用游标实现啊,这不是一个简单的数据窗口么?够奇怪的
------华软网友回复------
这个功能一般是在窗口实现,为什么你要通过游标来实现啊。
------华软网友回复------
楼主提得好怪啊
为什么不用datastore??      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。