Dim Ssqj As String
Dim Ssqj_n As String = e.Form.Controls("ComboBox3_Qjn").TEXT
Dim Ssqj_y As String = e.Form.Controls("ComboBox4_Qjy").TEXT
Ssqj = Ssqj_n + Ssqj_y
If Ssqj_n = "" Or Ssqj_y = "" Then
MessageBox.Show(" 没有选择【所属期间】!","提示",MessageBoxButtons.Ok,MessageBoxIcon.Information)
Return
End If
Dim fdr As DataRow = DataTables("年度工资").find("所属期间='" & ssqj & "'")
If fdr IsNot Nothing Then
MessageBox.Show("你选择的【" & Ssqj & "】期间的薪资已计发, 不可重复!","提示",MessageBoxButtons.Ok,MessageBoxIcon.Information)
Return
End If
Forms("统计汇总").close