- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助一个自动输入的问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51519)
-- 发布时间：2014/5/28 9:05:00
-- [求助一个自动输入的问题？
有一个处方表，药品清单模板，窗口1为处方输入框，如上传示例．现在"收费项目1"输入后，能从" 药品清单模板 "中的 "与 "收费项目1" 对应的一致的""项目规格"，"单价" 自动输入"项目规格1"，"单价1"中，同理 "收费项目２"一样，对应的内容输入到 "项目规格2"，"单价2"，不知要怎样做才行？请帮我！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:处方输入_201405280637.zip |
-- 发布时间：2014/5/28 9:08:00
--
参考帮助http://www.foxtable.com/help/topics/1451.htm
-- 发布时间：2014/5/28 9:26:00
--
参考帮助http://www.foxtable.com/help/topics/1451.htm是通过 ""产品编号""共同的列名，而我的是不同的列名如 "收费项目1"与 "收费项目"，再同一行中还有 "收费项目2"与 "收费项目"，也就是说是多列与一个来源表 共同 一个列且不同名做为联结列时怎办？如上示例
-- 发布时间：2014/5/28 9:28:00
--
有区别吗? 选项目1 就填到 收费项目1 选项目2就填充到收费项目2 列名变动一下而已. 代码完全一致的
-- 发布时间：2014/5/28 10:25:00
--
能帮下吗？就我这个上传示例，我搞了好久，都不能做，
-- 发布时间：2014/5/28 10:26:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:一个问题.zip |
-- 发布时间：2014/5/28 10:40:00
--
复制黏贴例子的代码,更改列名.完事.. 你根本就没去看,也没动手去试试.
-- 发布时间：2014/5/28 11:15:00
--
对不起，只改了上面没改下面的，好象不是很灵活样的，是不是要加个输入确认啊
-- 发布时间：2014/5/28 11:19:00
--
什么只改了上面没改下面?
-- 发布时间：2014/5/28 11:21:00
--
If e.DataCol.Name = "收费项目1" Then
If e.NewValue Is Nothing Then
e.DataRow("项目标识1") = Nothing
e.DataRow("项目规格1") = Nothing
e.DataRow("单价1") = Nothing
e.DataRow("剂量1") = Nothing
Else
Dim dr As DataRow
dr = DataTables("药品清单模板").Find("[收费项目] = \'" & e.NewValue & "\'")
If dr IsNot Nothing
e.DataRow("项目标识") = dr("项目ID")
e.DataRow("项目规格") = dr("项目规格")
e.DataRow("单价") = dr("单价")
e.DataRow("剂量") = dr("数量")
End If
End If
End If
就是这个，见笑了