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


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

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


加好友 发短信
等级：五尾狐 帖子：1014 积分：7535 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/10/16 15:24:00 [只看该作者]

非常简单的,上个例子2分钟搞定.

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


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/10/16 15:24:00 [只看该作者]

Dim r As Row =Tables("这个表").Current

... =  r("列1")  & "," & r("列2") & “," & r("列3")
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1014 积分：7535 威望：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1014 积分：7535 威望：0 精华：0 注册：2010/4/12 12:23:00 		  发帖心情 Post By：2013/10/16 15:50:00 [只看该作者]

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/10/16 16:00:00 [只看该作者]

很简单的,不过你在这里做其实不太科学

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/10/16 16:04:00 [只看该作者]

论坛有好多类似的例子,采用的是DatacolChanged事件,你找一下吧,本来想给你找一下的,一下找不到.

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


加好友 发短信
等级：五尾狐 帖子：1014 积分：7535 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/10/16 17:10:00 [只看该作者]

2.没看懂

4.拼接好的字符串又赋值给 心脏杂音?  1.开始的时候不是利用下拉框选择了吗?
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1014 积分：7535 威望：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编辑过]
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04395 秒, 6 次数据查询