Select Case User.Roles Case "苏州华宇" DataTables("人工时台账").LoadFilter = "Date = #" & Date.Today & "# and Company = '苏州华宇'" DataTables("人工时台账").Load() Case "中原春城" DataTables("人工时台账").LoadFilter = "Date = #" & Date.Today & "# and Company = '中原春城'" DataTables("人工时台账").Load() Case "安装公司" DataTables("人工时台账").LoadFilter = "Date = #" & Date.Today & "# and Company = '安装公司'" DataTables("人工时台账").Load() End Select MainTable = Tables("人工时台账")
|