专家坐堂-打开项目后数据丢失Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=61328)

--  作者：xql8213
--  发布时间：2014/12/10 22:24:00
--  打开项目后数据丢失
一打开项目提示

然后新增的数据保存后，再打开项目后新增的数据就丢失了
此主题相关图片如下：qq图片20141210222404.jpg
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:拍客系统.foxdb

[此贴子已经被作者于2014-12-10 22:31:29编辑过]

--  作者：有点甜
--  发布时间：2014/12/10 22:46:00
--
If Forms("刷单").Opened Then
    Dim ed As WinForm.Button = Forms("刷单").Controls("编辑")
    Dim sh As WinForm.Button = Forms("刷单").Controls("收款")
    Dim fs As WinForm.Button = Forms("刷单").Controls("反收款")
    Dim hz As WinForm.Button = Forms("刷单").Controls("收菜")
    Dim fh As WinForm.Button = Forms("刷单").Controls("反收菜")
    If e.Table.Current IsNot Nothing Then
        If e.Table.Current("收款")= False Then
            ed.Enabled= True
            sh.Enabled= True
            fs.Enabled= False
            hz.Enabled= False
            fh.Enabled= False
        Else
            If e.Table.Current("收菜")= False Then
                ed.Enabled= False
                sh.Enabled= False
                fs.Enabled= True
                hz.Enabled= True
                fh.Enabled= False
            Else
                ed.Enabled= False
                sh.enabled= False
                fs.Enabled= False
                hz.Enabled= False
                fh.Enabled= True
            End If
        End If
    End If
End If

--  作者：xql8213
--  发布时间：2014/12/10 22:49:00
--
你点新增保存后退出系统，再进来刚新增的数据没保存到

--  作者：xql8213
--  发布时间：2014/12/10 22:53:00
--
知道怎么回事了，那是显示在第2页里了