'To add columns and columns widths to Datagridview1 OF FORM2 Private Sub form2_Load(sender As Object, e As EventArgs) Handles Me.Load DataGridView1.Columns.Add("cpteprinci", "No Compte") DataGridView1.Columns.Add("journgencd", "Intitule") DataGridView1.Columns.Add("TotalDb", "Ouverture Debits") DataGridView1.Columns.Add("Totalcd", "Ouverture Credits") DataGridView1.Columns.Add("column5", "Mouvements Debiteurs") DataGridView1.Columns.Add("column6", "Mouvements Crediteurs") DataGridView1.Columns.Add("column7", "Total Debits") DataGridView1.Columns.Add("column8", "Total Credits") DataGridView1.Columns.Add("column9", "Soldes Debiteurs") DataGridView1.Columns.Add("column10", "Soldes Crediteurs") DataGridView1.Columns(0).Width = 60 DataGridView1.Columns(1).Width = 140 DataGridView1.Columns(2).Width = 75 DataGridView1.Columns(3).Width = 75 DataGridView1.Columns(4).Width = 75 DataGridView1.Columns(5).Width = 75 DataGridView1.Columns(6).Width = 75 DataGridView1.Columns(7).Width = 75 DataGridView1.Columns(8).Width = 75 DataGridView1.Columns(9).Width = 75 'To transfer data from form1 to form2 Dim n As Integer = 0 For Each row As DataGridViewRow In form1.DataGridView1.Rows If (Form1.DataGridView1.Rows.Count <> (n + 1)) Then DataGridView1.Rows.Add() For p As Integer = 0 To Form1.DataGridView1.ColumnCount - 1 DataGridView1.Rows(n).Cells(p).Value = row.Cells(p).Value Next End If n = n + 1 Next end sub 'To calculate the cumulative of all columns Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim wdt As Integer = 0 dim arrcol as new arraylist dim ik as integer=25 dim i as integer=0 Do While i <= DataGridView1.ColumnCount - 1 wdt = DataGridView1.Columns(i).width ik =ik+ wdt arrcol.Add(ik) i = i+ 1 loop
DataGridView1
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)