- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求一点代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188655)
-- 发布时间：2023/10/9 15:52:00
-- 求一点代码
我重新上传一下老师
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码.zip |
[此贴子已经被作者于2023/10/9 16:28:35编辑过]
-- 发布时间：2023/10/9 15:55:00
--
文档打开是乱码，看不到里面内容
-- 发布时间：2023/10/9 16:30:00
--
我重新上传了老师
-- 发布时间：2023/10/9 16:55:00
--
麻烦把按钮的完整代码文字复制出来
-- 发布时间：2023/10/9 18:04:00
--
With 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() \'填充数据
-- 发布时间：2023/10/10 8:41:00
--
With 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() \'填充数据 |
-- 发布时间：2023/10/10 8:42:00
--
老师好，上午有时间再帮我看一下，感谢！
-- 发布时间：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 )
-- 发布时间：2023/10/10 10:24:00
--
收到，感谢老师！