If User.Group = "客服部" Then
Tables("经营管控表").Cols.Remove("预付款")
Tables("经营管控表").Cols.Remove("预付报警")
Tables("经营管控表").Cols.Remove("二期款")
Tables("经营管控表").Cols.Remove("二期报警")
Tables("经营管控表").Cols.Remove("通知财务开piao日期")
Tables("经营管控表").Cols.Remove("财务通知收款日期")
Tables("经营管控表").Cols.Remove("已开piao额")
Tables("经营管控表").Cols.Remove("未开piao额")
Tables("经营管控表").Cols.Remove("当前日期")
Tables("经营管控表").Cols.Remove("开收据额")
Tables("经营管控表").Cols.Remove("已开piao未收款")
Tables("经营管控表").Cols.Remove("已开piao未收款不含保留款")
Tables("经营管控表").Cols.Remove("未收款数")
Tables("经营管控表").Cols.Remove("累计产值")
Tables("经营管控表").Cols.Remove("累计收款")
Tables("经营管控表").Cols.Remove("收款进度")
Tables("经营管控表").Cols.Remove("合约报出")
Tables("经营管控表").Cols.Remove("报出报警")
Tables("经营管控表").Cols.Remove("合约返回")
Tables("经营管控表").Cols.Remove("返回报警")
Tables("经营管控表").Cols.Remove("映射编码")
Tables("经营管控表").Cols.Remove("帐套")
Tables("经营管控表").Cols.Remove("通知开piao")
End If
If User.Group = "平面部" Or User.Group = "工程部" Or User.Group = "设计部" Then
DataTables("经营管控表").LoadFilter = "业务部门 = '" & User.Group & "'"
End If
DataTables("经营管控表").Load()
StatusBar.Message2= "当前用户:" & User.Name