If User.Group = "行政" Or User.name = "开发者" For Each r As Row In Tables("请假记录").rows If r("姓名") = "" Then Else For Each dr As DataRow In DataTables("工资计算").DataRows If dr("年月") = r("年月") And dr("姓名") = r("姓名") And r("无薪假天数") > 0 dr("请假天数") = r("无薪假天数") Exit For End If Next End If Next End If
加好友 
发短信
Post By：2019/3/13 18:32:00 [显示全部帖子]
