Help with this code Please??

[Neumee]

Can someone please help me with this?? I'm trying to check if a part already exists in the dataset. This will work if add a part say "6969"....then the next part I add is "6969"..that works fine...but if there is a part "6969"...then another "2002"....then I try and add "2002" again....it still adds it..and it shouldn't...so if anywhere in the dataset the part number is contained...dont add new record!!

Dim drCurrent as New Datarow
drCurrent = oldform9.mPartsNumber.NewRow()

drCurrent("PAR_NUMBER") = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)

If oldform9.mPartsNumber.Rows.Count < 1 Then
                oldform9.mPartsNumber.Rows.Add(drCurrent)
            Else
                Dim thisItem As System.Data.DataRow
                For Each thisItem In oldform9.PartsNumberData.Tables(0).Rows
                                       If drCurrent("PAR_NUMBER") = oldform9.PartsNumberData.Tables(0).Rows.Item(0).Item(0).ToString() Then
                            MsgBox("equal")
                        Exit For
                    Else
                        MsgBox("not equal:")
                    oldform9.mPartsNumber.Rows.Add(drCurrent)
                        Exit For
                   End If
Next
End If

Thanks for the help in advance!!

[Lunatic3]

one way could be this:

Dim drSeek(), drCurrent as DataRow, 
Dim partno as String' I assumed part number is String
partno=DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)
drSeek=oldform9.PartsNumberData.Tables(0).Select( The_Filed_Containing_Part_Number = '" & partno &"'")
' if partno is numerical then the above line will be
' drSeek=oldform9.PartsNumberData.Tables(0).Select( The_Filed_Containing_Part_Number = " & partno )
 
If drSeek.Lenght>0 Then
    Messagebox.Show("Already Exists")
Else
   Messagebox.Show("Not Exists")
   drCurent=oldform9.mPartsNumber.NewRow()
   drCurrent("PAR_NUMBER") =partno
   oldform9.mPartsNumber.Rows.Add(drCurrent)
End if

[Neumee]

Thanks for the reply!!

The code you submitted works perfect....but now..I want to increase the QTY by 1, to the exsisting part if the part already exists?

The following code is what I'm using..

Dim drSeek(), x As DataRow
                Dim drSeekStock(), y As DataRow
                Dim partno As String ' I assumed part number is String

                partno = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)
                drSeek = oldform9.PartsNumberData.Tables(0).Select("PAR_NUMBER = '" & partno & "'")
                drSeekStock = oldform9.PartsNumberData.Tables(0).Select("STOCK = '" & partno & "'")

                If drSeek.Length > 0 Then
                    MessageBox.Show("Already Exists")
                    oldform9.DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 3) =                     oldform9.DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 3) + 1 
                Else
                    MessageBox.Show("Not Exists")
                    oldform9.mPartsNumber.Rows.Add(drCurrent)
                End If

This only works for the first record you add to the invoice...Is there someway I can Increase qty by 1, for the part that already exists that I'm trying to add.

So If I add "6969"...then add it again...this will increase by 1..
but then if I add "2002"....then try adding it again...it will throw an excpetion instead of increasing QTY by 1.

Thanks for the help

[Lunatic3]

I could help more if I knew your data structure, and the description of the exception. However I can guess where your problem lies.
When u add a value that does not exist at all, then you have to update your main table (Table(0) of dataset) with this value too, in that case furthure additions will be considered as 'already exists'. If you dont do that you may face an error trying to enter duplicate values in mPartsNumber table if you have chosen the filed to be unique. So check if the exception is thrown when you are adding a brand new part number then the likely problem will be that.

There is a strange point in your code.

drSeek = oldform9.PartsNumberData.Tables(0).Select("PAR_NUMBER = '" & partno & "'")
drSeekStock = oldform9.PartsNumberData.Tables(0).Select("STOCK = '" & partno & "'")

in the above lines you are filtering two fileds of one table, "PAR_NUMBER" and "STOCK" based on the same value 'partno'. Do they contain the same data? if yes why two fileds with the same data, if not why filtering on same value?

oldform9.DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 3) = oldform9.DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 3) + 1

This will look better if you use:

oldform9.DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 3) +=1

[Neumee]

I figured out what I needed to do to fix my problem..

If oldform9.mPartsNumber.Rows.Count < 1 Then
                oldform9.mPartsNumber.Rows.Add(drCurrent)
            Else
                Dim drSeek()
                Dim partno As String = ""
                Dim invoiceRow As DataRow
                partno = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)
                drSeek = oldform9.PartsNumberData.Tables(0).Select("PAR_NUMBER = '" & partno & "'")

                If drSeek.Length > 0 Then
                    invoiceRow = CType(drSeek(0), DataRow)
                    If invoiceRow("PAR_BO") <> 0 Then
                        invoiceRow.BeginEdit()
                        invoiceRow("PAR_BO") += 1
                        invoiceRow.EndEdit()
                    Else
                        invoiceRow.BeginEdit()
                        invoiceRow("STOCK") += 1
                        invoiceRow("PAR_AMOUNT") = invoiceRow("STOCK") * invoiceRow("PAR_LIST")
                        invoiceRow.EndEdit()
                     End If
                Else
                    oldform9.mPartsNumber.Rows.Add(drCurrent)
                End If
            End If
            oldform10.Close()

The strange part in my code....was just for testing purposes...I dont actually use that.....

And yeah I just learned the better looking syntax for "+="...so thanks alot.

I have another problem though....if you can help me with that...

I need to sum all the values of a column in the datagrid...
So for the column "PAR_NUMBER"...I want to add all items in the datagrid and display the total in a label.

ex...
Datagrid....

Item1 "200"
Item2 "100"

Label.text = "400" (sum of the 2 items)

thanks again

[Lunatic3]

Dim i, sum, cnt As Integer, dt As DataTable
dt = Datagrid1.DataSource
cnt = dt.Rows.Count
For i = 0 To cnt - 1
    sum += dt.Rows(i)(INDEX_OR_NAME_OF_THE_COLOUMN_HERE)
Next
Label1.Text=sum.ToString