以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 还有两个问题,请帮忙  (http://foxtable.net/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
--  
谢谢狐狸爸爸