ce = "SELECT e.EmpId as 员工编号, e.EmpName as 员工, c.ztEva as 总体评价," _
            + "c.jlReason as 奖励事由, c.jlamount as 奖励金额, c.cfReason as 处罚事由," _
            + "c.cfAmount as 处罚金额, c.Memo1 as 备注" _
            + " FROM Employees e, Evaluation c WHERE c.EvaMonth='" _
            + ComboY.Text + "-" + ComboM.Text + "' And e.EmpId=c.EmpId" _
            + " And e.DepId=" + Trim(Str(CurDep.DepId))
      Adodc1.Refresh
      '设置列宽
      With DataGrid1
      .Columns(0).Width = 0
      .Columns(1).Width =