POWERBUILDER_在数据窗中实现windows风格选定行

declare-instance variables:

long key_orde

datawindow-clicked:

long key_count,j

key_count = row

if key_count = 0 then return
if keydown(keycontrol!) then
if isselected(key_count) then
selectrow(key_count,false)
else
selectrow(key_count,true)
end if
key_orde = key_count
else
if keydown(keyshift!) then
selectrow(0,false)
if key_count > key_orde then
for j = key_orde to key_count
selectrow(j,true)
end for
else
for j = key_orde to key_count step -1
selectrow(j,true)
end for
end if