請問一下各位高手, 我在一個 DataGrid 中處理庫存問題
但始終都無法將更新的資料去扣除庫存中的數量, 請問一
下以下的做法那邊有問題?
Private Sub DataGrid2_AfterColUpdate(ByVal ColIndex As Integer)
Dim tno, tname As String
Dim aqty, tqty, nqty As Integer
On Error Resume Next
Set b1 = DataEnvironment1.rs設備
If ColIndex = 1 Then
If DataGrid2.Columns(1) ＜＞ "" Then
tno = DataGrid2.Columns(1).Text
b1.Open
b1.MoveFirst
b1.Find "物品編號 =" & Chr(39) & tno & Chr(39)
If Not b1.EOF Then
tname = b1("物品名稱")
tqty = b1("庫存量")
Else
MsgBox "找不到該筆資料!!", vbOKOnly + vbExclamation, "輸入錯誤"
b1.Close
End If
DataGrid2.Columns(2).Text = tname
End If
b1.Close
End If
***** 這邊始終無法去達成扣庫存的問題 ********
If ColIndex = 3 Then
If DataGrid2.Columns(3) ＜＞ "" Then
nqty = CInt(DataGrid2.Columns(3).Text)
aqty = tqty - nqty
b1.Update "庫存量", aqty
End If
End If
End Sub