以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  利用窗口编辑费用计算程序  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85349)
--  作者：大红袍
--  发布时间：2016/5/23 20:22:00
--  

投资额 TextChanged 事件

 

If val(e.Sender.Text) >= 500 Then

    e.Form.Controls("TextBox2").Text = 0

    e.Form.Controls("TextBox3").Text = 500

Else

    e.Form.Controls("TextBox2").Text = 500

    e.Form.Controls("TextBox3").Text = 1000

End If

 

计算按钮Click事件

 

e.Form.Controls("Textbox5").Text = (e.Form.Controls("TextBox3").Text-e.Form.Controls("TextBox2").Text-e.Form.Controls("TextBox1").Text)*e.Form.Controls("TextBox4").Text