dim filter as string = IIF(tables("窗口表").filter > "",tables("窗口表").filter & " and 止费日期 is not null","止费日期 is not null")
dim dr as datarow = datatables("窗口表").find(filter ,"
止费日期 desc")
if dr is nothing then
filter as string = IIF(tables("窗口表").filter > "",tables("窗口表").filter & " and 摘要='借款'","摘要='借款'")
dr = datatables("窗口表").find(filter)
end if
if dr isnot nothing then
e.form.controls("xx控件").text = dr("xx列")
end if