Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Series =
Chart.SeriesList.Add() '增加一个图系
dim t as table=tables("销售汇总")
Series.Length = t.rows.count '新增图系包括10个数据点
Series.TooltipText = "X =
{#XVAL}, Y = {#YVAL}"
For i As
integer = 0
to t.rows.count-1 '指定每个数据点的位置
Series.X(i) = i
'指定水平坐标
Series.Y(i)
= t.rows(i)("销售额") '垂直坐标用随机数生成
Chart.AxisX.SetValueLabel(i, t.Rows(i)("客户名称"))
Next
红色部分 这个 tiptext 我想写成： 客户：& t.Rows(i)("客户名称") & t.Rows(i)("统计期间") & "销售额：" & t.Rows(i)("销售额")
要用什么方法
加好友 
发短信
Post By：2019/5/25 18:23:00 [显示全部帖子]
