- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 复制指定时间范围的数据到另一个表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=165307)
-- 发布时间：2021/5/13 12:05:00
-- 复制指定时间范围的数据到另一个表
复制指定时间范围的数据到另一个相同结构的表，代码错在哪儿？
我新建了一个窗口，窗口上放了两个日期框，想点击确定按钮时，就自动把入库明细的数据复制到历史入库记录
Dim kssj As WinForm.DateTimePicker = e.Form.Controls("开始时间")
Dim jssj As WinForm.DateTimePicker = e.Form.Controls("结束时间")
If DataTables("入库明细").DataCols("入库日期") >= kssj.Value And DataTables("入库明细").DataCols("入库日期") <= jssj.Value Then
Dim dr As DataRow = DataTables("历史入库记录").AddNew
For Each dc As DataCol In DataTables("入库明细").DataCols
dr(dc.Name) = e.DataRow(dc.Name)
Next
End If
-- 发布时间：2021/5/13 13:34:00
--
for each dr1 as datarow in DataTables("入库明细").select("入库日期") >= #" & kssj.Value & "# And 入库日期 <= #" & jssj.Value & "#)
Dim dr As DataRow = DataTables("历史入库记录").AddNew
For Each dc As DataCol In DataTables("入库明细").DataCols
dr(dc.Name) = dr1(dc.Name)
Next
next
-- 发布时间：2021/5/13 15:07:00
--
此主题相关图片如下：12.png
报错，我修改这句最后，加上 ", 也同样的错误
for each dr1 as datarow in DataTables("入库明细").select("入库日期") >= #" & kssj.Value & "# And 入库日期 <= #" & jssj.Value &
"#")
-- 发布时间：2021/5/13 15:22:00
--
for each dr1 as datarow in DataTables("入库明细").select("入库日期 >= #" & kssj.Value & "# And 入库日期 <= #" & jssj.Value & "#")
-- 发布时间：2021/5/13 21:05:00
--
行了
-- 发布时间：2021/5/13 21:07:00
--
可以了