Dim i As Integer
Open App.Path & "\db.dat" For Random As #1 len=len(db_db)
iNo = LOF(1) / Len(db_db)
For i = 1 To MSFlexGrid1.Rows - 1
iNo = iNo + i
db_db.id = MSFlexGrid1.TextMatrix(i, 1)
db_db.password = MSFlexGrid1.TextMatrix(i, 2)
db_db.answer = MSFlexGrid1.TextMatrix(i, 3)
Put #1, iNo, db_db
MSFlexGrid1.TextMatrix(i, 4) = "成功"
Next i
Close #1

运行一下就溢出了，应该是i数值溢出，put 语句重复录了，但是找不到哪里出错了


[ 本帖最后由 woa 于 2011-2-21 12:06 编辑 ]

表格里数据测试是1000，但是溢出

len(db_db)为0

不是，引用没问题，len(db_db) 为43.

找出问题了，果然是i溢出，因为iNo = iNo + i。这句代码写错了

借用一下，发个图。