1、 不要每次都用 Tables("到会明细表").Current
改成这样
Dim nr As Row = Tables("到会明细表").AddNewnr("永久编号") = e.DataRow("永久编号")
2、前后加上SystemReady http://www.foxtable.com/help/topics/2218.htm