我有一個資料表
月份 NSV
201007 20
201007 30
201007 25
201008 36
201008 12
201008 45
201008 87
201009 98
201009 12
201009 65
月份的欄位大小是數字(長整數);NSV的欄位大小也是數字
用表單精靈作一個簡易的查詢(輸入月份後可查詢NSV)
並且寫一個程式,按了後會執行上述的結果
程式碼如下:
Private Sub Command5_Click()
Dim Fx As ADODB.Recordset
Set Fx = New ADODB.Recordset
Fx.Open "銷售資料", CurrentProject.Connection, , adLockOptimistic
Dim a As Long
a = 0
Do While Not Fx.EOF
If Fx("月份") = Me.起始月份 Then
a = a + Fx("NSV")
End If
Fx.MoveNext
Loop
Me.NSV = a
End Sub
可是當我輸入月份(如201007)的時候,出來的結果是0(正確應該是75)
(輸入201008也一樣結果是0)
請問一下那邊設定有問題呢?
該怎麼修改呢?
謝謝~
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 125.232.85.25