表达式问题，老是合成不对，帮看下
'如果窗口:员工资料页,打开了,关闭窗口
If Forms("员工资料页").opened = False Then
LockWindowUpdate(baseMainform.handle)
Forms("员工资料页").open()
LockWindowUpdate(System.IntPtr.Zero)
With DataTables("员工资料页_Tableygb") '设置分页加载,第一页(只要之前,员工资料页,没有打开,就执行这段代码)
.LoadTop = 4
.LoadPage = 0
.loadFilter = "[登录名] = 'user.name'"
.Load()
End With
ElseIf Forms("员工资料页").opened = True Then
With DataTables("员工资料页_Tableygb") '设置分页加载,第一页(只要之前,员工资料页,打开了,就执行这段代码)
.LoadTop = 4
.LoadPage = 0
.loadFilter = "[登录名] = 'user.name'"
.Load()
End With
End If
加好友 
发短信
Post By：2016/11/17 17:38:00 [显示全部帖子]
