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

我做了如下图的导出条件选择窗口，求【导出数据】按钮公式

 

 
此主题相关图片如下：360截图20160930160136752.jpg

 

 

Dim dlg As New SaveFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "宽带帐号割接回访表" '指定导出表
    ex.NewTableName = "Sheet1"
    ex.FilePath = dlg.FileName
    ex.Format = "Excel" '导出格式为Excel
    If e.Form.Controls("导出字段").text = "" Then
    Else
        ex.Fields = e.Form.Controls("导出字段").text  '指定导出字段
    End If

 

    ex.Filter = ******* '指定导出条件

 

    ex.Export() '开始导出
    MessageBox.show("已经完成数据导出!!!", "非常关键提醒")
End If

好像不是我想要的意思

 

我是希望 导出条件1 -- 导出条件6 中如果有填内容就组合成条件进行导出；如一楼的截图、那么公式结果应该是：

 

ex.Filter = "[工单责任人] = '博罗县' and [割接情况] = '未割接' "

楼二的公式根本运行不了，就是运行了也不是那样的结果

以下公式执行结果会出现：如果【光功率】= -9、那么会出现【是否弱光】=“是”；而按理实际上应该【是否弱光】=“否”才对、我的命令该怎么修改？

 

 

For Each r As Row In Tables("网管导出光功率数据表").Rows

If r("光功率") ="--" Then
r("是否弱光") ="未采集到数据"
Else
If r("光功率") > "-26" Then
r("是否弱光") ="是"
Else
r("是否弱光") ="否"
End If
End If

For Each r As Row In Tables("网管导出光功率数据表").Rows

If r("光功率") ="--" Then
r("是否弱光") ="未采集到数据"
Else
If r("光功率") > "-26" Then
r("是否弱光") ="是"
Else
r("是否弱光") ="否"
End If
End If

 

 

此主题相关图片如下：360截图20161026000523717.jpg

 有如下命令，如果“光功率”为空、【是否弱光】会正常填入"未采集到光功率"、但是如果“光功率”值为 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

 

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

 

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

 

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

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

 

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

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

    End If
End If

 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))

 

 

 

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