以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关联输出  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17258)
--  作者：jxkqf
--  发布时间：2012/3/8 13:16:00
--  关联输出

表A中有姓名，身份证号，工资，

表B中有身份证号，单位。

 

表A和表B中有身份证号关联。

 

 

如何根据表A、表B生成含有姓名，身份证号，工资，单位的表C？？
--  作者：czy
--  发布时间：2012/3/8 13:26:00
--  

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

 

 
--  作者：jxkqf
--  发布时间：2012/3/8 13:33:00
--  
如何输出到自动创建并生成到表C？
--  作者：czy
--  发布时间：2012/3/8 13:43:00
--  

增加查询表。

 

Select语句

 

Select  姓名,工资,单位 From {表A} Inner JOIN {表B} ON {表B}.[身份证号] = {表A}.[身份证号]
--  作者：jxkqf
--  发布时间：2012/3/8 13:48:00
--  这段代码错在哪了？

For Each dr As DataRow In DataTables("a").dataRows
    Dim dr1 As DataRow=DataTables("b").find("身份证号"=dr("身份证号"))
    If dr1 IsNot Nothing Then
        Dim sss As String =dr1("农户编号")
        dr("f8")=sss
    End If
Next

 

这段代码错在哪了？

[此贴子已经被作者于2012-3-8 13:48:35编辑过]
--  作者：czy
--  发布时间：2012/3/8 14:04:00
--  
Dim dr1 As DataRow=DataTables("b").find("身份证号 = \'" & dr("身份证号") & "\'")
--  作者：jxkqf
--  发布时间：2012/3/8 14:06:00
--  
好了。
--  作者：jxkqf
--  发布时间：2012/3/8 14:06:00
--  
谢谢。好了。
--  作者：jxkqf
--  发布时间：2012/3/8 14:14:00
--  
For Each dr As DataRow In DataTables("aa").dataRows
    Dim dr1 As DataRow=DataTables("bb").find("身份证号 = \'" & dr("f4") & "\'")
    If dr1 IsNot Nothing Then
        Dim sss As String =dr1("农户编号")
        dr("f8")=sss
dr("zh")=dr1("银行账号")
    End If
Next