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


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

主题：[求助一个自动输入的问题？
帅哥哟，离线，有人找我吗？
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
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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"与  "收费项目"，也就是说是多列与一个来源表 共同 一个列且不同名做为联结列时怎办？如上示例
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

有区别吗? 选项目1 就填到 收费项目1   选项目2就填充到收费项目2     列名变动一下而已. 代码完全一致的

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


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

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

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


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

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


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

复制黏贴例子的代码,更改列名.完事..  你根本就没去看,也没动手去试试.

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


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

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

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


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

什么只改了上面没改下面?

 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

就是这个，见笑了
 回到顶部
总数 12 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.09766 秒, 7 次数据查询