How to calculate data grid value and textbox value on change in vb.net winform

Question

Aryan Kumar · Answer

Sure, here are the steps on how to calculate data grid value and etxt box value on change in VB.NET WinForm:
Add a DataGridView control to your form.Add an TextBox control to your form.In the code-behind file, add a variable to store the value of the TextBox control.Add an event handler for the TextChanged event of the TextBox control.In the event handler, calculate the new value of the DataGridView control.Set the new value of the DataGridView control.
Here is an example of the code:
VB.Net
Public Class Form1
 Private dg As DataGridView
 Private tb As TextBox
 Public Sub New()
 InitializeComponent()
 dg = Me.Controls.Add("DataGridView1")
 tb = Me.Controls.Add("TextBox1")
 tb.TextChanged += Handler_TextChanged
 End Sub
 Private Sub Handler_TextChanged(sender As Object, e As EventArgs)
 ' Calculate the new value of the DataGridView control.
 Dim newTotal As Double = tb.Text.ToDouble() * 1.25
 ' Set the new value of the DataGridView control.
 dg.Rows(0).Cells(0).Value = newTotal
 End Sub
End Class
This code will calculate the new value of the DataGridView control based on the value of the TextBox control. The new value will be set to the DataGridView control every time the TextBox control is changed.

Anonymous User · Answer

