主题：excel函数使用

老师好，我有下面的程序，运行正常，但不能满足我的需要。我需要列vn里不同的内容，在同一天内bar里用不同的颜色显示，程序运行结果只有一种颜色。请问如何改动程序。谢谢。

 

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:bar.zip

老师好，我有下面的程序，运行正常，但不能满足我的需要。我需要列vn里不同的内容，在同一天内bar里用不同的颜色显示，程序运行结果只有一种颜色。请问如何改动程序。谢谢

点击浏览该文件:bar.zip

Dim Chart4 As WinForm.Chart
Dim Series4 As WinForm.ChartSeries
Dim t As Table = Tables("表A")
Chart4=Forms("窗口1").Controls("Chart1")
Chart4.ChartType = ChartTypeEnum.Bar
chart4.AxisX.ClearValueLabel
Chart4.SeriesList.Clear() '清除图表原来的图系
Chart4.Stacked=True
Chart4.AxisY.Min = 0
Chart4.HeaderText=" 表A"
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("vn")
    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 & "'")
       
        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

Chart4.AxisX.AnnoWithLabels = True '启用字符标示
Chart4.LegendVisible = True '显示图列
Chart4.LegendCompass= CompassEnum.South '图列显示在南方(底端)

谢谢老师指导。但是您提供的代码有问题，执行结果，两天的数值是一样的，这是不对的，两天的数值是不一样的。请问怎么改。我没看懂您的程序。谢谢啦

Dim fdr = t.DataTable.find("date=#" & min & "# and vn='" & vn & "'")

 

改成

 

Dim fdr = t.DataTable.find("date=#" & d & "# and vn='" & vn & "'")

老师好，我有下面的程序，数据表与帮助文件的数据表不一样，但是需要画出饼状图，请问如何改动程序。谢谢！

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:pie.zip

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("表A") '定义一个变量t引用数据表
Chart=e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)
Dim r As Row = t.Current
For Each c As Col In t.Cols
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Length = 1 '一个系列只能包括一个值
    Series.Text = c.name & "(" & r(c.name) & ")" '设置图系的标题
    Series.Y(0) = val(r(c.name)) '指定值
Next
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.East '图列显示在东方(右方)

老师，继续上面的问题，我需要给出各列所占的百分比，如何改代码？帮助都是按列求和，然后得出百分比，可是我这里按行求和然后再求百分比，请问如何做到。谢谢

循环每一列求和

 

Dim sum As Double = 0

For Each c As Col In t.Cols
    sum += r(c.name)
Next

msgbox(sum)

请问老师，我用下面代码在窗口的afterload事件里，不能改变窗口的宽度和高度，请问如何打开一个窗口时改变窗口的宽度和高度？谢谢。

 

Forms("窗口1").width=1700
Forms("窗口1").height=200