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编辑过]
加好友 
发短信
Post By：2022/11/13 9:27:00 [只看该作者]
