ACCESS数据库的表中有三个数据字段：AA，BB，CC
其中CC=AA*BB
在表中能否就输入AA,BB值，而CC值就让其自动填充不？
方法有很多种：这里说两种：
第一种： 通过建立查询实现
1.建立一个表。例如下表
表名：收支表
两个字段 （均为货币型）收入 支出
2.基于这个表建立一个查询
a.在查询设计框里,在这两个字段的后面一栏增加表达式：
结余:=[收支]-[支出]
b.当建立这个表达式的时候你可以利用表达式“生成器”，——按鼠标右键可以获得。
c.也可以利用查询向导来做这件事情。
第二种：通过建立窗体来实现
有如下表：学生成绩表字段学生姓名 性别 数学 语文 英语 政治 总分数 平均分数
1.基于上面的二维表。建立一个窗体（可利用窗体向导来自动生成）
2.窗体生成后。
a.计算总成绩
选中[政治]这个文本框，然后按鼠标右键，选择[属性]，在[属性]对话框里，选择：“更新后”，然后选择“事件过程”，输入如下语句：
总分数.value=数学.value+语文.value+英语.value+政治.value
b.计算平均分数
平均分数.value=（数学.value+语文.value+英语.value+政治.value）/4
你也可以利用AVG()函数来计算这个值。
其实：EXCEL中的很多功能ACCESS几乎都能实现，且比EXCEL更省时，更方便。可以将ACCESS里的数据（表、查询等）直接生成EXCEL表格。
第一种： 通过建立查询实现
1.建立一个表。例如下表
表名：收支表
两个字段 （均为货币型）收入 支出
2.基于这个表建立一个查询
a.在查询设计框里,在这两个字段的后面一栏增加表达式：
结余:=[收支]-[支出]
b.当建立这个表达式的时候你可以利用表达式“生成器”，——按鼠标右键可以获得。
c.也可以利用查询向导来做这件事情。
第二种：通过建立窗体来实现
有如下表：学生成绩表字段学生姓名 性别 数学 语文 英语 政治 总分数 平均分数
1.基于上面的二维表。建立一个窗体（可利用窗体向导来自动生成）
2.窗体生成后。
a.计算总成绩
选中[政治]这个文本框，然后按鼠标右键，选择[属性]，在[属性]对话框里，选择：“更新后”，然后选择“事件过程”，输入如下语句：
总分数.value=数学.value+语文.value+英语.value+政治.value
b.计算平均分数
平均分数.value=（数学.value+语文.value+英语.value+政治.value）/4
你也可以利用AVG()函数来计算这个值。
其实：EXCEL中的很多功能ACCESS几乎都能实现，且比EXCEL更省时，更方便。可以将ACCESS里的数据（表、查询等）直接生成EXCEL表格。
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2017-10-08
用查询就可以了.
建一个查询,选择那个表,双击AA,BB,这两个字段就进入了查询列表的前两列,在第三列输入 CC:[AA]*[BB] ,运行这个查询,就看到了你想要的结果.本回答被提问者采纳
建一个查询,选择那个表,双击AA,BB,这两个字段就进入了查询列表的前两列,在第三列输入 CC:[AA]*[BB] ,运行这个查询,就看到了你想要的结果.本回答被提问者采纳
第2个回答 2019-07-17
public
function
transactsql(byval
sql
asstring)
as
adodb.recordset
dim
cont
as
adodb.connection
dim
rs
as
adodb.recordset
dim
strconnection
as
string
dim
strarray()
as
string
set
cont
=
new
adodb.connection
'创建连接
set
rs
=
new
adodb.recordset
on
error
goto
transactsql_error
strconnection
=
"provider
=microsoft.jet.oledb.4.0;
data
source="
&
app.path
&"\cd1.mdb;"
strconnection
=
strconnection
&"persist
security
info=false;"
strarray
=
split(sql)
'split()
返回一个下标从零开始的一维数组
cont.open
strconnection
'打开连接
if
strcomp(ucase$(strarray(0)),"select",
vbtextcompare)
=
0
then
rs.open
trim$(sql),
cont,
adopenkeyset,adlockoptimistic
set
transactsql
=
rs
iflag
=
1
else
cont.execute
sql
iflag
=
1
end
if
transactsql_exit:
set
rs
=
nothing
set
cont
=
nothing
exit
function
transactsql_error:
msgbox
"查询错误："
&err.description
iflag
=
2
resume
transactsql_exit
end
function
上面这个是一个数据库的动态链接,这块代码在模块里放着.
dim
rs
as
new
adodb.recordset
dim
sql
as
string
sql
=
"select
*
from
lendcx"'lendcx是表名
set
rs
=
transactsql(sql)
rs.addnew
'添加新纪录
rs.fields(0)
=
trim(combo3.text)
rs.fields(1)
=
trim(combo1.text)
rs.fields(2)
=
trim(dtpicker1.value)
rs.fields(3)
=
trim(combo2.text)
rs.fields(4)
=
trim(text2.text)
rs.fields(5)
=
trim(text3.text)
rs.update
rs.close
function
transactsql(byval
sql
asstring)
as
adodb.recordset
dim
cont
as
adodb.connection
dim
rs
as
adodb.recordset
dim
strconnection
as
string
dim
strarray()
as
string
set
cont
=
new
adodb.connection
'创建连接
set
rs
=
new
adodb.recordset
on
error
goto
transactsql_error
strconnection
=
"provider
=microsoft.jet.oledb.4.0;
data
source="
&
app.path
&"\cd1.mdb;"
strconnection
=
strconnection
&"persist
security
info=false;"
strarray
=
split(sql)
'split()
返回一个下标从零开始的一维数组
cont.open
strconnection
'打开连接
if
strcomp(ucase$(strarray(0)),"select",
vbtextcompare)
=
0
then
rs.open
trim$(sql),
cont,
adopenkeyset,adlockoptimistic
set
transactsql
=
rs
iflag
=
1
else
cont.execute
sql
iflag
=
1
end
if
transactsql_exit:
set
rs
=
nothing
set
cont
=
nothing
exit
function
transactsql_error:
msgbox
"查询错误："
&err.description
iflag
=
2
resume
transactsql_exit
end
function
上面这个是一个数据库的动态链接,这块代码在模块里放着.
dim
rs
as
new
adodb.recordset
dim
sql
as
string
sql
=
"select
*
from
lendcx"'lendcx是表名
set
rs
=
transactsql(sql)
rs.addnew
'添加新纪录
rs.fields(0)
=
trim(combo3.text)
rs.fields(1)
=
trim(combo1.text)
rs.fields(2)
=
trim(dtpicker1.value)
rs.fields(3)
=
trim(combo2.text)
rs.fields(4)
=
trim(text2.text)
rs.fields(5)
=
trim(text3.text)
rs.update
rs.close
第3个回答 2018-03-29
ACCESS2010版增加数据类型“计算”，使用起来很方便。
第4个回答 2006-11-20
不能 可以通过查询完成 查询中可以像你这样操作
你把这个表全弄到查询中就可以了
你把这个表全弄到查询中就可以了
