作者ychinglin (he)
看板Visual_Basic
标题[VBA ] access整个栏位每笔都进行计算
时间Tue Mar 16 13:32:46 2010
版本 Access 2003
Private Sub Command34_Click()
Dim strsql As String
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset
Dim rst1 As ADODB.Recordset
Set rst = New ADODB.Recordset
Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.Connection
strsql = "select 库存量 from 3rd库存档"
rst.Open strsql, CurrentProject.Connection
strsql = "insert into 库存量2 values([" & 库存量 & "])"
cmd.CommandText = strsql
cmd.Execute
End Sub
这程式码目的是在点击之後 进行栏位的复制(或者是四则运算)
可是 在执行的时候
库存量这个栏位 只会读到第一个数值
(当然 也没有写入的动作)
请问 要怎样让整个库存量的数值
都复制(或者四则运算)到 "库存量2" 这个栏位里面？
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 125.232.80.92
※ 编辑: ychinglin 来自: 125.232.80.92 (03/16 13:46)
1F：→ ychinglin:後来用movefirst & movenext loop搞定了 03/16 15:00