coba bantu
For i = 1 To detil_item.Rows - 2
v_kode = Trim(detil_item.TextMatrix(i, 1))
v_qty = Trim(detil_item.TextMatrix(i, 3))
v_HARGA = Trim(detil_item.TextMatrix(i, 4))
db.Execute "UPDATE master SET STOCK=STOCK-" & CInt(v_qty) & _
" where kode= '" & v_kode & "'", , adCmdText
next
mungkin yg bikin ngga update -2 di atas.
kalo di flexgrid nya ada 1 baris kosong dibawah baru boleh pake -2
flexgridnya pake fixedrows ga ? kalo ngga pake berarti scriptnya : for i = 0
to .....
