VFP的GRID中行記錄上移或下移一行

2021-06-03 07:23:37 字數 974 閱讀 7052

說明:當前資料表已經建立了索引檔案的,先關閉索引檔案,否則影響執行效果。 下面的**是在dfwxj(清風)的提示下完成的,在此特別感謝dfwxj(清風)。本**屬於共創作品。因為文章類別管理裡沒有共創分類,只好用原創了,請dfwxj(清風)諒解。

if this.value=1  &&行記錄上移

yh=recno() && 源行

mdh=yh-1 && 目的行

if mdh<=0

messagebox("已經超過第一條記錄了")

thisform.grid1.setfocus

return

else

go mdh

scatter to aa

go yh

endif

insert blank

go yh+1

gather from aa

dele for recn()=mdh

pack

go yh

else  &&行記錄下移

yh=recno()

mdh=yh+1

go yh

scatter to aa

if mdh>reccount()

messagebox("已經到最後一條記錄了")

thisform.grid1.setfocus

return

else

go mdh

endif

mdh=mdh+1

insert blank

go mdh

gather from aa

dele for recn()=yh

pack

go yh

endif

thisform.grid1.recordsource="表別名"

thisform.grid1.setfocus

thisform.refresh

Ext 獲取grid中選中行的資料

var sm new ext.grid.checkboxselectionmodel 選擇列 singleselect true 只能選擇單行 將sm載入進grid var listgrid new ext.grid.gridpanel 取出選中行的物件 var clickone listgrid....

ExtJs 4 grid 批量刪除 獲取選中行ID

重點是標記出來的地方,不解釋。itemid btnremove text 刪除使用者 iconcls delete disabled true,handler function alert ids else extjs4 ajax 刪除操作 批量刪除管理員操作 function delete dat...

VFP中set filter to 的使用注意事項

set filter的作用我就不多說了.但如果set filter時條件中含有變數,那就要注意了.例 select 0 use c lb 開啟表 lb rszd lb f 取字段值 use select c detail 開啟另乙個要set filter的表 set filter to rszd l...