Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- For tblNum = 0 To (dsData.Tables.Count - 1)
- tblName = dsData.Tables(tblNum).TableName
- caTag = dtReport.Rows(tblNum).Item("caTag")
- If (dtReport.Rows(tblNum).Item("CAnum") > CAnum) Then
- CAnum = dtReport.Rows(tblNum).Item("CAnum")
- myChart.ChartAreas.Add(caTag)
- myChart.Legends.Add(caTag)
- With myChart.Legends(caTag)
- .Docking = Docking.Bottom
- .DockedToChartArea = caTag
- .IsDockedInsideChartArea = False
- .TableStyle = LegendTableStyle.Wide
- .Alignment = StringAlignment.Center
- .Enabled = True
- End With
- If (caCount > 1) Then
- CAindex += 1
- myChart.Titles.Add(caTag)
- With myChart.Titles(CAindex)
- .Docking = Docking.Top
- .DockedToChartArea = caTag
- .IsDockedInsideChartArea = False
- .Alignment = ContentAlignment.TopCenter
- .Font = New System.Drawing.Font("Times New Roman", 14, FontStyle.Bold)
- .Text = caTag
- End With
- End If
- Else
- myChart.Legends(caTag).Enabled = True
- End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement