改成这种方式填充
http://www.foxtable.com/webhelp/scr/1533.htm
addnew 新增行之前，先查询是否存在相同的行
If DataTables("历史课程表").Find("序号 = '" & dr("序号") & "'") Is Nothing Then
加好友 
发短信
Post By：2017/12/10 15:34:00 [显示全部帖子]
