Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index

Question

1.00/5 (1 vote)

See more:

private Sub btnShowCash_Click(sender As Object, e As EventArgs) Handles btnShowCash.Click
Try

con = New OleDbConnection(cs)

con.Open()
cmd = New OleDbCommand("SELECT (BillNo) as [Bill No],(BillDate) as [Bill Date],(PatientID) as [Patient ID],(Total) as [Total],(TotalPayment) as [Total Payment],(PaymentDue) as [Payment Due] from BillingInfo where BillDate between #" & GetFromDate.Text & "# And #" & GetToDate.Text & "#", con)
Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)

Dim myDataSet As DataSet = New DataSet()

myDA.Fill(myDataSet, "BillingInfo")

DataGridView1.DataSource = myDataSet.Tables("BillingInfo").DefaultView
Dim sum As Int64 = 0
Dim sum1 As Int64 = 0
Dim sum2 As Int64 = 0

For Each r As DataGridViewRow In Me.DataGridView1.Rows
sum = sum + r.Cells(4).Value
sum1 = sum1 + r.Cells(5).Value
sum2 = sum2 + r.Cells(6).Value
Next
txtTotal.Text = sum
txtTotalPayment.Text = sum1
txtPaymentDue.Text = sum2

con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Posted 16-Oct-14 20:06pm

Member 10991775

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Sinisa Hajnal · Answer 1 · 2014-10-16T20:31:00

Cell indexes start from 0 (zero) so from your query (6 columns) you can have maximum index of 5. It would be better if you access the cells via column names.

If this helps, please take time to accept the solution. Thank you.

Also, next time be so kind and a) format the code and b) indicate exact line in which you get the error (I'd say Cells(6) since that is impossible one :) but still...

Better solution:

VB

sum = myDataSet.Tables("BillingInfo").Compute("SUM(Total)"), "");
sum1 = myDataSet.Tables("BillingInfo").Compute("SUM(TotalPayment)"), "");
sum2 = myDataSet.Tables("BillingInfo").Compute("SUM(PaymentDue)"), ""); // why this?

Also, consider explicitely casting to Int64 via TryCast and renaming sum, sum1 and sum2 to something more descriptive. You'll be thankful to yourself in 6 months when you check the code and wonder that sum2 is even if it is clear now :)