数据表为表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”
温馨提示:答案为网友推荐,仅供参考