Dim yf As RibbonMenu.ComboBox = RibbonTabs("绩效").Groups("月份").Items("月份")
If yf.Text <> ""
'《考勤_月份》----------------------------------------------------------------------------------↓
Dim kq_str1 As String
Dim kq_str2 As String '上个月年月
Dim kq_y,kq_m As Integer '本单元格年月
Dim kq_y1,kq_m1 As Integer '上个月年月
Dim kq_dr1 As DataRow
kq_str1 = yf.Text
kq_str1 = kq_str1.Replace("年","")
kq_str1 = kq_str1.Replace("月","")
kq_y = kq_str1.SubString(0,4) '年
kq_m = kq_str1.SubString(4) '月
If kq_m = 1
kq_y1 = kq_y -1
kq_m1 = 12
kq_str2 = kq_y1 &"年"& kq_m1 & "月"
Else
kq_m1 = kq_m -1
kq_str2 = kq_y &"年"& kq_m1 & "月"
End If
kq_dr1 = DataTables("考勤_月份").Find("月份 = '"& kq_str2 &"'")
If kq_dr1 IsNot Nothing
Tables("考勤_月份").Position = Tables("考勤_月份").FindRow(kq_dr1)
Else
MessageBox.Show("未找到对应月份考勤表","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
'《考勤_月份》----------------------------------------------------------------------------------↑
Else
MessageBox.Show("未选择月份","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
加好友 
发短信
Post By：2020/4/20 16:43:00 [只看该作者]
