Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助一个自动输入的问题？


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

主题：[求助一个自动输入的问题？
帅哥哟，离线，有人找我吗？
jk362223
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		[求助一个自动输入的问题？  发帖心情 Post By：2014/5/28 9:05:00 [显示全部帖子]

有一个处方表，药品清单模板，窗口1为处方输入框，如上传示例．现在"收费项目1"输入后，能从" 药品清单模板 "中的 "与 "收费项目1" 对应的一致的""项目规格"，"单价" 自动输入"项目规格1"，"单价1"中，同理 "收费项目２"一样，对应的内容输入到 "项目规格2"，"单价2"，不知要怎样做才行？请帮我！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:处方输入_201405280637.zip
 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

参考帮助http://www.foxtable.com/help/topics/1451.htm是通过 ""产品编号""共同的列名，而我的是不同的列名如  "收费项目1"与  "收费项目"，再同一行中还有  "收费项目2"与  "收费项目"，也就是说是多列与一个来源表 共同 一个列且不同名做为联结列时怎办？如上示例
 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

能帮下吗？就我这个上传示例，我搞了好久，都不能做，

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


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

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


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

对不起，只改了上面没改下面的，好象不是很灵活样的，是不是要加个输入确认啊

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


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：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

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


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

下面的少了一个"1"

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