打开项目后数据丢失 - 专家坐堂 - 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

liming730323	小大 2楼 \| QQ \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：三尾狐帖子：705 积分：5411 威望：0 精华：0 注册：2014/3/15 23:14:00	Post By：2014/12/10 22:33:00 [只看该作者] 用户已被锁定

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