Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何在同一表内根据X和Y的数值自动划分标准


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

主题：[求助]如何在同一表内根据X和Y的数值自动划分标准
帅哥哟，离线，有人找我吗？
清谷
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：45 积分：653 威望：0 精华：0 注册：2016/1/5 9:48:00 		[求助]如何在同一表内根据X和Y的数值自动划分标准  发帖心情 Post By：2022/10/19 18:10:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20221019180404.png
图片点击可在新窗口打开查看

在同一表内有“从业人员”和“营业收入”两列（列类型为整数），
第三列为“行业名称”，分为工业、批发业、零售业等列项目，
第四列为“行业规模”，分为大型、中型、小型
请问如何根据上述“从业人员”“营业收入”“行业名称”三列的数据，自动判断改企业为大型、中型或小型？函数应如何设置？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111455 积分：567357 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/20 8:33:00 [只看该作者]

select case e.datacol.name
case "从业人员","营业收入","行业名称"
dim cy as integer = e.datarow("从业人员")
dim yy as integer = e.datarow("营业收入")
select case e.datarow("行业名称")
case "工业"
if cy >= 200 andalso yy >= 40000 then
e.datarow("行业规模") = "大型"
elseif cy >= 20 andalso cy <200 andalso yy>=2000 andalso yy < 40000 then
e.datarow("行业规模") = "中型"
……
case "批发业"
if cy >= 1000 andalso yy >= 40000 then
e.datarow("行业规模") = "大型"
elseif cy >= 300 andalso cy <1000 andalso yy>=5000 andalso yy < 40000 then
e.datarow("行业规模") = "中型"
……
 回到顶部
帅哥哟，离线，有人找我吗？
清谷
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：45 积分：653 威望：0 精华：0 注册：2016/1/5 9:48:00 		[求助]其他未列明行业的表达  发帖心情 Post By：2022/10/21 10:09:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20221021100819.png
图片点击可在新窗口打开查看


已设置如下代码，想统计列明的行业之外的行业类型（如居民服务业、农业等），“IF”的内容应如何设置？

