grid updates but deletes previous content

[kamote]

Hi everyone...

I'm working on a cashier-like program and everytime I purchase a product, an scGrid on the form shows the product that I purchase. the problem is that the scGrid should have a product on it before it can show a product and when it shows the new product that I purchase, it overwrites the previous product that i chose.

Im using this code to update the scGrid:

scGrid.refresh

and when I disable this command, it will not update the scGrid eventhough how many times i addd the product.

please help! need it badly!

[westconn1]

you need to show more of your code, writing to the grid, if you want someone to help

[isnoend07]

I don't know what an scGrid is but if its anything like a mshflexigrid be sure you are adding it to rows that do not contain data

[kamote]

Here's the code, thanks!

Private Sub PurchaseNA()

Dim purchaseItemTotalCos As String
Dim GetTotalSalar As String
Dim GetTDeduc As String
Dim GetAllPurchaseAmou As String
Dim GetAllowanc As String
Dim Alldeduction As String


    purchaseItemTotalCos = purchaseItemTotalCost
    GetTotalSalar = GetTotalSalary
    GetTDeduc = GetTDeduct
    GetAllPurchaseAmou = GetAllPurchaseAmout
    GetAllowanc = GetAllowance
                   


If Val(purchaseItemTotalCos) > Val(GetAllowanc) Or Val(purchaseItemTotalCos) = Val(GetAllowanc) Then
       Totalme = Val(GetTotalSalar) + 20
       Call AddNatinSalary(Totalme - Val(purchaseItemTotalCos))
       Call bawansanAllowance("0")
ElseIf Val(purchaseItemTotalCos) < Val(GetAllowanc) Then
       Call bawansanAllowance(CStr(Val(GetAllowanc) - Val(purchaseItemTotalCos)))
End If

hold = "0"

rst.Update
SCGrid1.Refresh

[westconn1]

rst.Update
SCGrid1.Refresh

you are updating the recordset and then refreshing the grid, but you do not show any code for writing to the recordset.
how many records in your recordset, are you adding new records?

[kamote]

Here it is:

Private Sub Command3_Click()
 Dim totalsAlary1 As String
 
 
 
 If Text4.Text = "" Then
 MsgBox ("please choose quantity")
 Else
 
 Call SetRecordset("Select * From  deductToSalary Where codenumber='" & getcodenumber & "'")
      totalsAlary1 = CStr(Val(rst.Fields!salary) + Val(rst.Fields!Allowance))

 Call SetRecordset("Select * From Product Where itemcode='" & Trim(Text1.Text) & "'")
     rst.Fields!Qtty = Val(rst.Fields!Qtty) - Val(Text4.Text)
     rst.Update
      
      
  
 
   



If Text4.Text = "" Then Exit Sub
      Call SetRecordset("Select * From tmpPurchase")
   
   
   rst.AddNew
        
        rst.Fields!Product = List1.List(List1.ListIndex)
        rst.Fields!Itemcode = Text1.Text
        rst.Fields!TotalItem = Text4.Text
        rst.Fields!totalAmount = Val(Text4.Text) * Val(Text7.Text)
   
   rst.Update

 
    hold = Val(hold) + Val(hold2)

    Text6.Text = hold
   
    Command3.Enabled = False

MsgBox ("item added")
    Text4.Text = ""

DoEvents
     Call PurchaseNA
     Call calculate1

------------------------------------------------------------------------

Public Sub calculate1()

DoEvents

Set cnn1 = New ADODB.Connection
cnn1.CursorLocation = adUseClient
cnn1.Open MainConnection

cnn1.BeginTrans
cnn1.Execute "DELETE FROM tmpPurchase"
cnn1.CommitTrans
cnn1.Close

Set cnn1 = Nothing

End Sub