图学PowerBuilder---实现Datawindow多选的函数

先上一图看看效果

在PB的Datawindow中不似list等控件，默认不支持多选（CTRL、SHIFT）但可以通过代码来实现。下边就列出多选的实现方法。

补充说明：其它与其它开发工具中的选择行相比较而言，PB的Datawindow中的行默认情况下鼠标点选后，该行并没有选中，而是需要一个Boolean的变量标记行是否选中。

首先要在变量声明中定义如下变量：

代码放在这里，方便大家复制（呵呵）

boolean ib_multiSelect = True
long il_lastRow=0
long il_firstRow=0
int ii_current_style = 0

然后定义函数：

然后在函数体中加入如下实现代码：

long lCr
int iStep
string ls_CurObj, ls_CurCol
integer li_LinePos

if isnull(dw.dataobject) or len(string(dw.dataobject)) <= 0 then return
if row <> 0 then
	if (ib_multiSelect = True) then
		if KeyDown( KeyControl! ) then 
			if dw.isSelected( Row ) = True then
				dw.SelectRow( Row,False )
			else
				dw.SelectRow( Row,True )
				dw.SetRow( Row )
			end if
			il_FirstRow = Row
		else
			if KeyDown( KeyShift! ) then
				dw.SelectRow( 0,False )
				if Row > il_FirstRow then
					for lCr = il_FirstRow to Row
						if lCr>0 and lCr<=dw.Rowcount() then
							dw.SelectRow( lCr,True )
						end if
					next
				else
					for lCr = il_FirstRow to Row Step -1
						if lCr>0 and lCr<=dw.Rowcount() then
							dw.SelectRow( lCr,True )
						end if
					next
				end if
			else
				dw.SelectRow( 0,False )
				dw.SelectRow( Row,True )
				dw.SetRow( Row )
				il_FirstRow = Row
			end if
		end if  
	else
		dw.SelectRow( 0,False )
		if ii_current_style = 0 then
			dw.SelectRow( Row,True )
		end if
		dw.SetRow( Row )
		il_FirstRow = Row
	end if
end if

最后在Datawindow的Clicked中调用此方法即可：

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

原来搜索了一个类似的方法，但有些问题，感谢秦哥提供了方法，在那之上调整了通用的Datawindow