共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：求一点代码
1楼
段虎成 发表于：2023/10/9 15:52:00
2楼
有点蓝 发表于：2023/10/9 15:55:00文档打开是乱码，看不到里面内容
3楼
段虎成 发表于：2023/10/9 16:30:00我重新上传了老师
4楼
有点蓝 发表于：2023/10/9 16:55:00麻烦把按钮的完整代码文字复制出来
5楼
段虎成 发表于：2023/10/9 18:04:00With DataTables("员工档案表")
.LoadFilter = ""
.Load()
End With
'一键读取员工数据
Dim f As New Filler
f.SourceTable = DataTables("员工档案表") '指定数据来源
f.SourceCols = "员工编号" '指定数据来源列
f.DataTable = DataTables("月度工资表") '指定数据接收表
f.DataCols = "员工编号" '指定数据接收列
'设置加载条件
Dim dt As Date = Date.Today
Dim y As Integer = dt.Year
Dim fl As String
Dim m As Integer = dt.Month
If dt.Month = 1 Then '如果考勤统计日是1月份
fl = "在职状态 = '在职' Or ((离职年 =" & y - 1 & " And 离职月 = 12) or (离职年 =" & y & " And 离职月 = 1))"
Else
fl = "在职状态 = '在职' OR ((离职年 =" & y & " And 离职月 =" & m & ") or (离职年 =" & y & " And 离职月 =" & m - 1 & "))"
End If
f.Filter = fl
f.Fill() '填充数据
6楼
段虎成 发表于：2023/10/10 8:41:00With DataTables("员工档案表") .LoadFilter = "" .Load() End With '一键读取员工数据 Dim f As New Filler f.SourceTable = DataTables("员工档案表") '指定数据来源 f.SourceCols = "员工编号" '指定数据来源列 f.DataTable = DataTables("月度工资表") '指定数据接收表 f.DataCols = "员工编号" '指定数据接收列 '设置加载条件 Dim dt As Date = Date.Today Dim y As Integer = dt.Year Dim fl As String Dim m As Integer = dt.Month If dt.Month = 1 Then '如果考勤统计日是1月份 fl = "在职状态 = '在职' Or ((离职年 =" & y - 1 & " And 离职月 = 12) or (离职年 =" & y & " And 离职月 = 1))" Else fl = "在职状态 = '在职' OR ((离职年 =" & y & " And 离职月 =" & m & ") or (离职年 =" & y & " And 离职月 =" & m - 1 & "))" End If f.Filter = fl f.Fill() '填充数据 |
7楼
段虎成 发表于：2023/10/10 8:42:00老师好，上午有时间再帮我看一下，感谢！
8楼
有点蓝 发表于：2023/10/10 8:57:00……
dim max as integer = DataTables("月度工资表").compute("max(_identify)")f.Filter = fl
f.Fill() '填充数据
DataTables("月度工资表").replacefor("所属年",e.form.controls("所属年度").text,"_identify >" & max )
DataTables("月度工资表").replacefor("所属月",e.form.controls("所属月度").text,"_identify >" & max )
9楼
段虎成 发表于：2023/10/10 10:24:00收到，感谢老师！
共9 条记录, 每页显示 10 条, 页签:
[1]