主题：二表间光标对应？

 

没有条件语句那你想获取那一行?

获取“身份证号”和“入院时间”相同的行

 

你的问题到底是什么？你做个例子发上，说明你想达到的效果

示例，有表“报销名单”，“基本资料”，”病案首页“，其中“报销名单”和”病案首页“是通过”身份证号“,"入院时间"双关联的，而“基本资料”和”病案首页“是通过”身份证号“关联，现建一个”窗口1“，和一个按钮，现在想实现：1、通过后台，从“报销名单”，“基本资料”将一些列引用到”病案首页“，因每次住院的时间不同，“报销名单”中的资料会发生变化，因而是”身份证号“,"入院时间"双关联的，是当次入院标记，才能找对行引用到”病案首页“，“基本资料”相对是不变的，因而只是依”身份证号“就可找对行，代码怎写，请帮我。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:qqge_201407301722.zip

 参考代码，如下

 

Dim nma() As String = {"姓名","性别"} 'A表数据来源列
Dim nmb() As String = {"姓名","性别"} 'B表数据接收列

For Each dr As DataRow In DataTables("病案首页").DataRows
    Dim fdr As DataRow = DataTables("基本资料").Find("身份证号 = '" & dr("身份证号") & "'")
    If fdr IsNot Nothing Then
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = fdr(nma(i))
        Next
    End If
Next

同时还有从“报销名单”，“基本资料”将一些列引用到”病案首页“，报销名单”和”病案首页“是通过”身份证号“,"入院时间"双关联的，希望从后台引用，

如何引用“报销名单”的资料？

这里的“Find”，是否改为“sqlFind”，从台寻找？

参考代码

 

Dim nma() As String = {"姓名","性别"} 'A表数据来源列
Dim nmb() As String = {"姓名","性别"} 'B表数据接收列

Dim cmd As new SQLCommand
'如果是外部数据源,就加上外部数据源的名字
cmd.CommandText = "select * from {报销名单}"
Dim dt1 As DataTable = cmd.ExecuteReader
cmd.CommandText = "select * from {基本资料}"
Dim dt2 As DataTable = cmd.ExecuteReader

For Each dr As DataRow In DataTables("病案首页").DataRows
    Dim fdr As DataRow = dt1.Find("身份证号 = '" & dr("身份证号") & "'")
    If fdr Is Nothing Then
        fdr = dt2.Find("身份证号 = '" & dr("身份证号") & "'")
    End If
    If fdr IsNot Nothing Then
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = fdr(nma(i))
        Next
    End If
Next