- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 数据天填充器报错处理 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110808)
-- 发布时间：2017/12/10 9:56:00
-- 数据天填充器报错处理
Dim f As New Filler f.SourceTable = DataTables("课程表") \'指定数据来源 f.SourceCols = "学期,序号,分类,星期,性质,级别,教师,班级,上课时间,教室,开课日期,选择" \'指定数据来源列 \'f.filter=[选择]=True f.Filter = "选择=true" f.DataTable = DataTables("历史课程表") \'指定数据接收表 f.DataCols = "学期,序号,分类,星期,性质,级别,教师,班级,上课时间,教室,开课日期,选择" \'指定数据接收列 f.Fill() \'填充数据 两次执行上述代码，会出现如下窗口：  此主题相关图片如下：360截图20171209163031139.jpg 如何避免弹出这个窗口，提前弹出自定义窗口，提示用户信息重复？ |
-- 发布时间：2017/12/10 15:34:00
--
改成这种方式填充
http://www.foxtable.com/webhelp/scr/1533.htm
addnew 新增行之前，先查询是否存在相同的行
If DataTables("历史课程表").Find("序号 = \'" & dr("序号") & "\'") Is Nothing Then