Private Sub btnShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow.Click Try con.query = "SELECT challan.cno, merchant.mname, challan.cdate, challan.total FROM merchant INNER JOIN challan ON merchant.mno = challan.mno WHERE ((challan.cdate Between #" + from.ToString + "# And #" + upto.ToString + "#) AND (challan.mno=" + mno.ToString + "))" con.openConnection() con.objadp = New OleDbDataAdapter(con.query, con.objcon) bulider = New OleDbCommandBuilder(con.objadp) dt.Rows.Clear() con.objadp.Fill(dt) dgvChallanList.DataSource = dt dgvChallanList.Columns(0).HeaderText = "Challan No" dgvChallanList.Columns(1).HeaderText = "Date" dgvChallanList.Columns(2).HeaderText = "Merchant Name" dgvChallanList.Columns(3).HeaderText = "Total" Dim r As Integer = dt.Rows.Count Dim tot As Long = 0 For i As Integer = 0 To r - 1 Step 1 tot += dgvChallanList.Rows(i).Cells("Total").Value Next lblTotal.Text = tot.ToString("00") Catch ex As Exception MessageBox.Show(ex.Message.ToString) Finally con.closeConnection() End Try End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)