- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 签到问题！!!? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131910)
-- 发布时间：2019/3/8 20:17:00
-- 签到问题！!!?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:伊仕会员签到程序.table |
狐表帮助里的读卡程序，我想根据这个程序设计一个签到系统，现在是上课时间有了，但是下课时间是通过填写签到次数的变化 来得到。 比较笨。
1.而且签到也会出现重复签到问题，不知道如何写代码禁止重复签到。
2，下课时间，想通过按钮直接给表格赋值，但自己做的赋值只能给最上面的一列赋值，很多人签到其他人的列就不能赋值了 ，这个如何做到定位并赋值时间。
麻烦老师了，这个问题已经困恼一周没有进展~
-- 发布时间：2019/3/8 20:19:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:上课签到表.xls |
上课签到表
-- 发布时间：2019/3/8 20:20:00
--
If e.DataCol.Name = "签到次数" Then
If e.NewValue Is Nothing Then
e.DataRow("下课时间") = Nothing
Else
If e.NewValue IsNot Nothing
e.DataRow("下课时间") = Date.Now
End If
End If
End If
-- 发布时间：2019/3/8 21:25:00
--
连不到数据库，看不到表数据，也无法运行测试。
重复问题，根据姓名的关键字查询是否已经有记录
-- 发布时间：2019/3/8 21:32:00
-- 回复：（有点蓝）连不到数据库，看不到表数据，也无法...
需要确定当天是否重复签到~~
-- 发布时间：2019/3/8 21:42:00
-- 回复：（有点蓝）连不到数据库，看不到表数据，也无法...
蓝版主，我把数据源发你邮箱~ foxtable@qq.com
-- 发布时间：2019/3/8 22:08:00
--
公司邮箱我收不到的，做个内部表的项目过来测试
根据姓名和时间查询是否已经有记录
-- 发布时间：2019/3/8 23:15:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:上课签到表.rar |
-- 发布时间：2019/3/8 23:46:00
--
把签到日期控件改为日期控件
Dim Filter As String = "1=1 "
With e.Form.Controls("txtCardNumber")
If .Value IsNot Nothing Then
Filter &= " and 会员卡号 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("DateTimePicker1")
If .Value IsNot Nothing Then
Filter &= " and 上课时间 >= \'" & .Value.Date & "\' and 上课时间 < \'" & .Value.Date.adddays(1) & "\' and 签到次数 = 1"
End If
End With
If Filter > "" Then
Dim dr As DataRow = DataTables("上课签到表").Find(filter)
If dr IsNot Nothing Then
dr("下课时间") = Date.Now
dr("签到次数") = dr("签到次数") + 1
End If
End If
-- 发布时间：2019/3/9 6:59:00
--
多谢篮版
