在前面加
Dim i As Integer
看看
或者你把代码上传上来看看

[此贴子已经被作者于2007-10-15 13:03:02编辑过]

你先试一下把Dim data As Double 中的data 改为myData试一下,如果不行,就用下边的代码替换你的代码试试看.
(看数据库中的结果哦!还有就是数据库中的Num字段不应设置为自动增加!)

'**********************************
dim olecmd as OleDb.OleDbCommand = New OleDb.OleDbCommand
dbinit()
dim myData as double

for i=0 to 10
id=i+1
myData=12.55+i
olecmd.connection=cnn
olecmd.CommandType = CommandType.Text
olecmd.CommandText = "insert into Group1 (Num,data,DAQTime) values (id,myData,str)" '最好先把str改为一个实际值做测试!
olecmd.ExecuteNonQuery()
next
olecmd = Nothing
dbrelease()
'**********************************

[此贴子已经被作者于2007-10-15 18:55:42编辑过]

好的，非常感谢各位！
我用这样直接插入就没问题了
id = id + 1 '数据的序号
olecmd.Connection = conn
olecmd.CommandType = CommandType.Text
olecmd.CommandText = "insert into Group" & RecBuf(8 + 9 * i) & " (Num,data,DAQTime) values (" & id & "," & data& ",'"
_& Time & "')"
olecmd.ExecuteNonQuery()