- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何将窗口表中的字段组成赋值给另一个窗口中的字段 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=41313)
-- 发布时间：2013/10/16 15:20:00
-- [求助]如何将窗口表中的字段组成赋值给另一个窗口中的字段
我做个一个窗口中，窗口中有一表（心脏杂音录入），现需将表中PaitentsID相同的行中的各字段的值（字符串）连接后赋值给另一窗口的某字段，如何弄？
此主题相关图片如下：360软件小助手截图.jpg
代码写在确定按钮中
[此贴子已经被作者于2013-10-16 15:21:06编辑过]
-- 发布时间：2013/10/16 15:24:00
--
非常简单的,上个例子2分钟搞定.
-- 发布时间：2013/10/16 15:24:00
--
Dim r As Row =Tables("这个表").Current
... = r("列1") & "," & r("列2") & “," & r("列3")
-- 发布时间：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="未闻及杂音"
elsefor i=0 n-1
Dim r As Row =Tables("心脏杂音").Current txt= r("传导方向") & "," & r("杂音部位") & “," & r("心博时相") & ";" next |
[此贴子已经被作者于2013-10-16 15:38:12编辑过]
-- 发布时间：2013/10/16 15:50:00
--
这是例子。看看怎么弄？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:项目111.table |
-- 发布时间：2013/10/16 16:00:00
--
很简单的,不过你在这里做其实不太科学
-- 发布时间：2013/10/16 16:04:00
--
论坛有好多类似的例子,采用的是DatacolChanged事件,你找一下吧,本来想给你找一下的,一下找不到.
-- 发布时间：2013/10/16 16:13:00
-- [求助]如何将窗口表中的字段组成赋值给另一个窗口中的字段
错了。
1. 根据窗口（系统检查）中心脏杂音中的选项，如果不等于“未闻及杂音”，就打开窗口（心脏杂音录入）按PatientsID进行筛选，并进行杂音录入
2. 窗口（心脏杂音录入）中PatientsID等于系统检查中PatientsID，完成录入。一个病人可能有几种杂音，即多行。
3. 然后将窗口（心脏杂音录入）中的每行中的所有字段拼接成一个新字段，每个新字段间用逗号隔开。
4. 把拼接成的新字段赋值給系统检查中的心脏杂音字段。
[此贴子已经被作者于2013-10-16 16:14:05编辑过]
-- 发布时间：2013/10/16 17:10:00
--
2.没看懂
4.拼接好的字符串又赋值给 心脏杂音? 1.开始的时候不是利用下拉框选择了吗?
-- 发布时间：2013/10/16 17:37:00
-- [求助]如何将窗口表中的字段组成赋值给另一个窗口中的字段
2. 就是说一个病人存在的心脏杂音可能有几种，否则就在系统检查中设置一个字段就搞定了。系统检查窗口中心脏杂音的值来自心脏杂音录入窗口，两者的联系就是PatientsID，一对多的关系。
4. 系统检查窗口中心脏杂音的下拉框的选项主要的目的在于打开心脏杂音录入窗口。其实际值是由心脏杂音录入窗口字段拼接后为其赋值。
[此贴子已经被作者于2013-10-16 17:38:31编辑过]