Delete current selection in DDDW - Real's PowerBuilder How-to

Delete current selection in DDDWTag(s): Datawindow

Create a user event in the datawindow control mapped to pbm_dwnkey. Put the following code in the event:

string ls_columnname
string ls_null
long  ll_null
long  ll_row

// for a dddw,the delete key deletes the current selection(replace by NULL)
if key = KeyDelete! then
 ll_row = this.GetRow()
 if ll_row > 0 then
  ls_columnname = this.GetColumnName()
  if not (IsNull(ls_columnname) or ls_columnname = '') then
   if this.Describe(ls_columnname + ".Edit.Style") = 'dddw' and + &
    this.describe(ls_columnname + ".DDDW.NilIsNull") = 'yes' then
    if left(this.Describe(ls_columnname + ".coltype"),4) = 'char' then
     SetNull(ls_null)
     this.SetItem(ll_row,ls_columnname,ls_null)
    else
     SetNull(ll_null)
     this.SetItem(ll_row,ls_columnname,ll_null)
    end if
   end if
  end if
 end if
end if

return 0