关于一个水库水纹的曲线问题

Question

在一个曲线图形中
一个溢出水位
也就是水库的最高值有一个死水位用面积表示
水库最低的值Y轴表示时间
X轴表示水位谢谢高手们

Answer 1

'参考一下这个
Option Explicit
Private nums As IntegerPrivate Sub Form_Load()
  Dim db As Database
  Dim rs As Recordset
  Dim dbname As String
  Dim i As Integer
  dbname = App.Path
  If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"       '判断数据库是否在根目录
  dbname = dbname & "data.mdb"
  Set db = OpenDatabase(dbname)                                '打开数据库
  Set rs = db.OpenRecordset("销售表", dbOpenTable)             '打开数据表
  rs.MoveLast
  rs.MoveFirst
  nums = rs.RecordCount
  ReDim arrValues(1 To nums, 1 To 3)                           '定义动态数组
  For i = 1 To nums                                            '给数组赋值
   arrValues(i, 1) = " " & rs!年份
   arrValues(i, 2) = rs!销售额
   arrValues(i, 3) = rs!利润
 rs.MoveNext
 Next i
 msChart1.ChartData = arrValues                               '图表显示数据
 msChart1.Title = "明日科技 1988--2002销售额、利润额（单位：万元）图表"   '图表名称
End Sub
Private Sub Command1_Click()
  End
End Sub

Answer 2

Option Explicit
Private rsProducts As New ADODB.Recordset
Private cn As New ADODB.Connection
Private Sub Form_Load()
   Dim strQuery As String                                       ' 定义SQL 查询字符串。
   cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\Data.mdb " '设置数据库路径。"
   cn.Open
   strQuery = "SELECT 产品名称,销售额,利润 from 月销售报表"     ' 创建一个只检索四个字段的查询。
   rsProducts.Open strQuery, cn, adOpenKeyset                   ' 打开记录集。
   With msChart1
      .ShowLegend = True
       Set .DataSource = rsProducts
       .Title.Text = "          腾龙医药 5月特药专柜销售情况图表             "   '设置图表名称
       .Title.VtFont.Effect = VtFontEffectUnderline                              '设置下划线
       .Title.VtFont.Size = 10                                                   '设置字体大小
       .Title.VtFont.VtColor.Set 255, 0, 255                                     '设置字体颜色
   End With
End Sub
Private Sub Command1_Click()
  End
End Sub