pb制作窗口查询器,该如何解决

pb制作窗口查询器
做了个查询器，查询的按钮查询到一条以后不取消选择行，和向下查询。内附代码，请高手帮忙看看

boolean FindToEnd
String expression
long row
If sle_FindWord.text='' Then
MessageBox('提示','请输入您要查找的关键字')
sle_FindWord.SetFocus()
Return
End If
If rb_back.Checked=True Then
FindToEnd=True
ElseIf rb_prior.Checked=True Then
FindToEnd=False
End If
Choose case ddlb_1.text
case'name'
expression="name='"+sle_FindWord.text+"'"
case'size'
expression="size='"+sle_FindWord.text+"'"
End Choose
This.Text='查找下一个' //取消上一次查找到的行的选择状态
If row>0 And row<=w_exam5.dw_exam5.RowCount() Then
w_exam5.dw_exam5.SelectRow(row,False)
End If
If FindToEnd=True Then
row ++
row=w_exam5.dw_exam5.Find(expression,row,w_exam5.dw_exam5.RowCount())
Else
row --
row=w_exam5.dw_exam5.Find(expression,row,0)
End If
If row=0 Then
MessageBox('警告','当前窗口内未找到此关键字')
close(w_exam8)
Return
ElseIf row<0 Then
MessageBox('错误','查找关键字失败')
return
Else 
w_exam5.dw_exam5.SelectRow(row,true)
w_exam5.dw_exam5.ScrollToRow(row)
End If






------解决方案--------------------
w_exam5.dw_exam5.SelectRow(row,False) 

这个改成

w_exam5.dw_exam5.SelectRow(0,False) 

------解决方案--------------------
改成0是取消选择所有行