Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何将窗口表中的字段组成赋值给另一个窗口中的字段


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

主题：[求助]如何将窗口表中的字段组成赋值给另一个窗口中的字段
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7598 威望：0 精华：0 注册：2010/4/12 12:23:00 		[求助]如何将窗口表中的字段组成赋值给另一个窗口中的字段  发帖心情 Post By：2013/10/16 15:20:00 [显示全部帖子]

我做个一个窗口中，窗口中有一表（心脏杂音录入），现需将表中PaitentsID相同的行中的各字段的值（字符串）连接后赋值给另一窗口的某字段，如何弄？
图片点击可在新窗口打开查看此主题相关图片如下：360软件小助手截图.jpg
图片点击可在新窗口打开查看


代码写在确定按钮中
[此贴子已经被作者于2013-10-16 15:21:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7598 威望：0 精华：0 注册：2010/4/12 12:23:00 		[求助]如何将窗口表中的字段组成赋值给另一个窗口中的字段  发帖心情 Post By：2013/10/16 15:34:00 [显示全部帖子]

只要是PaitentsID相同的行据需链接加入。

Dim t As Table = Tables("心脏杂音")
t.Save()
With Tables("系统检查")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "PatientsID = '" & .Current("patientsID") & "'"
    End If
End With

dim n as integer=tables("心脏杂音").count
dim i as integer
dim txt as string= forms("系统检查").controls（"combobox5"）.text
If n=0 Then
    txt="未闻及杂音"
else
for i=0 n-1

Dim r As Row =Tables("心脏杂音").Current

txt=  r("传导方向")  & "," & r("杂音部位") & “," & r("心博时相") & ";"

next

End If
[此贴子已经被作者于2013-10-16 15:38:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7598 威望：0 精华：0 注册：2010/4/12 12:23:00 		  发帖心情 Post By：2013/10/16 15:50:00 [显示全部帖子]

这是例子。看看怎么弄？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:项目111.table
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7598 威望：0 精华：0 注册：2010/4/12 12:23:00 		[求助]如何将窗口表中的字段组成赋值给另一个窗口中的字段  发帖心情 Post By：2013/10/16 16:13:00 [显示全部帖子]

错了。
1. 根据窗口（系统检查）中心脏杂音中的选项，如果不等于“未闻及杂音”，就打开窗口（心脏杂音录入）按PatientsID进行筛选，并进行杂音录入
2. 窗口（心脏杂音录入）中PatientsID等于系统检查中PatientsID，完成录入。一个病人可能有几种杂音，即多行。
3. 然后将窗口（心脏杂音录入）中的每行中的所有字段拼接成一个新字段，每个新字段间用逗号隔开。
4. 把拼接成的新字段赋值給系统检查中的心脏杂音字段。
[此贴子已经被作者于2013-10-16 16:14:05编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7598 威望：0 精华：0 注册：2010/4/12 12:23:00 		[求助]如何将窗口表中的字段组成赋值给另一个窗口中的字段  发帖心情 Post By：2013/10/16 17:37:00 [显示全部帖子]

2. 就是说一个病人存在的心脏杂音可能有几种，否则就在系统检查中设置一个字段就搞定了。系统检查窗口中心脏杂音的值来自心脏杂音录入窗口，两者的联系就是PatientsID，一对多的关系。
4. 系统检查窗口中心脏杂音的下拉框的选项主要的目的在于打开心脏杂音录入窗口。其实际值是由心脏杂音录入窗口字段拼接后为其赋值。
[此贴子已经被作者于2013-10-16 17:38:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7598 威望：0 精华：0 注册：2010/4/12 12:23:00 		  发帖心情 Post By：2013/10/16 17:56:00 [显示全部帖子]

1. PatientsID就是代表患者，患者编号。是个不重复的代号，由姓名和出生日期组成。两个表中都有该字段，通过该字段进行关联，否则就不知道是那个患者了。
2. 心脏杂音录入窗口中有多行，都是同一个患者的，就是想把同一个患者的不同心脏杂音拼接在一起。
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7598 威望：0 精华：0 注册：2010/4/12 12:23:00 		  发帖心情 Post By：2013/10/16 18:03:00 [显示全部帖子]

就是想把截图中的PatientsID相同的行中的所有列字段拼成一个新字段。
图片点击可在新窗口打开查看此主题相关图片如下：360软件小助手截图.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7598 威望：0 精华：0 注册：2010/4/12 12:23:00 		[求助]如何将窗口表中的字段组成赋值给另一个窗口中的字段  发帖心情 Post By：2013/10/16 18:07:00 [显示全部帖子]

想得到的字段：二尖瓣区可闻及向颈部传导的收缩中期粗糙喷射状2/6递减性杂音，主动脉瓣区可闻及向颈部传导收缩期全期低音调吹风样5/6递减性杂音。

[此贴子已经被作者于2013-10-16 18:10:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7598 威望：0 精华：0 注册：2010/4/12 12:23:00 		  发帖心情 Post By：2013/10/16 21:53:00 [显示全部帖子]

搞定了。窗口中行和列引用有点问题。哎！

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