Foxtable(狐表)用户栏目专家坐堂 → 关于项目打开不加载数据


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

主题:关于项目打开不加载数据

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


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
关于项目打开不加载数据  发帖心情 Post By:2014/5/1 7:58:00 [只看该作者]

我的项目打开我希望不加载任何数据,以下是我的所有表,我在BeforeLoadOuterTable,写的代码~~~~~~~~~~~~~~~~~~~~这样是可行了,但我感觉有一点累赘,是否有更好的更简单的代码??


Select Case e.DataTableName
     Case "订单" 
            e.SelectString = "Select * From {订单} Where [_Identify] Is Null"
     Case "人员" 
            e.SelectString = "Select * From {人员} Where [_Identify] Is Null"
     Case "经销商信息" 
            e.SelectString = "Select * From {经销商信息} Where [_Identify] Is Null"
     Case "专卖店目标" 
            e.SelectString = "Select * From {专卖店目标} Where [_Identify] Is Null"
     Case "专卖店签约" 
            e.SelectString = "Select * From {专卖店签约} Where [_Identify] Is Null"
     Case "产品VLOOKUP" 
            e.SelectString = "Select * From {产品VLOOKUP} Where [_Identify] Is Null"
     Case "文具领用" 
            e.SelectString = "Select * From {文具领用} Where [_Identify] Is Null"
     Case "目标" 
            e.SelectString = "Select * From {目标} Where [_Identify] Is Null"
     Case "个案申请" 
            e.SelectString = "Select * From {个案申请} Where [_Identify] Is Null"
     Case "文件管理" 
            e.SelectString = "Select * From {文件管理} Where [_Identify] Is Null"
     Case "文具明细" 
            e.SelectString = "Select * From {文具明细} Where [_Identify] Is Null"
     Case "行政区域" 
            e.SelectString = "Select * From {行政区域} Where [_Identify] Is Null"
     Case "企业信息" 
            e.SelectString = "Select * From {企业信息} Where [_Identify] Is Null"
End Select

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/5/1 8:10:00 [只看该作者]

For Each s As String In "订单|人员|经销商信息|专卖店目标|专卖店签约|产品VLOOKUP|文具领用|目标|个案申请|文件管理|文具明细|行政区域|企业信息".Split("|")
    If e.DataTableName = s Then
        e.SelectString = "Select * From {" & s & "} Where [_Identify] Is Null"
    End If
Next
[此贴子已经被作者于2014-5-1 8:11:05编辑过]

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


加好友 发短信
等级:超级版主 帖子:521 积分:4910 威望:0 精华:7 注册:2008/9/2 22:22:00
  发帖心情 Post By:2014/5/1 8:16:00 [只看该作者]

Select Case e.DataTableName
   Case "订单","人员","经销商信息","专卖店目标","专卖店签约","产品VLOOKUP","文具领用","目标","个案申请","文件管理","文具明细","行政区域","企业信息" 
      e.SelectString = "Select * From {" & e.DataTableName & "} Where [_Identify] Is Null"
End Select

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


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/5/1 8:28:00 [只看该作者]

谢谢各位,已经解决了~~FOXTABEL真好~

 回到顶部