以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  DataTables("工位912").Save 不会自动保存  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159209)
--  作者：edisontsui
--  发布时间：2020/12/17 10:22:00
--  DataTables("工位912").Save 不会自动保存
Dim n As String = CurrentTable.DataTable.name
Select n
    Case "工位912"
        If user.name = "组装" OrElse user.name = "开发者" OrElse user.group = "品质" OrElse user.group = "行政" 
            For Each dr As Row In Tables("工位912").Rows
                If dr("JPK") = "NO JPK"
                Else
                    If dr("工位") <> "944"
                        If dr("操作员") = Nothing
                            dr("操作员") = "207"
                            dr("生产日期") = Date.Today
                        End If
                    End If
                End If
            Next 
            DataTables("工位912").Save
        End If
End Select

上述代码执行完之后，好像不会自动保存，也就是说红色那句代码没有起作用，请问为什么？
--  作者：有点蓝
--  发布时间：2020/12/17 10:32:00
--  
代码有没有执行到？
……
            Next 
            DataTables("工位912").Save
msgbox(1) \'这里能不能弹出提示？
        End If
End Select
--  作者：edisontsui
--  发布时间：2020/12/18 15:20:00
--  
发现是别的原因造成的。