主题：[求助] 还有两个问题，请帮忙

1.

dim f As New Filler
f.SourceTable = DataTables("表A") '指定数据来源
f.DataTable = DataTables("表B") '指定数据接收表

f.ExcludeExistValue = False

f.Filter =   "厂家 = '京东'" 
f.Fill() '填充数据

2.

Dim dt1 As DataTable = DataTables("表C")

Dim Customers As List(Of String)
Customers = dt1.GetUniqueValues("厂家 > ''", "厂家")

if  Customers.Count  <   dt1.Select("厂家 > ''").Count  then

    Messagebox.Show("有重复的厂家")

end if