ACCESS中，后一列根据前一列的数值自动填数？？？

Question

前一列数值大于等于40，后一列自动填2；
前一列数值小于40，后一列自动填1；
前一列数值等于0或空，后一列自动填0或空。

Answer 1

1、建立一个数据表，表中有2个字段A、B，全为字符型（见窗体视图）；

2、建立1个窗体，其上创建1个列表框，2个按钮（见窗体视图）；

3、按钮“清空B列数值”的单击事件中输入如下代码：

Private Sub Command2_Click()

strSQL = "UPDATE 表AB SET 表AB.B = ' ';"  '清空

  CurrentProject.Connection.Execute strSQL

  Me.List0.Requery

End Sub

4、按钮“自动更新数值”的单击事件中输入如下代码：

Private Sub Command3_Click()

  strSQL = "UPDATE 表AB SET 表AB.B = '2' WHERE (((表AB.A)>='40'));"  '>=40

  CurrentProject.Connection.Execute strSQL

  strSQL = "UPDATE 表AB SET 表AB.B = '1' WHERE (((表AB.A)<'40' And (表AB.A)>'0'));"  '<40 并且 >0

  CurrentProject.Connection.Execute strSQL

  strSQL = "UPDATE 表AB SET 表AB.B = '0' WHERE ((表AB.A)='0');"  '=0

  CurrentProject.Connection.Execute strSQL

  strSQL = "UPDATE 表AB SET 表AB.B = ' ' WHERE (IsNull(表AB.A)=True or len(Trim(表AB.A))=0);"  '=空

  CurrentProject.Connection.Execute strSQL

  Me.List0.Requery

End Sub

5、运行窗体，点击按钮就OK了。

Answer 2

假定前一列为A,后一列为B,在A的"更新后"事件中写入:

If Me![A] >= 40 Then
Me![B] = 2
Else
If Me![A] = 0 Then
Me![B] = 0
Else
If Me![A] < 40 Then
Me![B] = 1
Else
If IsNull(Me![A]) = True Then
Me![B] = Null
End If
End If
End If
End If追问

你好，我是新手，请问这些语句写在哪里？最好能给个截图，谢谢！

Answer 3

OleDbDataAdapter adapter = new OleDbDataAdapter(command,connection);
adapter.Fill(table);
int[] array = new int[table.rows.count];
for/foreach

Answer 4

没有语句可以使用，可以用其他方法，VB