Foxtable(狐表)用户栏目专家坐堂 → 表达式的问题


  共有1409人关注过本帖树形打印复制链接

主题:表达式的问题

帅哥哟,离线,有人找我吗?
zhangjian222200
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1550 积分:10977 威望:0 精华:0 注册:2016/9/12 11:18:00
表达式的问题  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/11 15:03:00 [只看该作者]

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1550 积分:10977 威望:0 精华:0 注册:2016/9/12 11:18:00
  发帖心情 Post By:2017/1/11 15:11:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:未命名-1.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/11 15:17:00 [只看该作者]

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

 回到顶部