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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → DataTable.loadfilter

共有2753人关注过本帖树形打印复制链接主题：DataTable.loadfilter

huhu

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

DataTable.loadfilter 发帖心情

Post By：2018/11/5 11:24:00 [只看该作者]

Dim ty As WinForm.CheckBox = e.Form.Controls("CheckBox1")

Select Case user.Group

Case "测试epon","测试router","测试IEswitch","测试switch"

ty.Enabled = True

DataTables("软硬件对照表").LoadFilter = "测试组名 = '" & user.group & "'"

DataTables("软硬件对照表").Load

Tables("组查询版本_table2").DataTable.loadfilter = "测试组名 = '" & user.group & "'"

Tables("组查询版本_table2").DataTable.load

Case Else

ty.Enabled = False

DataTables("软硬件对照表").LoadFilter = ""

DataTables("软硬件对照表").Load

Tables("组查询版本_table2").DataTable.loadfilter = ""

Tables("组查询版本_table2").DataTable.loadfilter

End Select

此主题相关图片如下：12344.jpg

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/5 11:48:00 [只看该作者]

Dim ty As WinForm.CheckBox = e.Form.Controls("CheckBox1")
Select Case user.Group
    Case "测试epon","测试router","测试IEswitch","测试switch"
        ty.Enabled = True
        DataTables("软硬件对照表").LoadFilter = "测试组名 = '" & user.group & "'"
        DataTables("软硬件对照表").Load
        Tables("组查询版本_table2").DataTable.loadfilter = "测试组名 = '" & user.group & "'"
        Tables("组查询版本_table2").DataTable.load
    Case Else
        ty.Enabled = False
        DataTables("软硬件对照表").LoadFilter = ""
        DataTables("软硬件对照表").Load
        Tables("组查询版本_table2").DataTable.loadfilter = ""
        Tables("组查询版本_table2").DataTable.load
End Select

下一主题 >> << 上一主题

主题：DataTable.loadfilter