专家坐堂-时间日期错误，救助Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  时间日期错误，救助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68405)

--  作者：lili66450
--  发布时间：2015/5/16 20:07:00
--  时间日期错误，救助

我的错误在哪？？？救助

Tables("表A").StopRedraw
Dim dt As DataTable= DataTables("表A")
Dim s1 As Integer
Dim K1 As Date
s1=0
For s1=0 To DataTables("表A").DataRows.Count-1 Step 1
K1=DataTables("表A").Rows(s1)("票面时间")
DataTables("表A").Rows(s1)("出发时间")=K1

Next
Tables("表A").Sort = "出发站点 DESC"
Tables("表A").ResumeRedraw

--  作者：游
--  发布时间：2015/5/16 20:13:00
--
不知道你出现什么错误

--  作者：大红袍
--  发布时间：2015/5/17 12:10:00
--

直接说你想实现什么功能吧

Tables("表A").StopRedraw
Dim dt As DataTable= DataTables("表A")
Dim s1 As Integer
For s1=0 To DataTables("表A").DataRows.Count-1
    DataTables("表A").dataRows(s1)("出发时间") = DataTables("表A").dataRows(s1)("票面时间")
Next
Tables("表A").Sort = "出发站点 DESC"
Tables("表A").ResumeRedraw

[此贴子已经被作者于2015/5/17 12:09:58编辑过]