Question

vb DATA控件

Private Sub Command1_Click
Data1.DatabaseName = App.Path & "\" & 3 & ".mdb"
Data1.RecordSource = "表1"
Data1.Refresh
Data1.Recordset.AddNew
Data1.Recordset.Fields(0) = CDate(Date) + Time
For j = 0 To 2
Data1.Recordset.Fields(j + 1) = Val(Text2(j * 3).Text)
Data1.Recordset.Fields(j + 4) = Val(Text2(1 + j * 3).Text)
Data1.Recordset.Fields(j + 7) = Val(Text2(2 + j * 3).Text)
Next j
Data1.Recordset.Update
我想实现的功能是使用data控件向数据库3中添加新的记录，但是为什么我在文本框里写了数据后点击按钮，数据库里显示数据并不是在最后一条而且数据全是0？？？很急啊，麻烦各位DX分析分析！
恩，ZHRX说得很正确，但我在文本框里写入的是数字，而且字段的数据类型也是对的，还有怎样才能使得我新添的数据在数据库的表里的最后一条显示？？？

Answer 1

For j = 0 To 2
Data1.Recordset.Fields(j + 1) = Val(Text2(j * 3).Text)
Data1.Recordset.Fields(j + 4) = Val(Text2(1 + j * 3).Text)
Data1.Recordset.Fields(j + 7) = Val(Text2(2 + j * 3).Text)
Next j
根据上面程序，你的文本框应该是9个数组文本框控件，它们是：
Text2(0)、Text2(1)、Text2(2)、Text2(3)、Text2(4)、Text2(5)、Text2(6)、Text2(7)、Text2(8)
数据库字段是：
1，4，7，2，5，8，3，6，9
并且这些字段全部是数字类型的字段，如果你的字段不是数字类型字段，或你在文本框输入的不是数字，都会出现“数据全是0”