Question

access 文本框计算表达式问题

在ACCESS窗体中建一个文本框，然后在里面输入3+2回车，自动计算出结果，就好像在EXCEL的单元格里输入数据一样，其他的- * /也同样如此，如何才能实现这种效果，
拜托各位解答的大虾了，非常感谢。
非常感谢Einstiphen的回答，貌似我只要text1 = eval(text1)就可以自动四则运算而且还是在同一个单元格，需要象您那样特意建个函数么？
非常感谢lazy67 ，很显然，不方便使用EXCEL才提问的。

Answer 1

数据表为表1,分别有表达式（文本），计算结果（数字）字段
窗体1中有3个文本框：Text1(控件来源为表1.表达式),Text2（未绑定）,Text3（表1.计算结果）
窗体1代码：
Private Sub Text1_LostFocus()
Dim a As String
a = Me.Text1.Value
Me.Text2.ControlSource = "=" & a
Me.Text3.Value = Me.Text2.Value
End Sub
运行结果：在Text1中输入“3＋2”，回车，Text2\Text3自动计算出“5”,并把相应的表达式和计算结果添加到表1中

根据您的建议修改如下：
数据表为表1,分别有表达式（文本），计算结果（数字）字段
窗体1中有2个文本框：Text1(控件来源为表1.表达式),Text2（控件来源为表1.计算结果）
窗体1代码：
Private Sub Text1_LostFocus()
Me.Text2.Value = Eval(Me.Text1.Value)
End Sub
运行结果：在Text1中输入“3＋2”，回车，Text2自动计算出“5”,并把相应的表达式和计算结果添加到表1中

如果不需要添加入表1,则：
窗体1中有1个文本框：Text1
窗体1代码：
Private Sub Text1_LostFocus()
Me.Text1.Value = Eval(Me.Text1.Value)
End Sub
运行结果：在Text1中输入“3＋2”，回车，Text1自动计算出“5”

Answer 2

=sum([字段1]+[字段2]）
说错了~~引用子窗体应该没问题的。我之前就有计数的，当时没做求和。
用select case语句写一个吧……

Answer 3

你把文本框存在字段里了吗？数据库中直接select就自动计算了呗

declare @sql
select @sql = 'select ' +字段
exec @sql

Answer 4

数据库中直接select就自动计算了呗

Answer 5

关键是要用access里面的VB程序啊，即窗体控件的代码生成器啊，具体比较复杂，你可能还是要借一些书来看才行，或者是下载电子教程。

Answer 6

你还不如直接用excel