主题：重算列出现错误提示

呵呵，可以在表中某个位置保存上次的日期，打开的时候读取该日期和系统日期进行比较即可。
也可以用文本文件保存上次的日期。
不要急着解决这些具体的问题，磨刀不误砍材工，先看帮助，一些问题就水到渠成地解决了。

If e.DataCol.Name = "姓名" Then
    If e.DataRow.IsNull("姓名")
        e.DataRow("xmjm") = Nothing
        e.DataRow("姓名简码") = Nothing
    Else
        Dim a As String
        Dim b As String = GetPY(e.DataRow("姓名"))
        For i As Integer = 0 To b.Length - 1
            If i = 0 OrElse b.Chars(i - 1) = " " Then
                a = a & b.Chars(i)
            End If
        Next
        e.DataRow("xmjm") = b
        e.DataRow("姓名简码") = a.ToUpper
    End If
End If

好家伙，仅仅一个姓名简码就要写出这么复杂的语句，我开始怀疑自己能不能学会Foxtable。

完全可以，不要考虑这种代码，这是老鸟的事。

好吧，需要时请老鸟帮忙。

还有Getpy会把所有生僻字都译成zuo，怎么办？

getpy是小学水平。