主题：项目事件出错

 

afteropenproject事件中的代码如下

 

Syscmd.Project.Update(False,False)
If Syscmd.Project.Update(False,False) = False Then 

    Forms("领薪员工刷新").Open() 
    Forms("表标题").Open()
End If
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

 

请老师们帮忙找找问题