If e.IsFocusCell Then \'如果是焦点所在单元格

    If e.Col.Name = "工龄起算" Then \'如果正在编辑的是[..]列

      \'---开始调某数据库中的部分数据到表【部分信息】

       Dim mg As New Merger

       \'调取该行的职工的其他月份的“工龄起算”信息

       mg.Merge()

       DataTables("部分信息").save()

     end if

end if

请教，实现这个代码是需要对表编辑的时候才可以，如果这里无法实现的话，可不可以把代码放到MouseEnterCell中呢？

谢谢老师，在老师的指点下，基本成功实现了，剩下一个小问题

原来在PrepareEdit的代码（此代码执行时需要当前列是允许修改的）：

   If Vars("执行事件") = 0  Then   \'从外部表mdb读取数据的时候,Vars("执行事件") = 1,此时不执行所有代码的内容

        Return \'返回

    End If

    Dim frm As WinForm.Form  \'定义一个窗体\'

    frm = Forms.ActiveForm   \'活动窗口的名字表示方法就是:frm.Name

    If frm IsNot Nothing Then

        If frm.Name <> "在职教职工窗体" Then   \'设置只有在这个窗体中才起作用

            Return \'返回

        End If

    Else

        Return \'返回

    End If

    If e.IsFocusCell Then \'如果是焦点所在单元格

        If e.Col.Name <> "姓名" And e.Col.Name <> "身份证号" And e.Col.Name <> "台帐年月" Then                             \'如果正在编辑的是[..]列

            Dim dr As Row =  e.Row

            With DataTables("教职工历月信息")

                .DataRows.Clear()

            End With

            \'()---调数据库中的当月数据

            Dim mg As New Merger

            mg.SourcePath = ProjectPath &"\\Data\\信息数据库.mdb"    \'指定数据文件

            mg.Password = "zhang"

            mg.SourceTableName = "教职工信息表"

            mg.DataTableName = "教职工历月信息"

            mg.Filter = "单位代码 = " & myDWDM & " And 是否在职 = \'在职\' and 身份证号 = \'"& dr("身份证号") &"\' "

            mg.FieldMaps.Add("台帐年月","台帐年月")

            mg.FieldMaps.Add("身份证号","身份证号")

            mg.FieldMaps.Add("姓名","姓名")

            mg.FieldMaps.Add( e.Col.Name ,"信息列")

            mg.Merge()

             \'-- 定位上月为当前行

            Tables("教职工历月信息").sort = "台帐年月,姓名"

            With Tables("教职工历月信息")

                .Position = .Rows.Count - 1

            End With

        End If

    End If