Foxtable(狐表)用户栏目专家坐堂 → [求助] 导出数据公式


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

主题:[求助] 导出数据公式

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2016/10/26 11:09:00 [只看该作者]

 有如下命令,如果“光功率”为空、【是否弱光】会正常填入"未采集到光功率"、但是如果“光功率”值为 0 、【是否弱光】也会填入"未采集到光功率";我的命令该怎么改?  (列“光功率”为单精度小数)

 

If r("光功率") = Nothing Then
r("是否弱光") ="未采集到光功率"
End If

 

 

如果命令如下、则不管是 空 还是 0 ,显示的都是 "未采集光功率"

 

For Each r As Row In Tables("表A").Rows


If r("光功率") = Nothing   Then
r("是否弱光") ="未采集到光功率"
Else
If r("光功率") = "0" Then
r("是否弱光") ="否"

End If
End If

Next

 

 

 

如果命令如下、则不管是 空 还是 0 ,显示的都是 "否"

 

For Each r As Row In Tables("表A").Rows

If r("光功率") = "0" Then
r("是否弱光") ="否"
Else
If r("光功率") = Nothing   Then
r("是否弱光") ="未采集到光功率"
End If
End If

Next

 

[此贴子已经被作者于2016/10/26 11:29:44编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107649 积分:547554 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/26 11:49:00 [只看该作者]

For Each r As Row In Tables("表A").Rows
    If r.IsNull("光功率") Then
        r("是否弱光") ="未采集到光功率"
    ElseIf r("光功率") = 0 Then
        r("是否弱光") ="否"
    End If
Next


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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2016/10/27 16:59:00 [只看该作者]

有一个表【网管导出光功率数据表】是【内部数据表】;当该表数据只加载了部分数据、那么没有加载的年部分数据中【数据日期】列的内容我就无法在【组合框】中显示出来供选择。

 

以下命令该怎么修改才能直接读取到【数据日期】列的所有内容、包括没有加载的数据。

 

e.Sender.ComboList = DataTables("网管导出光功率数据表").GetComboListString("数据日期")


 回到顶部
帅哥,在线噢!
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107649 积分:547554 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/27 17:11:00 [只看该作者]

e.Sender.ComboList = DataTables("网管导出光功率数据表").SQLGetComboListString("数据日期")

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2016/11/7 17:23:00 [只看该作者]

如果【客户投诉故障情况】列发生变化、那么如果【客户投诉故障情况】列内容包括了'博罗'两个字、那么【分公司】列填入'博罗分公司';我的命令该怎么写?

 

If e.DataCol.Name = "客户投诉故障情况" Then 
    If e.DataRow("客户投诉故障情况") **** "博罗" Then

        e.DataRow("分公司") = "博罗分公司"     Else

    End If
End If

[此贴子已经被作者于2016/11/7 17:24:09编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107649 积分:547554 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/7 17:32:00 [只看该作者]

If e.DataCol.Name = "客户投诉故障情况" AndAlso e.DataRow.Isnull("客户投诉故障情况") = False Then 
    If e.DataRow("客户投诉故障情况") Like "*博罗*" Then
        e.DataRow("分公司") = "博罗分公司"     Else
    End If
End If



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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2016/11/10 11:54:00 [只看该作者]

 1、如果我希望统计表中【总数_平均时长】列得出的结果为  数据表中【处理时长】的 平均值,我的命令该怎么改?

  .....

Dim c_gt3 As Integer = DataTables("家宽热点清单表").compute("count(处理时长)", "分公司 = '" & r("分公司") & "' ")
r("总数_平均时长") = c_gt3

 ......

 

 

 

2、
此主题相关图片如下:360截图20161110145807917.jpg
按此在新窗口浏览图片

 

 Dim g As New GroupTableBuilder("家宽热点分析表", DataTables("家宽热点清单表"))
    g.Groups.AddDef("分公司")
    g.Groups.AddDef("原因大类","原因大类_原因")
    g.Groups.AddDef("原因小类","原因小类_原因")  
  
    g.Build()
   
    Dim t As Table = Tables("家宽热点统计窗口_Table1")
    t.DataSource = g.BuildDataSource() '生成表
    t.SetColVisibleWidth("分公司|100|总数_市公司|100|总数_分公司|100|总数_占比|100|总数_平均时长|100|原因大类_原因|100|原因大类_数量|100|原因大类_市公司占比|100|原因大类_分公司占比|100|原因大类_平均时长|100|原因小类_原因|120|原因小类_数量|100|原因小类_市公司占比|100|原因小类_分公司占比|100|原因小类_平均时长|100")
    t.DataTable.DataCols.Add("总数_市公司", Gettype(Double))
    t.DataTable.DataCols.Add("总数_分公司", Gettype(Double))
    t.DataTable.DataCols.Add("总数_占比", Gettype(Double))
    t.DataTable.DataCols.Add("总数_平均时长", Gettype(Double))
   
   
    t.DataTable.DataCols.Add("原因大类_数量", Gettype(Double))
    t.DataTable.DataCols.Add("原因大类_市公司占比", Gettype(Double))
    t.DataTable.DataCols.Add("原因大类_分公司占比", Gettype(Double))
    t.DataTable.DataCols.Add("原因大类_平均时长", Gettype(Double))
   
   
    t.DataTable.DataCols.Add("原因小类_数量", Gettype(Double))
    t.DataTable.DataCols.Add("原因小类_市公司占比", Gettype(Double))
    t.DataTable.DataCols.Add("原因小类_分公司占比", Gettype(Double))
    t.DataTable.DataCols.Add("原因小类_平均时长", Gettype(Double))

 

 

 


[此贴子已经被作者于2016/11/11 10:37:19编辑过]

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2016/11/11 10:38:00 [只看该作者]

哪位大侠能帮我解决一下17楼的问题?

 回到顶部
帅哥,在线噢!
有点蓝
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


 回到顶部
帅哥,在线噢!
有点蓝
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim count As Integer = DataTables("家宽热点清单表").compute("count(处理时长)", "分公司 = '" & r("分公司") & "' ")
Dim sum As Integer = DataTables("家宽热点清单表").compute("sum(处理时长)", "分公司 = '" & r("分公司") & "' ")
r("总数_平均时长") = sum / count

 回到顶部
总数 41 上一页 1 2 3 4 5 下一页