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编辑过]
加好友 
发短信
Post By：2020/6/18 9:34:00 [显示全部帖子]
