以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 还有两个问题，请帮忙  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=30467)
--  作者：yanxin04
--  发布时间：2013/3/28 11:20:00
--  [求助] 还有两个问题，请帮忙
想将表A的所有记录追加到表B相同字段中，我想在中间加一个条件，譬如有一字段是厂家，我想只将表A中

厂家为京东的追加到表B中，应该如何编写。

 

另一个问题是，我想编一段代码，如果表C中的厂家字段记录有重复出现的厂家，做出提示。
--  作者：yanxin04
--  发布时间：2013/3/28 12:43:00
--  
非常谢谢。
--  作者：yanxin04
--  发布时间：2013/3/28 12:50:00
--  
好像 Dim dr As DataRow = DataTables("表C").Find("厂家=\'" & e.DataRow("厂家") & "\'") 这句有错误。
--  作者：FoxMan
--  发布时间：2013/3/28 13:10:00
--  

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

[此贴子已经被作者于2013-3-28 13:12:43编辑过]
--  作者：yanxin04
--  发布时间：2013/3/28 13:17:00
--  
谢谢5楼的帮助
--  作者：yanxin04
--  发布时间：2013/3/28 13:42:00
--  

好像5楼的也有问题

我想要的是完全匹配
--  作者：狐狸爸爸
--  发布时间：2013/3/28 14:43:00
--  

输入过程，禁止输入重复值：

 

http://www.foxtable.com/help/topics/2481.htm

 

 

输入完成检查：

 

http://www.foxtable.com/help/topics/1478.htm

 
--  作者：yanxin04
--  发布时间：2013/3/28 15:38:00
--  
谢谢狐狸爸爸