| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 546 人关注过本帖
标题:求教代码,急!
只看楼主 加入收藏
gudan5200
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-5-21
收藏
 问题点数:0 回复次数:3 
求教代码,急!

比如我在窗体里面有3个text控件,txtprice(单价),txtnumber(数量),txtsumprice(总额)
我在单价跟数量的控件里填上数值,想要自动在总额text控件里返回单价*数量的值
要怎么写代码!
求教,谢谢!

搜索更多相关主题的帖子: 代码 
2007-05-21 14:56
gudan5200
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-5-21
收藏
得分:0 

怎么没人回啊。是我问的不清楚还是太简单了!

2007-05-21 15:48
wind805
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-5-21
收藏
得分:0 

比较简单,刚好我会。
Private Sub txtprice_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtprice.TextChanged
If IsNumeric(txtprice.Text) And IsNumeric(txtnumber.Text) Then
txtsumprice.Text = CStr(CDbl(txtprice.Text) * CDbl(txtnumber.Text))
End If
End Sub

Private Sub txtnumber_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnumber.TextChanged
If IsNumeric(txtprice.Text) And IsNumeric(txtnumber.Text) Then
txtsumprice.Text = CStr(CDbl(txtprice.Text) * CDbl(txtnumber.Text))
End If
End Sub

改了下,原来用了cint()转换,现在换成cdbl()

[此贴子已经被作者于2007-5-21 16:36:46编辑过]

2007-05-21 16:31
gudan5200
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-5-21
收藏
得分:0 
等了一个下午,谢啦!
2007-05-21 17:51
快速回复:求教代码,急!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025380 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved