- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 复制数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118503)
-- 发布时间：2018/5/4 12:33:00
-- 复制数据
我用以下代码进行数据复制，代码执行没有抱错，I变量也正常取到值了，但是来自DataTables("MainSchedule")表的R1行却没有任何变化呢？
Dim drs As new List(OF DataRow)
Dim i As Integer = 0
drs = DataTables("PttnSchdule").Select("RefreshToSampleschdule = \'false\'")
If drs IsNot Nothing Then
For Each r As DataRow In drs
If r("SrsNO") IsNot Nothing Then
Dim r1 As DataRow = DataTables("MainSchedule").SQLFind("SrsNO = \'" & r("SrsNO") & "\'")
If r1 IsNot Nothing
r1("PttnRequest")= r("PttnRequest")
r1("pttnOrderTM")= r("pttnOrderTM")
r1("PttnRepresenter")= r("PttnRepresenter")
r1("PttnNO")= r("PttnNO")
r1("PttnKindCode")= r("PttnKindCode")
r1("patterner")= r("patterner")
r1("PatternLessReason")= r("PatternLessReason")
r1("PttnPrepareStu")= r("PttnPrepareStu")
r1("PttnPrepareTM")= r("PttnPrepareTM")
r("RefreshToSampleschdule") = True
i = i+1
End If
End If
Next
msgbox("检测到需要同步的数据共有 " & drs.Count & " 条, 成功同步 " & i & " 条;" )
Else
msgbox("没有检测到需要同步的数据;")
End If
-- 发布时间：2018/5/4 15:02:00
--
sqlfind是后头查找数据，你修改后要 r1.Save 一下，如果要表格要看到最新数据，你还必须重新刷新/同步表格才行。
-- 发布时间：2018/5/4 15:23:00
--
加了r1.save()，虽然更新成功了，但是在执行这段代码的时候出现以下错误？怎么解决
此主题相关图片如下：z.jpg
-- 发布时间：2018/5/4 15:51:00
--
此表如果有日期列，要给日期列赋值，比如
r1("日期") = Nothing