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

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

主题：打开项目后数据丢失