主题：excel函数使用

Dim Chart5 As WinForm.Chart
Dim Series5 As WinForm.ChartSeries
Dim tChart5 As Table = Tables("DBDS")
Chart5=e.Form.Controls("Chart1")
Chart5.ChartType = ChartTypeEnum.Bar

Chart5.SeriesList.Clear() '清除图表原来的图系
Chart5.Dock = System.Windows.Forms.DockStyle.fill

Dim tt As Table = Tables("DBDS")

'Series = Chart.SeriesList.Add() '增加一个图系

Dim max2 As Date = tt.Compute("max(Date)")
Dim min2 As Date = tt.Compute("min(Date)")

Series5 = Chart5.SeriesList.Add()

Dim ii As Integer = 0
Dim dd = min2

Series5.length = (max2-min2).Totaldays + 1

Do While dd <= max2
   
    Dim fdrr = tt.DataTable.find("Ves='" & "DF" & "'")
   
    For Each rChart5  As Col In tChart5.Cols
        If rChart5.Name<>"Date" And rChart5.Name<>"Off" And  rChart5.Name<>"Bl" And rChart5.Name<>"De" And rChart5.Name<>"Mo" And rChart5.Name<>"Ves" Then
           
            If fdrr Is Nothing Then
                Series5.X(ii) = ii
                Series5.Y(ii) = 0
                output.show(ii & " " & Series5.X(ii) & " " & Series5.Y(ii))
            Else
                Series5.X(ii) = ii
                Series5.Y(ii) = fdrr(rChart5.Name)
                output.show(ii & " " & Series5.X(ii) & " " & Series5.Y(ii))
            End If
           
           
           
        End If
    Next
    Chart5.AxisX.SetValueLabel(ii, dd)
   
    ii += 1
    dd = dd.adddays(1)
   
Loop
'Chart5.LegendVisible = True
'Chart5.SeriesList(0).Text="Acquisition"
'Chart5.SeriesList(0).FillColor=Color.Green
'Chart5.SeriesList(1).Text="Chargeable Standby"
'Chart5.SeriesList(1).FillColor=Color.Yellow
'Chart5.SeriesList(2).Text="Demobilization"
'Chart5.SeriesList(2).FillColor=Color.Purple
'Chart5.SeriesList(3).Text="DownTime"
'Chart5.SeriesList(3).FillColor=Color.Red
'Chart5.SeriesList(4).Text="Mobilisation"
'Chart5.SeriesList(4).FillColor=Color.Cyan
'Chart5.SeriesList(5).Text="Non-Chargeable StandBy"
'Chart5.SeriesList(5).FillColor=Color.Thistle
Chart5.AxisX.AnnoWithLabels = True '启用字符标示
Chart5.LegendVisible = True '显示图列
Chart5.LegendCompass= CompassEnum.South
'ppp.addcontrol(Chart5)

老师，我需要的是叠合图，将DF的每日的数据生成叠合图，下面是表里的DF三天的数据，需要生成叠合状图。请问老师怎么改代码？谢谢

2027-11-12 00:00:00 18.467 2.367    3.167  DF
2027-11-13 00:00:00 9.717 4.217  5.2  4.867  DF
2027-11-11 00:00:00 15.75 2.367  2.717  3.167  DF

下图是我需要生成的。

Dim Chart5 As WinForm.Chart
Dim Series5 As WinForm.ChartSeries
Dim tChart5 As Table = Tables("DBDS")
Chart5=e.Form.Controls("Chart1")
Chart5.ChartType = ChartTypeEnum.Bar

Chart5.SeriesList.Clear() '清除图表原来的图系
Chart5.Dock = System.Windows.Forms.DockStyle.fill

Dim tt As Table = Tables("DBDS")

'Series = Chart.SeriesList.Add() '增加一个图系

Dim max2 As Date = tt.Compute("max(Date)")
Dim min2 As Date = tt.Compute("min(Date)")

Dim ii As Integer = 0
Dim dd = min2

For Each rChart5  As Col In tChart5.Cols
    If rChart5.Name<>"Date" And rChart5.Name<>"Off" And  rChart5.Name<>"Bl" And rChart5.Name<>"De" And rChart5.Name<>"Mo" And rChart5.Name<>"Ves" Then
        Series5 = Chart5.SeriesList.Add()
        series5.Text = rchart5.Name
        Series5.length = (max2-min2).Totaldays + 1
    End If
   
Next

Do While dd <= max2
   
    Dim fdrr = tt.DataTable.find("Ves='" & "DF" & "' and date = #" & dd & "#")
    Dim jj As Integer = 0
   
    For Each rChart5  As Col In tChart5.Cols
        If rChart5.Name<>"Date" And rChart5.Name<>"Off" And  rChart5.Name<>"Bl" And rChart5.Name<>"De" And rChart5.Name<>"Mo" And rChart5.Name<>"Ves" Then
            Series5 = Chart5.SeriesList(jj)
           
            If fdrr Is Nothing Then
                Series5.X(ii) = ii
                Series5.Y(ii) = 0
                output.show(ii & " " & Series5.X(ii) & " " & Series5.Y(ii))
            Else
               
                Series5.X(ii) = ii
               
                Series5.Y(ii) = val(fdrr(rChart5.Name))
                output.show(ii & " " & Series5.X(ii) & " " & Series5.Y(ii))
               
            End If
            jj += 1
        End If
    Next
    Chart5.AxisX.SetValueLabel(ii, dd)
   
    ii += 1
    dd = dd.adddays(1)
   
Loop
'Chart5.LegendVisible = True
'Chart5.SeriesList(0).Text="Acquisition"
'Chart5.SeriesList(0).FillColor=Color.Green
'Chart5.SeriesList(1).Text="Chargeable Standby"
'Chart5.SeriesList(1).FillColor=Color.Yellow
'Chart5.SeriesList(2).Text="Demobilization"
'Chart5.SeriesList(2).FillColor=Color.Purple
'Chart5.SeriesList(3).Text="DownTime"
'Chart5.SeriesList(3).FillColor=Color.Red
'Chart5.SeriesList(4).Text="Mobilisation"
'Chart5.SeriesList(4).FillColor=Color.Cyan
'Chart5.SeriesList(5).Text="Non-Chargeable StandBy"
'Chart5.SeriesList(5).FillColor=Color.Thistle
Chart5.AxisX.AnnoWithLabels = True '启用字符标示
Chart5.LegendVisible = True '显示图列
Chart5.LegendCompass= CompassEnum.South
'ppp.addcontrol(Chart5)
Chart5.Stacked = True

请问老师，我需要输出数据文件到指定的目录，下面的程序如何改动才能实现? 谢谢。

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "订单" '指定导出表
    ex.filepath = dlg.FileName  '指定目标文件
    ex.Export() '开始导出
End If

参考

Dim ex As New Exporter
ex.SourceTableName = "表A" '指定导出表
ex.filepath = "d:\test123.mdb"
ex.Export() '开始导出

老师好，我用下面语句输入数据，当选择取消按钮时，程序仍然继续增加行，而不是退出。请问如何改代码。谢谢

InputValue(val, "Add Lines", "Add Lines:")
Dim k As Integer=val