Visual无线电按钮认证错误
Visual无线电按钮认证错误
提问于 2014-10-08 04:42:15
我正在使用visual创建一个程序，该程序记录从抽象基类派生的时薪员工。对于我的界面，用户将选择“小时”或“薪资员工”，如果是“小时”，则窗体将显示小时和小时薪酬文本框。如果“薪资”，则窗体隐藏小时文本框，并将小时薪酬更改为“年薪”。
我有一个循环设置如下：
For i As Integer = 0 To EmployeeList.Count - 1
Dim thisEmployee As Employee = EmployeeList(i)
Dim HourlyorAnnualrate As String = Nothing
Dim Hours As String = Nothing
If TypeOf (thisEmployee) Is HourlyEmployee Then
HourlyorAnnualrate = CType(thisEmployee, HourlyEmployee).decRate
Hours = CType(thisEmployee, HourlyEmployee).decHours
TotalHourlyRate += thisEmployee.WeeklyGrossPay()
End If
If TypeOf (thisEmployee) Is SalariesEmployee Then
HourlyorAnnualrate = CType(thisEmployee, SalariesEmployee).decSalary
TotalSalariesRate += thisEmployee.WeeklyGrossPay()
End If我正在添加信息到一个文本框按钮点击以下：
Private Sub btnPayroll_Click(sender As Object, e As EventArgs) Handles btnPayroll.Click
txtRecord.Text = "Total number of employees: " & vbTab & vbTab & EmployeeList.Count & vbCrLf & _
"Number of salaries employees: " & vbTab & SalariesEmployeeList.Count & vbCrLf & _
"Number of hourly employees: " & vbTab & vbTab & HourlyEmployeeList.Count & vbCrLf & _
"Total salaries employee weekly payroll: " & vbTab & vbTab & FormatCurrency(TotalSalariesRate) & vbCrLf & _
"Total hourly employee weekly payroll: " & vbTab & vbTab & FormatCurrency(TotalHourlyRate) & vbCrLf & _
"Total weekly payroll: " & vbTab & vbTab & FormatCurrency(TotalSalariesRate + TotalHourlyRate)
End Sub我遇到的问题是，用户可以选择一个工资雇员，而且它工作得很好，但是如果他们选择一个小时员工，那么每周的工资就会被记录下来，并添加到TotalSalaries费率和TotalHourlyRate中。
不管怎么说，我能阻止这一切发生吗？我试着取消检查单选按钮后，每个按钮点击，但由于这是在一个循环，我仍然会记录错误。
任何帮助都是非常感谢的！
回答 1
Stack Overflow用户
回答已采纳
发布于 2014-10-09 05:07:45
我必须将子过程中的值设置为0，它现在工作得很好！
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/26249320
复制相关文章
相似问题
腾讯云开发者
