数据窗口中对记录进行单选或多选，进行删除操作

1、多选

在数据窗口控件的clicked事件中写入如下代码：

long lng_currentrow,lng_j
if row=0 then
 return
else
 lng_currentrow=row //当前鼠标点中行
end if
if keydown(keyshift!) then //按下SHIFT键
 if i_lng_lastrow=0 then //上次没选中任何行
  this.selectrow(lng_currentrow,true)
  i_lng_lastrow=lng_currentrow //i_lng_lastrow为实例变量，记录上次点击行
 else
  this.selectrow(0,false) //全都不选中
  if lng_currentrow>i_lng_lastrow then
   for lng_j=i_lng_lastrow to lng_currentrow
    this.selectrow(lng_j,true)
   end for
  else
   for lng_j=i_lng_lastrow to lng_currentrow step -1
    this.selectrow(lng_j,true)
   end for
  end if
 end if
else
 i_lng_lastrow=lng_currentrow
 if keydown(keycontrol!) then //按下CTRL键
 if this.isselected(lng_currentrow) then
  this.selectrow(lng_currentrow,false)
 else
  this.selectrow(lng_currentrow,true)
 end if
 else //无任何键按下
  this.selectrow(0,false)
  this.selectrow(lng_currentrow,true)
 end if
end if

 

在窗口的open事件中写入如下代码：

dw_1.object.datawindow.readonly=true

 

2、删除

long ll_Row, ll_Cnt
 
ll_Cnt = dw_1.RowCount()
if ll_Cnt > 0 then
 for ll_Row = ll_Cnt to 1 step -1
  if dw_1.IsSelected(ll_Row) then dw_1.deleterow(ll_Row)
 next
// end for
end if
if messagebox("提示","确认删除吗?", Question!, YesNo!) = 1 then
 dw_1.Update()
 commit;
else  //恢复删除的数据到数据窗口
 long ll_rows
 integer li_ret
 ll_rows=dw_1.deletedcount() //统计在删除缓冲区的数据行
 li_ret=dw_1.rowsmove(1,ll_rows,delete!,dw_1,1,primary!) //把要恢复删除的行从删除缓冲区移到主缓冲区
 if li_ret=-1 then ll_rows=0 //当删除缓冲区数据为空时返回0
 return ll_rows
end if