以文本方式查看主题 - 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编辑过]
|