请问“上一条”“下一条”代码如何写??
数据库里有有一个编号、名称、示意图三个字段。
由于自己考虑到数据窗口里只能显示编号和名称的字段,因此设计了一个窗口(数据输入兼修改功能):里面有两个“单行编辑框”控件用来直接从数据库中读取编号和名称字段,另有一个“图片”控件用来显示“示意图”字段,另外有一个“上一条”和"下一条"命令按钮,可是我不知如何写其中的代码,想实现的功能为:
(为了实现自己设计的这个窗口与数据窗口相对应)当点击“下一条”按钮时,读取数据窗口中当前记录的下一条记录;点击“上一条”按钮时,则读取数据窗口中当前记录的上一条记录,请问这个“上一条”“下一条”按钮的代码如何写??
[解决办法]
//上一条
long ll_row
integer li_i
li_i=dw_1.ScrollPriorRow()
if li_i=1 then
ll_row=dw_1.getrow()
sle_bh.text=dw_1.object.bh[ll_row] //编号
sle_name.text=dw_1.object.name[ll_row] //名称
wf_getbmp(dw_1.object.bh[ll_row])
end if
//下一条
long ll_row
integer li_i
li_i=dw_1.ScrollNextRow()
if li_i=1 then
ll_row=dw_1.getrow()
sle_bh.text=dw_1.object.bh[ll_row] //编号
sle_name.text=dw_1.object.name[ll_row] //名称
wf_getbmp(dw_1.object.bh[ll_row])
end if
//创建一个窗口函数wf_getbmp(string as_bh)
blob lbl_data
selectblob bmp into lbl_data from table where bh=as_bh;
if sqlca.sqlcode=0 then
p_1.SetPicture(lbl_data)
p_1.visible=true
else
p_1.visible=false
end if