- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]求排班表思路（有没有可能纵向某列横向显示） (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153124)
-- 发布时间：2020/7/31 16:39:00
-- [求助]求排班表思路（有没有可能纵向某列横向显示）
我其实很想把日期设置成纵向列，每天人名追加，但这样不方便排班的人看。
于是我现在追加列好痛苦T_T，感觉也不方便统计，请问下有啥好的设计思路么：D
先谢谢大家啦
-- 发布时间：2020/7/31 16:44:00
--
存储录入的时候设置成纵向列，每天人名追加
另外做一个查询表给排班的人看
论坛搜索“考勤”，看看别人用法
-- 发布时间：2020/7/31 17:03:00
--
蓝大 我看了后 忽然有了个新想法 我修改下您之前写给我的下面这段代码 就可以自动追加出一个日志
他们输的界面和原来一样 但列名只有1-31列，由于记录都是在当月完成的，所以追加的时候原来的“被修改字段”变成（当前年月+列名） 后面根据修改内容记录下 班、病、年、事等等
不知道这个思路可不可行
datacolchanging事件
Select Case e.DataCol.Name
Case "身份证","姓名","单位","学历","电话","年薪"
Dim dr As DataRow
If e.DataRow.Rowstate <> DataRowState.Unchanged
dr = DataTables("表B").Find("修改者=\'" & user.Name & "\' and 被修改字段=\'" & e.DataCol.name & "\'" and 姓名=xxxx")
End If
If dr Is Nothing Then
dr= DataTables("表B").AddNew
dr("修改者") = user.Name
dr("修改时间") = Date.Now
dr("身份证") = e.DataRow("身份证")
dr("姓名") = e.DataRow("姓名")
dr("原值") = e.oldvalue
dr("被修改字段") = e.DataCol.name
End If
dr("现值") = e.newvalue
End Select
[此贴子已经被作者于2020/7/31 17:05:42编辑过]
-- 发布时间：2020/7/31 17:12:00
--
自行测试觉得合适就好