表达式的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim huiybh As RibbonMenu.TextBox = RibbonTabs("男生资料管理").Groups("男生资料分析一").Items("工具栏1").Items("huiybh") '定义会员编号

Dim huiysj As RibbonMenu.TextBox = RibbonTabs("男生资料管理").Groups("男生资料分析一").Items("工具栏2").Items("huiysj") '定义会员手机

'如果窗口:男生资料主窗口,没有打开,则打开窗口

If Forms("男生资料主窗口").opened = False Then

LockWindowUpdate(baseMainform.handle)

Forms("男生资料主窗口").open()

LockWindowUpdate(System.IntPtr.Zero)

With DataTables("男生资料主窗口_Tablenanszl") '设置分页加载,第一页(只要之前,男生资料主窗口,没有打开,就执行这段代码)

.LoadTop = 4

.LoadPage = 0

.loadFilter = "[会员手机号] = ' huiysj ' And [会员编号] = ' huiybh '"

.Load()

End With

ElseIf Forms("男生资料主窗口").opened = True Then

With DataTables("男生资料主窗口_Tablenanszl") '设置分页加载,第一页(只要之前,男生资料主窗口,打开了,就执行这段代码)

.LoadTop = 4

.LoadPage = 0

.loadFilter = "[会员手机号] = ' huiysj ' And [会员编号] = ' huiybh '"

.Load()

End With

End If

主题：表达式的问题