Imports System.Data.SqlClient
Imports System.Globalization
Public Class frmdelivery_challan
 Dim obj As New Delivery_BAL
 Dim objBAL As New Delivery_DAL
 Private EditRow As Integer = -1
 Private Sub gridcolumn()
 Try
 With DataGridView1
 .Columns.Add("rowid", "rowid")
 .Columns("rowid").Width = 0
 .Columns("rowid").Visible = False
 .Columns.Add("slipno", "Slip No")
 .Columns("slipno").Width = 150
 .Columns.Add("lotno", "Lot No")
 .Columns("lotno").Width = 150
 .Columns("lotno").ReadOnly = True
 .Columns.Add("baleno", "Bale No")
 .Columns("baleno").Width = 150
 .Columns("baleno").ReadOnly = True
 .Columns.Add("qc_cd", "Quality_code")
 .Columns("qc_cd").Width = 0
 .Columns("qc_cd").ReadOnly = True
 .Columns("qc_cd").Visible = False
 .Columns.Add("Quality", "Quality")
 .Columns("Quality").Width = 250
 .Columns("Quality").ReadOnly = True
 .Columns.Add("wc_cd", "Width_code")
 .Columns("wc_cd").Width = 0
 .Columns("wc_cd").Visible = False
 .Columns("wc_cd").ReadOnly = True
 .Columns.Add("Width", "Width")
 .Columns("Width").Width = 100
 .Columns("Width").ReadOnly = True
 .Columns.Add("bale", "Bale")
 .Columns("bale").Width = 100
 ''.Columns("bale").ReadOnly = True
 .Columns.Add("Pcs", "Pcs")
 .Columns("Pcs").Width = 150
 '' .Columns("Pcs").ReadOnly = True
 .Columns.Add("Lmeter", "Meter")
 .Columns("Lmeter").Width = 150
 ''.Columns("Lmeter").ReadOnly = True
 End With
 Catch ex As Exception
 End Try
 End Sub
 Private Sub frmdelivery_challan_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 Try
 gridcolumn()
 Desable()
 Last()
 Catch ex As Exception
 End Try
 End Sub
 Private Sub txtparty_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtparty.KeyDown
 Try
 If e.KeyCode = Keys.F1 Then
 formname = Me.Name
 frmledger_list.ShowDialog()
 End If
 Catch ex As Exception
 End Try
 End Sub
 Private Sub txttransport_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txttransport.KeyDown
 Try
 If e.KeyCode = Keys.F1 Then
 formname = Me.Name
 frmtransport_list.ShowDialog()
 End If
 Catch ex As Exception
 End Try
 End Sub
 Private Sub frmdelivery_challan_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
 Try
 If e.KeyCode = Keys.Enter Then
 SendKeys.Send("{TAB}")
 ElseIf e.Control Then
 If e.KeyCode = Keys.A Then
 btnadd.PerformClick()
 ElseIf e.KeyCode = Keys.C Then
 btncancel.PerformClick()
 ElseIf e.KeyCode = Keys.E Then
 btnedit.PerformClick()
 ElseIf e.KeyCode = Keys.S Then
 btnupdate.PerformClick()
 ElseIf e.KeyCode = Keys.D Then
 btndelete.PerformClick()
 ElseIf e.KeyCode = Keys.F Then
 btnfrist.PerformClick()
 ElseIf e.KeyCode = Keys.N Then
 btnnext.PerformClick()
 ElseIf e.KeyCode = Keys.P Then
 btnprevious.PerformClick()
 ElseIf e.KeyCode = Keys.L Then
 btnlast.PerformClick()
 ElseIf e.KeyCode = Keys.X Then
 btnclose.PerformClick()
 End If
 ElseIf e.KeyCode = Keys.Escape Then
 Dim result = MessageBox.Show(" Are you sure close This. ", "Are you sure?", MessageBoxButtons.OKCancel)
 If result = DialogResult.OK Then
 delrecsqlExists("challan", "challan_dtl", "challan", "challan_dtl", "chlno", "totpcs", "lc_cd", "totmtr", 0, 0, 0, 0)
 Me.Close()
 End If
 End If
 Catch ex As Exception
 End Try
 End Sub
 Public Sub cleare()
 Try
 txtchlno.Text = ""
 txtdate.Text = Format(Date.Now, "dd/MM/yyyy").ToString
 txtdelplace.Text = ""
 txteditid.Text = ""
 txtparty.Text = ""
 txtparty_code.Text = ""
 txttotmeter.Text = 0
 txttotpcs.Text = 0
 txttotbale.Text = 0
 txttransport.Text = ""
 txttransport_code.Text = ""
 txtveh.Text = ""
 DataGridView1.Rows.Clear()
 txtdate.Focus()
 Catch ex As Exception
 End Try
 End Sub
 Public Sub Desable()
 Try
 txtchlno.Focus()
 txtdate.Enabled = False
 txtdelplace.Enabled = False
 txteditid.Enabled = False
 txtparty.Enabled = False
 txtparty_code.Enabled = False
 txttotmeter.Enabled = False
 txttotpcs.Enabled = False
 txttotbale.Enabled = False
 txttransport.Enabled = False
 txttransport_code.Enabled = False
 txtveh.Enabled = False
 DataGridView1.Enabled = False
 Catch ex As Exception
 End Try
 End Sub
 Public Sub Enable()
 Try
 txtdate.Enabled = True
 txtdelplace.Enabled = True
 txteditid.Enabled = True
 txtparty.Enabled = True
 txtparty_code.Enabled = True
 txttotmeter.Enabled = True
 txttotpcs.Enabled = True
 txttotbale.Enabled = True
 txttransport.Enabled = True
 txttransport_code.Enabled = True
 txtveh.Enabled = True
 DataGridView1.Enabled = True 
 Catch ex As Exception
 End Try
 End Sub
 Public Sub Nexts()
 Try
 obj.page = obj.page + 1
 obj.Chlno = ""
 obj.Get_Data(obj)
 i = i + 1
 txtchlno.Text = obj.Chlno
 txtdelplace.Text = obj.delplce
 txtparty.Text = obj.customer
 txtparty_code.Text = obj.customer_code
 txttotmeter.Text = obj.totmtr
 txttotpcs.Text = obj.totpcs
 txttransport.Text = obj.transport
 txttransport_code.Text = obj.transport_code
 txttotbale.Text = obj.totbale
 txtdate.Text = obj.dt
 txtveh.Text = obj.vehno
 If obj.page = 1 Then
 btnprevious.Enabled = False
 btnfrist.Enabled = False
 btnnext.Enabled = True
 btnlast.Enabled = True
 btnupdate.Enabled = False
 btncancel.Enabled = False
 ElseIf obj.page = lblrecordno.Text Then
 btnprevious.Enabled = True
 btnfrist.Enabled = True
 btnnext.Enabled = False
 btnlast.Enabled = False
 btnupdate.Enabled = False
 btncancel.Enabled = False
 Else
 btnprevious.Enabled = True
 btnfrist.Enabled = True
 btnnext.Enabled = True
 btnlast.Enabled = True
 btnupdate.Enabled = False
 btncancel.Enabled = False
 End If
 fill_grid_data()
 Catch ex As Exception
 End Try
 End Sub
 Public Sub Back()
 Try
 obj.page = obj.page - 1
 obj.Chlno = ""
 obj.Get_Data(obj)
 txtchlno.Text = obj.Chlno
 txtdelplace.Text = obj.delplce
 txtparty.Text = obj.customer
 txtparty_code.Text = obj.customer_code
 txttotmeter.Text = obj.totmtr
 txttotpcs.Text = obj.totpcs
 txttransport.Text = obj.transport
 txttransport_code.Text = obj.transport_code
 txttotbale.Text = obj.totbale
 txtdate.Text = obj.dt
 txtveh.Text = obj.vehno
 If obj.page = 1 Then
 btnprevious.Enabled = False
 btnfrist.Enabled = False
 btnnext.Enabled = True
 btnlast.Enabled = True
 btnupdate.Enabled = False
 btncancel.Enabled = False
 ElseIf obj.page andgt; 1 Then
 btnprevious.Enabled = True
 btnfrist.Enabled = True
 btnnext.Enabled = True
 btnlast.Enabled = True
 btnupdate.Enabled = False
 btncancel.Enabled = False
 End If
 fill_grid_data()
 Catch ex As Exception
 End Try
 End Sub
 Public Sub first()
 Try
 obj.page = 1
 obj.Chlno = ""
 obj.Get_Data(obj)
 txtchlno.Text = obj.Chlno
 txtdelplace.Text = obj.delplce
 txtparty.Text = obj.customer
 txtparty_code.Text = obj.customer_code
 txttotmeter.Text = obj.totmtr
 txttotpcs.Text = obj.totpcs
 txttransport.Text = obj.transport
 txttransport_code.Text = obj.transport_code
 txttotbale.Text = obj.totbale
 txtdate.Text = obj.dt
 txtveh.Text = obj.vehno
 If obj.page = 1 Then
 btnprevious.Enabled = False
 btnfrist.Enabled = False
 btnnext.Enabled = True
 btnlast.Enabled = True
 btnupdate.Enabled = False
 btncancel.Enabled = False
 End If
 fill_grid_data()
 Catch ex As Exception
 End Try
 End Sub
 Public Sub Last()
 Try
 obj.page = 0
 obj.Chlno = ""
 obj.Get_Data(obj)
 txtchlno.Text = obj.Chlno
 txtdelplace.Text = obj.delplce
 txtparty.Text = obj.customer
 txtparty_code.Text = obj.customer_code
 txttotmeter.Text = obj.totmtr
 txttotpcs.Text = obj.totpcs
 txttransport.Text = obj.transport
 txttransport_code.Text = obj.transport_code
 txttotbale.Text = obj.totbale
 txtdate.Text = obj.dt
 lblrecordno.Text = obj.page
 txtveh.Text = obj.vehno
 If obj.page andgt; 1 Then
 btnprevious.Enabled = True
 btnfrist.Enabled = True
 btnlast.Enabled = False
 btnnext.Enabled = False
 btnupdate.Enabled = False
 btncancel.Enabled = False
 ElseIf obj.page = 1 Then
 btnprevious.Enabled = False
 btnfrist.Enabled = False
 btnnext.Enabled = False
 btnlast.Enabled = False
 btnupdate.Enabled = False
 btncancel.Enabled = False
 End If
 If obj.msg = "Yes" Then
 btndelete.Enabled = True
 btnedit.Enabled = True
 Else
 btndelete.Enabled = False
 btnedit.Enabled = False
 btnprevious.Enabled = False
 btnfrist.Enabled = False
 btnlast.Enabled = False
 btnnext.Enabled = False
 btnupdate.Enabled = False
  btncancel.Enabled = False
 btnadd.Enabled = True
 cleare()
 End If
 fill_grid_data()
 Catch ex As Exception
 End Try
 End Sub
 Public Sub fill_filterdata()
 Try
 obj.page = 0
 obj.Chlno = txtchlno.Text
 obj.Get_Data(obj)
 txtchlno.Text = obj.Chlno
 txtdelplace.Text = obj.delplce
 txtparty.Text = obj.customer
 txtparty_code.Text = obj.customer_code
 txttotmeter.Text = obj.totmtr
 txttotpcs.Text = obj.totpcs
 txttransport.Text = obj.transport
 txttransport_code.Text = obj.transport_code
 txttotbale.Text = obj.totbale
 txtdate.Text = obj.dt
 If obj.page = 1 Then
 btnprevious.Enabled = False
 btnfrist.Enabled = False
 btnnext.Enabled = False
 btnlast.Enabled = False
 ElseIf obj.page = Convert.ToInt32(lblrecordno.Text) Then
 btnprevious.Enabled = True
 btnfrist.Enabled = True
 btnnext.Enabled = False
 btnlast.Enabled = False
 Else
 btnprevious.Enabled = True
 btnfrist.Enabled = True
 btnnext.Enabled = True
 btnlast.Enabled = True
 End If
 fill_grid_data()
 Catch ex As Exception
 End Try
 End Sub
 Private Sub fill_grid_data()
 Try
 obj.Get_Grid_Table(obj)
 Dim count As Integer = obj.Get_Details_table.Rows.Count
 Dim index As Integer = 0
 DataGridView1.Rows.Clear()
 Do While index andlt; count
 DataGridView1.Rows.Add(obj.Get_Details_table.Rows(index)("row_id"), obj.Get_Details_table.Rows(index)("p_slipno"), obj.Get_Details_table.Rows(index)("lotno"), obj.Get_Details_table.Rows(index)("baleno"),
 obj.Get_Details_table.Rows(index)("qc_cd"), obj.Get_Details_table.Rows(index)("qc_name"), obj.Get_Details_table.Rows(index)("wc_cd"),
 obj.Get_Details_table.Rows(index)("wc_name"), obj.Get_Details_table.Rows(index)("bale"),
 obj.Get_Details_table.Rows(index)("pcs"), obj.Get_Details_table.Rows(index)("l_mtr"))
 index = index + 1
 Loop
 Catch ex As Exception
 End Try
 End Sub
 Public Sub insert_data()
 Try
 If txtdate.Text = " / /" Then
 MsgBox("Please Enter Date")
 txtdate.Focus()
 Exit Sub
 ElseIf Convert.ToDateTime(txtdate.Text) andlt; Convert.ToDateTime(gbstartdate) Then
 MessageBox.Show("Please Enter financial year dates")
 txtdate.Focus()
 Exit Sub
 ElseIf Convert.ToDateTime(gbenddate) andlt; Convert.ToDateTime(txtdate.Text) Then
 MessageBox.Show("Please Enter financial year dates")
 txtdate.Focus()
 Exit Sub
 ElseIf txtparty.Text = "" Then
 MsgBox("Select Party")
 txtparty.Focus()
 Exit Sub
 End If
 obj.Chlno = IIf(IsDBNull(txtchlno.Text), "", txtchlno.Text)
 obj.customer = IIf(IsDBNull(txtparty_code.Text), "", txtparty_code.Text)
 obj.delplce = IIf(IsDBNull(txtdelplace.Text), "", txtdelplace.Text)
 obj.dt = IIf(IsDBNull(Format(Convert.ToDateTime(txtdate.Text), "yyyy-MM-dd")), 0, Format(Convert.ToDateTime(txtdate.Text), "yyyy-MM-dd"))
 obj.totbale = IIf(IsDBNull(Convert.ToDecimal(txttotbale.Text)), 0, Convert.ToDecimal(txttotbale.Text))
 obj.transport = IIf(IsDBNull(txttransport_code.Text), "", txttransport_code.Text)
 obj.vehno = IIf(IsDBNull(txtveh.Text), "", txtveh.Text)
 obj.totpcs = IIf(IsDBNull(Convert.ToDecimal(txttotpcs.Text)), 0, Convert.ToDecimal(txttotpcs.Text))
 obj.totmtr = IIf(IsDBNull(Convert.ToDecimal(txttotmeter.Text)), 0, Convert.ToDecimal(txttotmeter.Text))
 objBAL.insert_BROKER(obj)
 insert_grid_Data()
 cleare()
 Last()
 Desable()
 btnadd.Enabled = True
 btncancel.Enabled = False
 btnedit.Enabled = True
 btnclose.Enabled = True
 btndelete.Enabled = True
 btnupdate.Enabled = False
 Catch ex As Exception
 End Try
 End Sub
 Private Sub insert_grid_Data()
 Try
 Dim count As Integer = DataGridView1.Rows.Count
 Dim index As Integer = 0
 delrecsql("challan_dtl", "chlno", txtchlno.Text, False)
 Do While index andlt; count
 If DataGridView1.Rows(index).Cells("lotno").Value andlt;andgt; Nothing And DataGridView1.Rows(index).Cells("slipno").Value andlt;andgt; Nothing And DataGridView1.Rows(index).Cells("Pcs").Value andlt;andgt; 0 Or Nothing And DataGridView1.Rows(index).Cells("Lmeter").Value andlt;andgt; 0 Or Nothing Then
 obj.pslip = DataGridView1.Rows(index).Cells("slipno").Value
 obj.Chlno = txtchlno.Text
 obj.lotno = DataGridView1.Rows(index).Cells("lotno").Value
 obj.baleno = DataGridView1.Rows(index).Cells("baleno").Value
 obj.quality = IIf(IsDBNull(DataGridView1.Rows(index).Cells("qc_cd").Value), "", DataGridView1.Rows(index).Cells("qc_cd").Value)
 obj.wdth = IIf(IsDBNull(DataGridView1.Rows(index).Cells("wc_cd").Value), "", DataGridView1.Rows(index).Cells("wc_cd").Value)
 obj.bale = DataGridView1.Rows(index).Cells("Bale").Value
 obj.pcs = DataGridView1.Rows(index).Cells("Pcs").Value
 obj.lmtr = DataGridView1.Rows(index).Cells("Lmeter").Value
 obj.ROW_ID = DataGridView1.Rows(index).Cells("rowid").Value
 objBAL.insert_Lot_Grid(obj)
 End If
 index = index + 1
 Loop
 Catch ex As Exception
 End Try
 End Sub
 Public Sub search()
 Try
 Dim sqlstr As String = ""
 Dim vailidate As Boolean
 Dim dr As SqlDataReader
 Dim cmd As New SqlCommand
 Dim count As Integer = 0
 Dim newrow As Integer = 0
 If (DataGridView1.CurrentRow.Cells("slipno").Value = "") Then
 Exit Sub
 Else
 vailidate = chackLotnumber()
 If vailidate = False Then
 Exit Sub
 End If
 sqlstr = "select * from challan_delivery_bal where slipno='" + DataGridView1.CurrentRow.Cells("slipno").Value.ToString.ToUpper + "' and pcsandlt;andgt;0 and mtrandlt;andgt;0"
 cmd.CommandText = sqlstr
 cmd.Connection = cn
 '' If Not dr.IsClosed Then dr.Close()
 dr = cmd.ExecuteReader
 If dr.HasRows Then
 Do While dr.Read
 If count = 0 Then
 DataGridView1.CurrentRow.Cells("rowid").Value = dr("row_id")
 DataGridView1.CurrentRow.Cells("slipno").Value = dr("slipno")
 DataGridView1.CurrentRow.Cells("lotno").Value = dr("lotno")
 DataGridView1.CurrentRow.Cells("baleno").Value = dr("baleno")
 DataGridView1.CurrentRow.Cells("qc_cd").Value = dr("qc_cd")
 DataGridView1.CurrentRow.Cells("quality").Value = dr("qc_name")
 DataGridView1.CurrentRow.Cells("width").Value = dr("wc_name")
 DataGridView1.CurrentRow.Cells("wc_cd").Value = dr("wc_cd")
 DataGridView1.CurrentRow.Cells("Bale").Value = dr("bale")
 DataGridView1.CurrentRow.Cells("Pcs").Value = dr("pcs")
 DataGridView1.CurrentRow.Cells("Lmeter").Value = dr("mtr")
 count = count + 1
 Else
 newrow = DataGridView1.Rows.Add
 DataGridView1.Rows(newrow).Cells("rowid").Value = dr("row_id")
 DataGridView1.Rows(newrow).Cells("slipno").Value = dr("slipno")
 DataGridView1.Rows(newrow).Cells("lotno").Value = dr("lotno")
 DataGridView1.Rows(newrow).Cells("baleno").Value = dr("baleno")
 DataGridView1.Rows(newrow).Cells("qc_cd").Value = dr("qc_cd")
 DataGridView1.Rows(newrow).Cells("quality").Value = dr("qc_name")
 DataGridView1.Rows(newrow).Cells("width").Value = dr("wc_name")
 DataGridView1.Rows(newrow).Cells("wc_cd").Value = dr("wc_cd")
 DataGridView1.Rows(newrow).Cells("Bale").Value = dr("bale")
 DataGridView1.Rows(newrow).Cells("Pcs").Value = dr("pcs")
 DataGridView1.Rows(newrow).Cells("Lmeter").Value = dr("mtr")
 count = count + 1
 End If
 Loop
 Else
 MessageBox.Show("Alrady issue Lot number Packged")
 DataGridView1.CurrentRow.Cells("slipno").Value = ""
 End If
 dr.Close()
 End If
 Catch ex As Exception
 End Try
 End Sub
 Private Sub DataGridView1_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
 Try
 If DataGridView1.Rows.Count andgt; 1 Then
 Dim index As Integer = 0
 Dim pcs As Decimal = 0
 Dim mtr As Decimal = 0
 Dim bale As Decimal = 0
 Select Case e.ColumnIndex
 Case 1
 search()
 calculate()
 LockCell()
 insert_grid_Data()
 Case 8
 calculate()
 LockCell()
 insert_grid_Data()
 Case 9
 calculate()
 LockCell()
 insert_grid_Data()
 Case 10
 calculate()
 LockCell()
 insert_grid_Data()
 End Select
 End If
 Catch ex As Exception
 End Try
 End Sub
 Public Function chackLotnumber() As Boolean
 Try
 Dim sqlstr As String = ""
 Dim dr As SqlDataReader
 Dim cmd As New SqlCommand
 If (DataGridView1.CurrentRow.Cells("slipno").Value = "") Then
 Exit Function
 Else
 sqlstr = "select * from packing where slipno='" and DataGridView1.CurrentRow.Cells("slipno").Value and "'"
 End If
 cmd.CommandText = sqlstr
 cmd.Connection = cn
 dr = cmd.ExecuteReader
 If dr.HasRows Then
 dr.Read()
 If txtparty_code.Text andlt;andgt; dr!lc_cd Then
 MsgBox("Party Not Matching")
 dr.Close()
 DataGridView1.CurrentRow.Cells("slipno").Value = ""
 Return False
 Exit Function
 Else
 dr.Close()
 Return True
 End If
 Else
 MsgBox("Invalid Lot No")
 DataGridView1.CurrentRow.Cells("slipno").Value = ""
 dr.Close()
 Return False
 Exit Function
 End If
 dr.Close()
 Catch ex As Exception
 End Try
 End Function
 Public Sub calculate()
 Try
 Dim index As Integer = 0
 Dim pcs As Decimal = 0
 Dim mtr As Decimal = 0
 Dim bale As Decimal = 0
 Do While index andlt; DataGridView1.Rows.Count - 1
 pcs += IIf(IsDBNull(DataGridView1.Rows(index).Cells("pcs").Value), 0, DataGridView1.Rows(index).Cells("pcs").Value)
 mtr += IIf(IsDBNull(DataGridView1.Rows(index).Cells("Lmeter").Value), 0, DataGridView1.Rows(index).Cells("Lmeter").Value)
 bale += IIf(IsDBNull(DataGridView1.Rows(index).Cells("bale").Value), 0, DataGridView1.Rows(index).Cells("bale").Value)
 index = index + 1
 Loop
 txttotmeter.Text = mtr
 txttotpcs.Text = pcs
 txttotbale.Text = bale
 Catch ex As Exception
 End Try
 End Sub
 Public Sub LockCell()
 Try
 If DataGridView1.Rows.Count andgt; 1 Then
 Dim index As Integer = 0
 Do While index andlt; DataGridView1.Rows.Count - 1
 If DataGridView1.Rows(index).Cells("slipno").Value andlt;andgt; "" Then
 DataGridView1.Rows(index).Cells("rowid").ReadOnly = True
 DataGridView1.Rows(index).Cells("slipno").ReadOnly = True
 DataGridView1.Rows(index).Cells("lotno").ReadOnly = True
 DataGridView1.Rows(index).Cells("baleno").ReadOnly = True
 DataGridView1.Rows(index).Cells("qc_cd").ReadOnly = True
 DataGridView1.Rows(index).Cells("quality").ReadOnly = True
 DataGridView1.Rows(index).Cells("width").ReadOnly = True
 DataGridView1.Rows(index).Cells("wc_cd").ReadOnly = True
 DataGridView1.Rows(index).Cells("Bale").ReadOnly = True
 DataGridView1.Rows(index).Cells("Pcs").ReadOnly = True
 DataGridView1.Rows(index).Cells("Lmeter").ReadOnly = True
 End If
 index = index + 1
 Loop
 End If
 Catch ex As Exception
 End Try
 End Sub
 Private Sub DataGridView1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles DataGridView1.KeyPress
 'If DataGridView1.CurrentCell.ColumnIndex = 1 Or _
 ' DataGridView1.CurrentCell.ColumnIndex = 2 Or _
 ' DataGridView1.CurrentCell.ColumnIndex = 3 Then
 ' AllowOnlyNumeric(e, ".")
 'End If
 End Sub
 Private Sub txtchlno_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtchlno.KeyDown
 Try
 If e.KeyCode = Keys.F1 Then
 formname = Me.Name
 frmdelivery_challanList.ShowDialog()
 End If
 Catch ex As Exception
 End Try
 End Sub
 Private Sub DataGridView1_EditingControlShowing(sender As Object, e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
 Try
 EditRow = DataGridView1.CurrentRow.Index
 AddHandler e.Control.KeyPress, AddressOf DataGridView1_KeyPress
 Catch ex As Exception
 End Try
 End Sub
 Private Sub DataGridView1_SelectionChanged(sender As Object, e As System.EventArgs) Handles DataGridView1.SelectionChanged
 Try
 If EditRow andgt;= 0 Then
 Dim newRow As Integer = EditRow
 EditRow = -1
 DataGridView1.CurrentCell = DataGridView1.Rows(newRow).Cells(DataGridView1.CurrentCell.ColumnIndex)
 End If
 Catch ex As Exception
 End Try
 End Sub
 Private Sub btnadd_Click(sender As System.Object, e As System.EventArgs) Handles btnadd.Click
 Try
 Enable()
 cleare()
 txtchlno.Text = Get_ID("challan", "chlno", Convert.ToDateTime(gbstartdate).ToString("yy") and "/", False, "", 6)
 insertID("challan", "chlno", "lc_cd", "totpcs", txtchlno.Text, 0, 0)
 btnadd.Enabled = False
 btncancel.Enabled = True
 btnedit.Enabled = False
 btnclose.Enabled = True
 btndelete.Enabled = False
 btnfrist.Enabled = False
 btnlast.Enabled = False
 btnnext.Enabled = False
 btnprevious.Enabled = False
 btnupdate.Enabled = True
 Catch ex As Exception
 End Try
 End Sub
 Private Sub btnedit_Click(sender As System.Object, e As System.EventArgs) Handles btnedit.Click
 Try
 If Get_Value("challan", "status", "chlno='" + txtchlno.Text + "'") andlt;andgt; 0 Then
 MsgBox("This Entry Can not Edit")
 Exit Sub
 Else
 Enable()
 btnadd.Enabled = False
 btncancel.Enabled = True
 btnedit.Enabled = False
 btnclose.Enabled = True
 btndelete.Enabled = True
 btnupdate.Enabled = True
 btnprevious.Enabled = False
 btnfrist.Enabled = False
 btnlast.Enabled = False
 btnnext.Enabled = False
 End If
 Catch ex As Exception
 End Try
 End Sub
 Private Sub btncancel_Click(sender As System.Object, e As System.EventArgs) Handles btncancel.Click
 Try
 btnadd.Enabled = True
 btncancel.Enabled = False
 btnedit.Enabled = True
 btnclose.Enabled = True
 btndelete.Enabled = True
 btnupdate.Enabled = False
 delrecsqlExists("challan", "challan_dtl", "challan", "challan_dtl", "chlno", "totpcs", "lc_cd", "totmtr", txtchlno.Text, 0, 0, 0)
 cleare()
 Desable()
 Last()
 Catch ex As Exception
 End Try
 End Sub
 Private Sub btnupdate_Click(sender As System.Object, e As System.EventArgs) Handles btnupdate.Click
 Try
 insert_data()
 Catch ex As Exception
 End Try
 End Sub
 Private Sub btndelete_Click(sender As System.Object, e As System.EventArgs) Handles btndelete.Click
 Try
 If Get_Value("challan", "status", "chlno='" + txtchlno.Text + "'") andlt;andgt; 0 Then
 MsgBox("This Entry Can Not Delete")
 Exit Sub
 Else
 delrecsql("challan", "chlno", txtchlno.Text, False)
 delrecsql("challan_dtl", "chlno", txtchlno.Text, False)
 '' update_Value("Packing", "status", "0", "slipno='" + txtbillno.Text + "'")
 cleare()
 Desable()
 Last()
 End If
 Catch ex As Exception
 End Try
 End Sub
 Private Sub btnfrist_Click(sender As System.Object, e As System.EventArgs) Handles btnfrist.Click
 Try
 Desable()
 first()
 Catch ex As Exception
 End Try
 End Sub
 Private Sub btnnext_Click(sender As System.Object, e As System.EventArgs) Handles btnnext.Click
 Try
 Desable()
 Nexts()
 Catch ex As Exception
 End Try
 End Sub
 Private Sub btnprevious_Click(sender As System.Object, e As System.EventArgs) Handles btnprevious.Click
 Try
 Desable()
 Back()
 Catch ex As Exception
 End Try
 End Sub
 Private Sub btnlast_Click(sender As System.Object, e As System.EventArgs) Handles btnlast.Click
 Try
 Desable()
 Last()
 Catch ex As Exception
 End Try
 End Sub
 Private Sub btnclose_Click(sender As System.Object, e As System.EventArgs) Handles btnclose.Click
 Try
 delrecsqlExists("challan", "challan_dtl", "challan", "challan_dtl", "chlno", "totpcs", "lc_cd", "totmtr", 0, 0, 0, 0)
 Me.Close()
 Catch ex As Exception
 End Try
 End Sub
 Private Sub frmdelivery_challan_FormClosed(sender As System.Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
 Try
 delrecsqlExists("challan", "challan_dtl", "challan", "challan_dtl", "chlno", "totpcs", "lc_cd", "totmtr", 0, 0, 0, 0)
 Catch ex As Exception
 End Try
 End Sub
 Private Sub DataGridView1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown
 Try
 If e.KeyCode = Keys.Return Then
 If DataGridView1.CurrentRow.Index andlt; DataGridView1.RowCount - 1 AndAlso DataGridView1.CurrentCell.ColumnIndex = DataGridView1.ColumnCount - 1 Then
 Else
 Dim cur_cell As DataGridViewCell = DataGridView1.CurrentCell
 Dim col As Integer = cur_cell.ColumnIndex
 col = (col + 1) Mod DataGridView1.Columns.Count
 cur_cell = DataGridView1.CurrentRow.Cells(col)
 End If
 e.Handled = True
 End If
 Catch ex As Exception
 End Try
 End Sub
 Private Sub DataGridView1_RowEnter(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.RowEnter
 Try
 If txtdate.Text = " / /" Then
 MsgBox("Please Enter Date")
 txtdate.Focus()
 Exit Sub
 ElseIf txtparty.Text = "" Then
 MsgBox("Select Party")
 txtparty.Focus()
 Exit Sub
 End If
 Catch ex As Exception
 End Try
 End Sub
 Private Sub txtdate_Validating(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles txtdate.Validating
 Try
 Dim vailidate As Boolean
 Dim dt As DateTime
 vailidate = DateTime.TryParseExact(txtdate.Text, "dd/MM/yyyy", Nothing, DateTimeStyles.None, dt)
 If vailidate = False Then
 MsgBox("Wrong Date")
 txtdate.Focus()
 Exit Sub
 End If
 If Convert.ToDateTime(txtdate.Text) andlt; Convert.ToDateTime(gbstartdate) Then
 MessageBox.Show("Please Enter financial year dates")
 txtdate.Focus()
 Exit Sub
 ElseIf Convert.ToDateTime(gbenddate) andlt; Convert.ToDateTime(txtdate.Text) Then
 MessageBox.Show("Please Enter financial year dates")
 txtdate.Focus()
 Exit Sub
 End If
 Catch ex As Exception
 End Try
 End Sub
 Private Sub DataGridView1_UserDeletingRow(sender As System.Object, e As System.Windows.Forms.DataGridViewRowCancelEventArgs) Handles DataGridView1.UserDeletingRow
 If Not MessageBox.Show("Are you sure Delete?", "Deleting", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
 e.Cancel = True
 End If
 End Sub
 Private Sub DataGridView1_UserDeletedRow(sender As System.Object, e As System.Windows.Forms.DataGridViewRowEventArgs) Handles DataGridView1.UserDeletedRow
 Try
 calculate()
 insert_grid_Data()
 Catch ex As Exception
 End Try
 End Sub
 Private Sub TextBoLeave(ByVal sender As Object, ByVal e As System.EventArgs) _
 Handles txtparty.Leave
 Try
 Dim tb As TextBox = DirectCast(sender, TextBox)
 With tb
 Select Case tb.Name
 Case "txtparty"
 If .Text = "" Then
 MsgBox("This field Select From Master Press F1 !!")
 End If
 End Select
 End With
 Catch ex As Exception
 End Try
 End Sub
End Class

forum

How to calculate data grid value and textbox value on change in vb.net winform

Anonymous User

2 Answers

Liked By