设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 3299|回复: 10
打印 上一主题 下一主题

[窗体] 如何实际一边输入一边计算

[复制链接]
1#
发表于 2016-12-20 15:56:33 | 显示全部楼层
本帖最后由 fd901028 于 2016-12-20 17:25 编辑

下班之前又看了一下这个问题,发现还真不简单,这样行不行?
注意:这段代码没有对t1,t2用户输入的数据类型进行判断,若用户输入数据类型不对会报错。判断代码上一个回复有有链接.

Private Sub t2_Change()

    Dim temStr As Long                       ''定义一个中间变量 我假定没有小数,类型用Long,   有小数请用其他类型
    temStr = CLng(t2.Text)                   ''设置变量=t2的"值",用 Text,Value不好使
    Me.t3 = CLng(t1.Value) * temStr      ''t1 的"值"用 Value,Text不好使
   
                                          ''为啥不好使?我这样理解(非官方哈)Text是用于显示的、正在编辑的,而Value是完成的、传给后续表单处理的。Text完了Value才有值。
   
End Sub



您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-3 04:36 , Processed in 0.084344 second(s), 24 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表