主题：重复值的问题

Dim q As New Filler
q.SourceTable = DataTables("试样台账") '指定数据来源
q.SourceCols = "试样编号" '指定数据来源列
q.DataTable = DataTables("试样信息") '指定数据接收表
q.DataCols = "试样编号"  '指定数据接收列
q.ExcludeExistValue = True
q.Fill() '

老师：以上的代码没有问题，但是我发现，如果我在试样信息表中的试样编号后面的列里加入了其它数据，试样编号就会变成2个，在列属性里也进行了不允许重复的设置的

想问问有办法解决吗？

老师们都下班了吗？

 哦，谢谢老师

还有个问题，就是帮助中的到期提醒中的代码，一共有4个步骤，3段代码，我只用了后面两段代码，发现表没变颜色，只是在点窗口点到满足条件行的时候，记录窗口才显示为红色，是不是必须要第一段代码呢？我不需要计算日期了啊？

发现问题了，我想吧单元格，改成行，代码问题。老师改成一行显示为红色，应该怎么改？

老师，我刚加了个判断代码

Dim dr As Col = e.Col
If dr.Col.IsNull("理化送样") Then
 If e.Col.Name = "发往取样" Then
    If e.Row.IsNull("发往取样") = False
        If e.Row("发往取样") < Date.Today.AddDays(2) Then
            e.Style = "样式1"
        End If
    End If
 End If
End If

怎么不可以呢？

Tables("表A").Filter="日期 is  null

我在代码前加了这一句，整个表不见了...............

晕了

点表属性，点不动了....

老师有办法吗？