如何做上一页,下一页,首页,末页啊
yvqq 2003-06-07 04:12:01 我有两个datawindow,一个是dw1_rpt,一个是dw1_data
dw1_rpt 是一个grid,存放查出的所出数据。
dw1_data是一个freedom的窗口,存放单条记录的数据
现在我要在dw1_data上增加上一页,下一页,首页,末页的功能,
我用以下方法实现,结果按下上一页,下一页,首页,末页的其中一个按钮
反映速度很慢,并且屏幕会刷新一次,看上去很不舒服。以前我们同事也做个一样的程序,但他的不会有这种情况,请大家帮忙啊,详细一点!:
string l_item_no
//string item_nm,item_sp,unit,clas_no,clas_no_1
//string safe_qty,ror_pot,sup_pot,min_qty,pch_qty
long l_count,row
row=w_item_maint.tab_1.tabpage_rpt.dw_rpt.getrow()
l_count=w_item_maint.tab_1.tabpage_rpt.dw_rpt.rowcount()
if row>0 and row<l_count then
row=row+1
w_item_maint.tab_1.tabpage_rpt.dw_rpt.setrow(row)
w_item_maint.TAB_1.TABPage_data.DW_data.clear( )
l_item_no=w_item_maint.tab_1.tabpage_rpt.dw_rpt.getitemstring(row,'item_no')
if menu_item='1' then
w_item_maint.tab_1.tabpage_data.dw_data.dataobject='d_item_maint_sgk'
elseif menu_item='2' then
w_item_maint.tab_1.tabpage_data.dw_data.dataobject='d_item_mainT_wlk'
end if
w_item_maint.tab_1.tabpage_data.dw_data.settransobject(sqlca)
w_item_maint.tab_1.tabpage_data.dw_data.retrieve(l_item_no)
// w_item_maint.tab_1.selectedtab=3
end if