hi all
i am trying to add the value of listbox2 as price but it adds -1 every thing else is okay
any ideas ?
thank you for your time
i am trying to add the value of listbox2 as price but it adds -1 every thing else is okay
any ideas ?
thank you for your time
VB.NET:
Rec.Open("SELECT * FROM Records", Conn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
Dim ki As Integer = 0
For Each item As String In ListBox1.Items
Rec.AddNew()
Rec.Fields("TransID").Value = My.Settings.TransID
Rec.Fields("ItemID").Value = My.Settings.ItemID
Rec.Fields("Item").Value = item
Rec.Fields("Price").Value = ListBox2.Items.IndexOf(ki)
Rec.Fields("Sold").Value = Date.Today
Rec.Update()
My.Settings.ItemID = My.Settings.ItemID + 1
ki = ki + 1
Next
Rec.Close()