Private Sub Frm_StockUpdate(ByVal LdbM_NewStkQty As Double, ByVal LdbM_ItemNo As Double) Dim LdbM_TotalQty As Double con.Open() cmd = New SqlClient.SqlCommand("Select * from Mst_Stock Where Stk_ItmNo=" & LdbM_ItemNo & "", con) dr = cmd.ExecuteReader() If dr.HasRows Then While dr.Read If IsDBNull(dr("Stk_Qty")) = False Then LdbM_TotalQty = dr("Stk_Qty") LdbM_TotalQty = LdbM_TotalQty - LdbM_NewStkQty Else 'LdbM_TotalQty = LdbM_TotalQty + LdbM_NewStkQty End If End While End If con.Close() Dim LsM_Qryinsert2 As String con.Open() LsM_Qryinsert2 = "update Mst_Stock set Stk_Qty=@Stk_Qty Where Stk_ItmNo=" & LdbM_ItemNo & "" cmd = New SqlClient.SqlCommand(LsM_Qryinsert2, con) cmd.CommandType = CommandType.Text cmd.Parameters.AddWithValue("Stk_Qty", LdbM_TotalQty) cmd.ExecuteNonQuery() con.Close() End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)