我有一个表单进行简单的计算,但数字非常大.
示例:xml 96276480 graphics 2931829760
我已经将数据类型声明为Long,甚至还有一个CLng(Me.txtGraphics.value),但我仍然得到溢出错误这些数字来自文本框.这是我的代码:
Dim sgm As Long
Dim XML As Long
Dim prv As Long
Dim base As Long
Dim IETM As Long
Dim Graphics As Long
Dim total As Long
Dim pgCnt As Long
Const CXML = 2.5
Const CSGM = 6
Const CGraphic = 339
Dim pcSGM As Long
Dim pcXML As Long
Dim pcGraphic As Long
If Me.txtSGM.value = "" Then
sgm = 0
Else
sgm = Me.txtSGM.value
End If
If Me.txtXML.value = "" …