Create Multi-Line Chart using DataTable in Windows Forms Application using C# and VB.Net

Hi sksandeep,

Check this example. Now please take its reference and correct your code.

Namespace

C#

using System.Windows.Forms.DataVisualization.Charting;

VB.Net

Imports System.Windows.Forms.DataVisualization.Charting

Code

C#

private void Form1_Load(object sender, EventArgs e)
{
    DataTable dt = new DataTable();
    dt.Columns.AddRange(new DataColumn[] { 
        new DataColumn("TagName"), 
        new DataColumn("On",typeof(int)), 
        new DataColumn("Off",typeof(int)), 
        new DataColumn("Trip",typeof(int)) });
    dt.Rows.Add("P1", 0, 0, 1);
    dt.Rows.Add("P2", 0, 1, 1);
    dt.Rows.Add("P3", 0, 1, 0);
    dt.Rows.Add("Q1", 0, 1, 0);
    dt.Rows.Add("Q2", 1, 0, 1);
    dt.Rows.Add("Q3", 2, 2, 2);
    dt.Rows.Add("W1", 4, 2, 1);
    dt.Rows.Add("W2", 2, 0, 1);
    dt.Rows.Add("W3", 1, 1, 0);
    dt.Rows.Add("W4", 0, 1, 1);
    dt.Rows.Add("W5", 2, 1, 1);
    chTrend.DataSource = dt;
    chTrend.ChartAreas[0].AxisX.Interval = 1;
    chTrend.Series.Clear();
    for (int i = 1; i < dt.Columns.Count; i++)
    {
        Series series = new Series();
        series.XValueMember = dt.Columns[0].ColumnName;
        series.YValueMembers = dt.Columns[i].ColumnName;
        series.ChartType = SeriesChartType.Line;
        series.IsVisibleInLegend = true;
        series.IsValueShownAsLabel = true;
        series.BorderWidth = 3;
        series.LegendText = dt.Columns[i].ColumnName;
        chTrend.Series.Add(series);
    }
}

VB.Net

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Dim dt As DataTable = New DataTable()
    dt.Columns.AddRange(New DataColumn() {New DataColumn("TagName"), New DataColumn("On", GetType(Integer)), New DataColumn("Off", GetType(Integer)), New DataColumn("Trip", GetType(Integer))})
    dt.Rows.Add("P1", 0, 0, 1)
    dt.Rows.Add("P2", 0, 1, 1)
    dt.Rows.Add("P3", 0, 1, 0)
    dt.Rows.Add("Q1", 0, 1, 0)
    dt.Rows.Add("Q2", 1, 0, 1)
    dt.Rows.Add("Q3", 2, 2, 2)
    dt.Rows.Add("W1", 4, 2, 1)
    dt.Rows.Add("W2", 2, 0, 1)
    dt.Rows.Add("W3", 1, 1, 0)
    dt.Rows.Add("W4", 0, 1, 1)
    dt.Rows.Add("W5", 2, 1, 1)
    chTrend.DataSource = dt
    chTrend.ChartAreas(0).AxisX.Interval = 1
    chTrend.Series.Clear()
    For i As Integer = 1 To dt.Columns.Count - 1
        Dim series As Series = New Series()
        series.XValueMember = dt.Columns(0).ColumnName
        series.YValueMembers = dt.Columns(i).ColumnName
        series.ChartType = SeriesChartType.Line
        series.IsVisibleInLegend = True
        series.IsValueShownAsLabel = True
        series.BorderWidth = 3
        series.LegendText = dt.Columns(i).ColumnName
        chTrend.Series.Add(series)
    Next
End Sub

Screenshot