- 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=104034)
-- 发布时间：2017/7/21 15:07:00
-- [求助]表复制
依次打开窗口设计——查询，在查询窗口中，通过筛选时间并点击“查询”按钮可以查询出表A的数据。
-- 发布时间：2017/7/21 15:08:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2017/7/21 15:13:00
--
求助!
-- 发布时间：2017/7/21 15:46:00
--
Dim kaishi As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim jieshu As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim filter As String = "1=1"
If kaishi.text > "" Then
filter &= " and 接收时段 >= #" & kaishi.Text & "#"
End If
If jieshu.text > "" Then
filter &= " and 接收时段 <=#" & jieshu.Text & "#"
End If
Tables("表A").Filter = filter
DataTables("表B").DataRows.Clear
For Each dr1 As Row In Tables("表A").rows
Dim dr2 As DataRow = DataTables("表B").AddNew()
For Each dc As DataCol In DataTables("表A").DataCols
dr2(dc.Name) = dr1(dc.name)
Next
Next
-- 发布时间：2017/7/21 16:32:00
--
此主题相关图片如下：qq图片20170721162602.png
图：
-- 发布时间：2017/7/21 16:56:00
--
求助
-- 发布时间：2017/7/21 17:03:00
--
第一个问题是字段类型的问题 已解决 因为表A是字符型 表B改成字符型即可 现在的问题是表B如何转换两列并计算出时间差值
-- 发布时间：2017/7/21 17:27:00
--
表B的DataColChanged事件
Select Case e.DataCol.Name
Case "接收时段","操作时段"
Dim dr As DataRow = e.DataRow
If dr.IsNull("接收时段") OrElse dr.IsNull("操作时段") Then
dr("耗时") = Nothing
Else
Dim tp As TimeSpan = dr("完成日期") - dr("开始日期")
dr("耗时") = tp.TotalHours
End If
End Select
-- 发布时间：2017/7/21 17:35:00
--
-- 发布时间：2017/7/21 17:37:00
--
点击查询 A表复制到B表时 b表报错了 耗时字段无值 其他值可以过来