Foxtable(狐表) → 用户栏目 → 专家坐堂 → 二表间光标对应？


  共有8110人关注过本帖树形打印复制链接

主题：二表间光标对应？
帅哥哟，离线，有人找我吗？
jk362223
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		二表间光标对应？  发帖心情 Post By：2014/7/29 22:47:00 [显示全部帖子]

二表间光标对应，在主表CurrentChanged设置
If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
Dim wz1 As Integer
Dim dr1 As DataRow
dr1 = DataTables("资料扫描").Find("[身份证号] = '" & e.Table.Current("身份证号") & "'")
If dr1 IsNot Nothing Then
    wz1 = Tables("资料扫描").FindRow(dr1)
    If wz1 >= 0 Then
        Tables("资料扫描").Position = wz1
    End If
End If
现在的问题是"资料扫描"没加载，在后台，无法让光标相互对应，代码要怎么写？用sqlfind不行啊
 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/7/29 22:53:00 [显示全部帖子]

还有一个问题是，若表A,表B在后台，下面设置不能完成引用，
Dim nmc() As String = {"第一列","第二列"} 'A表数据来源列
Dim nmd() As String = {"第一列","第二列"} 'B表数据接收列
Dim dra As Row = Tables("表A").Current
Dim drc As Row = Tables("表C").AddNew
For i As Integer = 0 To nmc.Length - 1
    drc(nmd(i)) = dra(nmc(i))
Next
Dim nma() As String = {"第一列","第二列"} 'A表数据来源列
Dim nmb() As String = {"第三列","第四列"} 'B表数据接收列
Dim drb As Row = Tables("表B").Current
Dim dr As Row = Tables("表C").Current
For i As Integer = 0 To nma.Length - 1
    dr(nmb(i)) = drb(nma(i))
Next
这是多表多列引用，若表A,表B数据在后台，如何引用？
 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/7/30 0:17:00 [显示全部帖子]

那具体的代码如何写啊？

 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/7/30 8:07:00 [显示全部帖子]

是不是这样？
Dim nmc() As String = {"第一列","第二列"} 'A表数据来源列
Dim nmd() As String = {"第一列","第二列"} 'B表数据接收列
Dim dra As Row = Tables("表A").Current
Dim drc As Row = Tables("表C").AddNew
For i As Integer = 0 To nmc.Length - 1
    drc(nmd(i)) = dra(nmc(i))
Next

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
cmd.CommandText = "SELECT * From {表B} Where 条件语句"
dt = cmd.ExecuteReader()
For Each dr1 As DataRow In dt.DataRows
    Dim dr2 As DataRow = DataTables("表C").Current()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/7/30 11:38:00 [显示全部帖子]

Dim drb As Row = dataTables("表B").SQLFIND("条件语句"）
若是没有("条件语句"），是不是可以这样写？
Dim drb As Row = dataTables("表B").SQLFIND()
 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/7/30 12:04:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/7/30 17:40:00 [显示全部帖子]

示例，有表“报销名单”，“基本资料”，”病案首页“，其中“报销名单”和”病案首页“是通过”身份证号“,"入院时间"双关联的，而“基本资料”和”病案首页“是通过”身份证号“关联，现建一个”窗口1“，和一个按钮，现在想实现：1、通过后台，从“报销名单”，“基本资料”将一些列引用到”病案首页“，因每次住院的时间不同，“报销名单”中的资料会发生变化，因而是”身份证号“,"入院时间"双关联的，是当次入院标记，才能找对行引用到”病案首页“，“基本资料”相对是不变的，因而只是依”身份证号“就可找对行，代码怎写，请帮我。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:qqge_201407301722.zip
 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/7/30 17:57:00 [显示全部帖子]

同时还有从“报销名单”，“基本资料”将一些列引用到”病案首页“，报销名单”和”病案首页“是通过”身份证号“,"入院时间"双关联的，希望从后台引用，
 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/7/30 17:58:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/7/30 18:01:00 [显示全部帖子]

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

 回到顶部
总数 33 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 6 次数据查询