主题：excel函数使用

Dim Chart4 As WinForm.Chart
Dim Series4 As WinForm.ChartSeries
Dim t As Table = Tables("day")
Chart4=Forms("View").Controls("Chart")
Chart4.ChartType = ChartTypeEnum.Bar
chart4.AxisX.ClearValueLabel
Chart4.SeriesList.Clear() 
Chart4.Stacked=True
Chart4.AxisY.Min = 0
Chart4.AxisX.AnnoRotation = - 15 
Dim max As Date = t.Compute("max(date)")
Dim min As Date = t.Compute("min(date)")
For Each vn As String In t.DataTable.GetValues("VNa")
    Dim Series = Chart4.SeriesList.Add() 
    series.text = vn
    series.length = (max-min).Totaldays + 1
    Dim i As Integer = 0
    Dim d = min
    Do While d <= max
        'Dim fdr = t.DataTable.find("date=#" & min & "# and vn='" & vn & "'")
        Dim fdr = t.DataTable.find("date=#" & d & "# and VNa='" & vn & "'")

        If fdr Is Nothing Then
            Series.X(i) = i
            Series.Y(i) = 0
        Else
            Series.X(i) = i
            Series.Y(i) = fdr("Prod")
        End If
       
        Chart4.AxisX.SetValueLabel(i, d) '指定字符表示
        i += 1
        d = d.adddays(1)
    Loop
   
Next