以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有关时间的遍历不知道为什么耗时  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=183683)

--  作者:zhangchi96
--  发布时间:2022/11/13 9:27:00
--  有关时间的遍历不知道为什么耗时
1、先呈现一个MouseEnter代码:
Dim 年度列表 As WinForm.ComboBox = e.Form.Controls("年度下拉框")
Dim 注册页年度列表 As WinForm.ComboBox = e.Form.Controls("注册页年度下拉框")
If 年度列表.text = "" Then
    Dim 最后时间 As Date = DataTables("兴登录信息").Compute(" max(最后一次登录时间) "," 最后一次用户 = true ")
    If 最后时间 = #00:00:00# Then
    Else
        For Each dr As DataRow In DataTables("兴登录信息").DataRows
             If dr("最后一次登录时间") = 最后时间 And dr("最后一次用户") = True Then \'本机的登录信息中的,选定的单位名
                年度列表.text = dr("年度")
                 Exit For  \'退出循环
            End If
        Next
    End If
End If

2、请教一个问题:
    想把遍历部分改为如下,但红色部分的括号不知道怎么表达
         Dim dr As DataRow
         dr = DataTables("兴登录信息").Find(" 最后一次登录时间 =  #& 最后时间 &#  " )
         年度列表.text = dr("年度")

敬请老师们指点一二,另外指点一下有没有更快更好的方法

[此贴子已经被作者于2022/11/27 11:31:08编辑过]

--  作者:有点蓝
--  发布时间:2022/11/13 20:03:00
--  
Dim 年度列表 As WinForm.ComboBox = e.Form.Controls("年度下拉框")
Dim 注册页年度列表 As WinForm.ComboBox = e.Form.Controls("注册页年度下拉框")
If 年度列表.text = "" Then
    Dim dr As Datarow = DataTables("兴登录信息").find(" 最后一次用户 = true ","最后一次登录时间 desc")
    If dr isnot nothing Then
    年度列表.text = dr("年度")
    End If
End If

--  作者:zhangchi96
--  发布时间:2022/11/27 11:35:00
--  
谢谢老师指点!
--  作者:zhangchi96
--  发布时间:2022/11/27 11:46:00
--  

[此贴子已经被作者于2022/11/27 11:46:23编辑过]