Select Case e.DataCol.name
    Case "行业类型","从业人数","注册资本"
        Dim cy As Integer = e.DataRow("从业人数")
        Dim yy As Integer = e.DataRow("注册资本")
  Select Case e.DataRow("行业类型")
    Case "51 批发业"
        If cy >= 200 AndAlso yy >= 40000 Then
           e.DataRow("统计规模") = "大型"
          ElseIf cy >= 200 OrElse yy >= 40000 Then
           e.DataRow("统计规模") = "中型"
          ElseIf cy >= 20 AndAlso cy < 200 AndAlso yy>=5000 AndAlso yy < 40000 Then
           e.DataRow("统计规模") = "中型"
          ElseIf cy >= 20 AndAlso cy < 200 OrElse yy>=5000 AndAlso yy < 40000 Then
           e.DataRow("统计规模") = "小型"
          ElseIf cy >= 5 AndAlso cy < 20 AndAlso yy>=1000 AndAlso yy < 5000 Then
           e.DataRow("统计规模") = "小型"
          ElseIf cy >= 5 AndAlso cy < 20 OrElse yy>=1000 AndAlso yy < 5000 Then
           e.DataRow("统计规模") = "微型"
          ElseIf cy < 5 OrElse yy < 1000 Then
           e.DataRow("统计规模") = "微型"
        End If
    Case "52 零售业"
        If cy >= 300 AndAlso yy >= 20000 Then
           e.DataRow("统计规模") = "大型"
          ElseIf cy >= 300 OrElse yy >= 20000 Then
           e.DataRow("统计规模") = "中型"
          ElseIf cy >= 50 AndAlso cy < 300 AndAlso yy>= 500 AndAlso yy < 20000 Then
           e.DataRow("统计规模") = "中型"
          ElseIf cy >= 50 AndAlso cy < 300 OrElse yy>= 500 AndAlso yy < 20000 Then
           e.DataRow("统计规模") = "小型"
          ElseIf cy >= 10 AndAlso cy < 50 AndAlso yy>= 100 AndAlso yy < 500 Then
           e.DataRow("统计规模") = "小型"
          ElseIf cy >= 10 AndAlso cy < 50 OrElse yy>= 100 AndAlso yy < 500 Then
           e.DataRow("统计规模") = "微型"
          ElseIf cy < 10 OrElse yy < 100 Then
           e.DataRow("统计规模") = "微型"
        End If
    Case "59 装卸搬运和仓储业"
        If cy >= 200 AndAlso yy >= 30000 Then
           e.DataRow("统计规模") = "大型"
          ElseIf cy >= 200 OrElse yy >= 30000 Then
           e.DataRow("统计规模") = "中型"
          ElseIf cy >= 100 AndAlso cy < 200 AndAlso yy>= 1000 AndAlso yy < 30000 Then
           e.DataRow("统计规模") = "中型"
          ElseIf cy >= 100 AndAlso cy < 200 OrElse yy>= 1000 AndAlso yy < 30000 Then
           e.DataRow("统计规模") = "小型"
          ElseIf cy >= 20 AndAlso cy < 100 AndAlso yy>= 100 AndAlso yy < 1000 Then
           e.DataRow("统计规模") = "小型"
          ElseIf cy >= 20 AndAlso cy < 100 OrElse yy>= 100 AndAlso yy < 1000 Then
           e.DataRow("统计规模") = "微型"
          ElseIf cy < 20 OrElse yy < 100 Then
           e.DataRow("统计规模") = "微型"
        End If
    Case "61 住宿业"
        If cy >= 300 AndAlso yy >= 10000 Then
           e.DataRow("统计规模") = "大型"
          ElseIf cy >= 300 OrElse yy >= 10000 Then
           e.DataRow("统计规模") = "中型"
          ElseIf cy >= 100 AndAlso cy < 300 AndAlso yy>= 2000 AndAlso yy < 10000 Then
           e.DataRow("统计规模") = "中型"
          ElseIf cy >= 100 AndAlso cy < 300 OrElse yy>= 2000 AndAlso yy < 10000 Then
           e.DataRow("统计规模") = "小型"
          ElseIf cy >= 10 AndAlso cy < 100 AndAlso yy>= 100 AndAlso yy < 2000 Then
           e.DataRow("统计规模") = "小型"
          ElseIf cy >= 10 AndAlso cy < 100 OrElse yy>= 100 AndAlso yy < 2000 Then
           e.DataRow("统计规模") = "微型"
          ElseIf cy < 10 OrElse yy < 100 Then
           e.DataRow("统计规模") = "微型"
        End If
    Case "62 餐饮业"
        If cy >= 300 AndAlso yy >= 10000 Then
           e.DataRow("统计规模") = "大型"
          ElseIf cy >= 300 OrElse yy >= 10000 Then
           e.DataRow("统计规模") = "中型"
          ElseIf cy >= 100 AndAlso cy < 300 AndAlso yy>= 2000 AndAlso yy < 10000 Then
           e.DataRow("统计规模") = "中型"
          ElseIf cy >= 100 AndAlso cy < 300 OrElse yy>= 2000 AndAlso yy < 10000 Then
           e.DataRow("统计规模") = "小型"
          ElseIf cy >= 10 AndAlso cy < 100 AndAlso yy>= 100 AndAlso yy < 2000 Then
           e.DataRow("统计规模") = "小型"
          ElseIf cy >= 10 AndAlso cy < 100 OrElse yy>= 100 AndAlso yy < 2000 Then
           e.DataRow("统计规模") = "微型"
          ElseIf cy < 10 OrElse yy < 100 Then
           e.DataRow("统计规模") = "微型"
        End If
  End Select
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111455 积分：567357 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/21 10:15:00 [只看该作者]

    Case "61 住宿业"
 ……
    Case "62 餐饮业"
……
    Case else '剩下的其它行业
……
  End Select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 4 次数据查询