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

If Syscmd.Project.Update(False,False) = False Then
    Forms("领薪员工刷新").Open()
    Forms("表标题").Open()

    DataTables("员工").DataCols("出生日期").RaiseDataColChanged()
    DataTables("员工").DataCols("月薪附属_有无红月奖").RaiseDataColChanged()
    RibbonTabs.AllowMinimize = True
    RibbonTabs.Minimized = True
    For Each dt As Table In Tables
        Tables(dt.Name).OpenView(Tables(dt.Name).DataTable.Name)
        Tables(dt.Name).DefaultRowHeight = 25
        Tables(dt.Name).AllowDelete = False
        Tables(dt.Name).Select(-1,0)
    Next
    For Each dt As DataTable In DataTables '这段设置的是每个DATATABLE的交替行的颜色
        DataTables(dt.Name).SysStyles("Alternate").BackColor = Color.DarkKhaki
    Next
    Tables("DK订单.出货规划.DKNP出货备注").Visible = False
    Tables("DK用NP.DKNP出货备注").Visible = False
    Tables("出货规划.DKNP出货备注").Visible = True
    Tables("DK订单.出货规划").Visible = True
    Tables("DG.DWL").Visible = True
    Tables("DNP.单NP成本").Visible = True
    Tables("DNP.加工基准时量").Visible = True
    Tables("销售与衍生对账.销售应收与衍生应付").Visible = True
    Tables("采购与衍生对账.采购应付与衍生应收").Visible = True
    If User.Type <> UserTypeEnum.Developer
        TableCaptionVisible = False
    End If
End If

主题：项目事件出错