以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]获取某一列最大值返回文本框  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=154688)
--  作者：有点蓝
--  发布时间：2020/9/23 14:07:00
--  
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
--  作者：有点蓝
--  发布时间：2020/9/24 10:30:00
--  
我测试没有问题，请上传实例说明
--  作者：有点蓝
--  发布时间：2020/9/24 16:08:00
--  
Dim dr As DataRow = DataTables("tb_jkhkzq").find("","f_zfr desc")
If dr IsNot Nothing Then
e.form.controls("TextBox12").text = dr("f_zfr")
else
dr  = DataTables("tb_jkhkzq").find("摘要=\'借款\'","f_zfr desc")
If dr IsNot Nothing Then
e.form.controls("TextBox12").text = dr("业务时间")
End If
End If