代码这样写
Dim nr As Row = Tables("退休生存人员.退休死亡人员").AddNewTables("退休死亡人员").Position = Tables("退休死亡人员").FindRow(nr.DataRow)Forms("死亡记录窗口").Open
加好友 
发短信
Post By：2018/2/26 9:11:00 [显示全部帖子]
