access 文本框计算表达式问题

2025-12-18 03:58:15

推荐回答（6个）

回答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”

回答2：

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

回答3：

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

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

回答4：

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

回答5：

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

回答6：

你还不如直接用excel