我定义了Dim a(1 To 9, 1 To 9) As Double,当一串具有11位的数字存入数组a时,总会提示"超出当前范围"(当一串是10位数字存入时也会提示"超出当前范围",再当一串只有9位的数字存入时才可运行),请教要如何修改才可避免,谢谢

[ 本帖最后由 fdxxhjc 于 2015-9-21 19:45 编辑 ]

实时错误'-2147352566(8002000a)':
超出当前范围.

请先生指点,谢谢

[ 本帖最后由 fdxxhjc 于 2015-9-21 21:12 编辑 ]

先生是这样,我在设置了:Dim a(1 To 9, 1 To 9) As Double的情况下,用代码
For i = 1 To n
   For j = 1 To n
     Debug.Print a(i, j);
   Next j
    Debug.Print
  DFF1rs1.Update
  DFF1rs1.AddNew
 Next i
经过运行后若将结果在"立即窗口"中显示是成功的
而用代码
For i = 1 To n
     For j = 1 To n
 DFF1rs1("列" & j) = a(i, j)
Next j
DFF1rs1.Update
    DFF1rs1.AddNew
 Next i
想写入MDB表时则显示错误代码为:
实时错误'-2147352566(8002000a)':
超出当前范围.

谢谢先生指点

先生是这样,我在设置了:Dim a(1 To 9, 1 To 9) As Double的情况下,用代码
For i = 1 To n
   For j = 1 To n
     Debug.Print a(i, j);
   Next j
    Debug.Print
  DFF1rs1.Update
  DFF1rs1.AddNew
Next i
经过运行后若将结果在"立即窗口"中显示是成功的
而用代码
For i = 1 To n
     For j = 1 To n
DFF1rs1("列" & j) = a(i, j)
Next j
DFF1rs1.Update
    DFF1rs1.AddNew
Next i
想写入MDB表时则显示错误代码为:
实时错误'-2147352566(8002000a)':
超出当前范围.

谢谢先生指点

哦谢谢先生。我这个mdb表的字段是“双精度型”格式“空白”小数位数“自动”，请教先生这个表的字段中修改成什么形式能使写入的数的位数更多些，请指教，谢谢

哦，麻烦先生了