- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 表达式的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95148)
-- 发布时间：2017/1/11 15:00:00
-- 表达式的问题
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
-- 发布时间：2017/1/11 15:03:00
--
.loadFilter = "[会员手机号] = \'" & huiysj & "\' And [会员编号] = \'" & huiybh & "\'"
-- 发布时间：2017/1/11 15:11:00
--
此主题相关图片如下：未命名-1.jpg
-- 发布时间：2017/1/11 15:17:00
--
.loadFilter = "[会员手机号] = \'" & huiysj.Text & "\' And [会员编号] = \'" & huiybh.Text & "\'"