以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  直接用窗口控件做利息计算器  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=151211)

--  作者：nbsugu_z --  发布时间：2020/6/18 9:34:00 --  直接用窗口控件做利息计算器 afterload事件代码 Dim str1 As Date = e.Form.Controls("DateTimePicker1").Value  \'起日期 Dim str2 As Date = e.Form.Controls("DateTimePicker2").Value  \'止日期 Dim str3 As Double = e.Form.Controls("NumericComboBox1").Value  \'本金 Dim str4 As Double = e.Form.Controls("NumericComboBox2").Value  \'年利率 Dim str5 As Double = e.Form.Controls("NumericComboBox3").Value   \'利息 Dim str6 As Double = e.Form.Controls("NumericComboBox4").Value  \'计算天数，自动出来          Dim d = (str2- str1).TotalDays()  \'计算天数           str6 =  d+1 \'实际天数 e.form.controls("NumericComboBox4") = str6   \'窗口显示天数 e.form.controls("NumericComboBox3")=(str3*str4*str6)/360  \'显示利息=本金*利率*天数--自动出来 老师，代码下不下去了。提示错误。我是直接用窗口中增加控件做一个利息计算器 [此贴子已经被作者于2020/6/18 9:35:40编辑过]

--  作者：有点蓝 --  发布时间：2020/6/18 9:50:00 --   e.form.controls("NumericComboBox4").Value = str6   \'窗口显示天数 e.form.controls("NumericComboBox3").Value=(str3*str4*str6)/360  \'显示利息=本金*利率*天数--自动出来

--  作者：nbsugu_z --  发布时间：2020/6/18 13:45:00 --   天数自动计算不会来。利息也不会计算。我以上代码是窗口直接做，没有对应表 [此贴子已经被作者于2020/6/18 13:45:53编辑过]

--  作者：有点蓝 --  发布时间：2020/6/18 13:48:00 --   计算代码放到各个控件的valuechanged事件

--  作者：nbsugu_z --  发布时间：2020/6/18 15:25:00 --   解决，谢谢指导