主题：在同一行中分别录入数据

在制作的一个员工考勤表中 分别有 签到  签退  两列

 

我分别制作了两个指纹窗口分别用来上班签到 下班签退

如果分两行来记录统计起来麻烦 看着也乱

 

怎样能让同一天里的签到 签退两次打指纹的记录  记录在同一行中呢？

我要记录在表中的数据  是签到/签退时的时间（整小时为单位）

另外怎样能求出签到/签退两次时间记录中间的时长？

 

此主题相关图片如下：qq图片20151223104848.png


此主题相关图片如下：qq图片20151223104929.png

签到按钮的click事件

Dim mr As Row =Tables("考勤记录").Current
Dim dr As DataRow = DataTables("员工名册").Find("姓名 = '" & mr("姓名") & "'")
If dr Is Nothing  Then
    messagebox.show("错误,请重试.")
Else
    mr("签到") = Date.Now & " "
End If
MessageBox.Show(mr("姓名") &" 签到成功","提示")
mr.Save

forms("签到").close

做一个签退窗口。

 

afterLoad事件写代码

 

dim idx as integer = Tables("考勤记录").findrow("签到 >= #" & date.today & "# and 签到 < #" & Date.today.AddDays(1) & "# and 签退 is null")
If idx >= 0 Then
    Tables("考勤记录").Position = idx
End If

签退按钮的Click事件

Dim mr As Row =Tables("考勤记录").Current
Dim dr As DataRow = DataTables("员工名册").Find("姓名 = '" & mr("姓名") & "'")

If dr Is Nothing  Then
    messagebox.show("错误,请重试.")
Else
    mr("签退") = Date.Now & " "
    mr("工时") = mr("签到") - mr("签退")
    mr("累计工时") = mr("累计工时") + mr("工时")
End If
MessageBox.Show(mr("姓名") &" 签退成功","提示")
mr.Save

forms("签退").close

 

 

 

在我现有的基础上要怎样修改呢？我现在的代码 签到在签退以后的结果会记录两行数据

看3楼

签退按钮事件

Dim mr As Row =Tables("考勤记录").Current
Dim dr As DataRow = DataTables("员工名册").Find("姓名 = '" & mr("姓名") & "'")

If dr Is Nothing  Then
    messagebox.show("错误,请重试.")
Else
    mr("签退") = Date.Now & " "
    mr("工时") = mr("签到") - mr("签退")
    mr("累计工时") = mr("累计工时") + mr("工时")
End If
MessageBox.Show(mr("姓名") &" 签退成功","提示")
mr.Save

forms("签退").close

 

之后出现这个错误

 

 

.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2015.12.22.1
错误所在事件：窗口,签退,签退,Click
详细错误信息：
从字符串“2015/12/23 11:18:03 ”到类型“Double”的转换无效。
输入字符串的格式不正确。

好好学一下可以吗？

 

http://www.foxtable.com/help/topics/0287.htm

 

我知道错误在哪里了

  mr("工时") = mr("签到") - mr("签退")

 

是不是不能这么减 

那应该怎么求时长呢

Dim d1 as Date = mr("签到")
Dim d2 as Date = mr("签退")
Dim t As TimeSpan = d2 - d1

这样？

是，最后要什么数据，就

 

mr("工时") = t.TotalHours