我在按钮控件下进行如下操作:读取ACCESS数据库的一列数据("拖欠天数"),再通过设计的算法,生成另个一列数据("信用度"),存放的数据库中另一列,下面是代码。现在 出现的问题是编译后显示“键列信息不足或不正确，影响到更多的行”，
我知道自己的代码里有很多错误，但自己很菜，不知错在哪里，怎么修改，请大虾们指点一下,最好能修改一下代码
谢谢了～
Private Sub Command2_Click()
Dim a() As Integer, b() As Integer, T As Integer
Dim i As Integer
Adodc2.RecordSource = "select拖欠天数,信用度 * from Sheet1"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
Adodc2.Recordset.MoveFirst
End If
ReDim a(7049), b(7049)
i = 1
Do
a(i) = Adodc2.Recordset.Fields("拖欠天数")
T = 30
If a(i) = 0 Then
b(i) = 1
ElseIf 0 < a(i) < 30 Then
b(i) = 1 - 0.5 * a(i) / T
ElseIf a(i) > 29 Then
b(i) = 0
End If
Adodc2.Recordset.Fields("信用度") = b(i)
i = i + 1
Adodc2.Recordset.MoveNext
Loop Until Adodc2.Recordset.EOF
End Sub
[此贴子已经被作者于2006-5-23 7:43:06编辑过]
