| 以文本方式查看主题 - 易表在线答疑 (http://egrid2000.com/dvbbs/index.asp) -- 用户社区 (http://egrid2000.com/dvbbs/list.asp?boardid=2) ---- [求助]请帮我看看这个公式怎么写 (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=6650) |
| -- 作者：金银花 -- 发布时间：2007/2/27 18:28:00 -- [求助]请帮我看看这个公式怎么写 请帮我看看这个公式怎样写：药品录入完，填入到入库明细表里，然后光标跳到“代码”列，并把“代码”列的数据清除，然后计算“购进额、零售额、品种”数，“药品录入”按钮的公式egd文件下载 |
| -- 作者：czy -- 发布时间：2007/2/27 19:53:00 -- 这样？ AddRow("入库明细表","编码,通用名,商品名,剂型,规格,单位,批号,数量,购进价,购进金额,零售价,零售金额,注册商标,批准文号,厂家简称,有效期,供应商,入库日期",[编码],[通用名],[商品名],[剂型],[规格],[单位],[批号],[数量],[购进价],[购进金额],[零售价],[零售金额],[注册商标],[批准文号],[厂家简称],[有效期],[供应商],[入库日期])And SendKeys("{del}") And SetFocus("代码") |
| -- 作者：金银花 -- 发布时间：2007/2/27 21:06:00 -- 我是用的这个公式SetFocus("代码") And SetCellText(GridName,Row,"代码","") And AddRow("入库明细表","编码,通用名,商品名,剂型,规格,单位,批号,数量,购进价,购进金额,零售价,零售金额,注册商标,批准文号,厂家简称,有效期,供应商,入库日期",[编码],[通用名],[商品名],[剂型],[规格],[单位],[批号],[数量],[购进价],[购进金额],[零售价],[零售金额],[注册商标],[批准文号],[厂家简称],[有效期],[供应商],[入库日期])，再问一下，当把改行数据填充到“入库明细表”里后，代码清空，怎样使其他“编码,通用名,商品名,剂型,规格,单位,批号,数量,购进价,购进金额,零售价,零售金额,注册商标,批准文号,厂家简称,有效期,”这些数据也清空，也就是当点击药品“录入按钮”后第二块（药品信息）录入窗口的数据全部清空 |
| -- 作者：czy -- 发布时间：2007/2/27 21:27:00 -- AddRow("入库明细表","编码,通用名,商品名,剂型,规格,单位,批号,数量,购进价,购进金额,零售价,零售金额,注册商标,批准文号,厂家简称,有效期,供应商,入库日期",[编码],[通用名],[商品名],[剂型],[规格],[单位],[批号],[数量],[购进价],[购进金额],[零售价],[零售金额],[注册商标],[批准文号],[厂家简称],[有效期],[供应商],[入库日期]) And SendKeys("{del}{tab 12}") And SetFocus("代码") |
| -- 作者：金银花 -- 发布时间：2007/2/27 21:42:00 -- 谢谢你czy版主，还得麻烦你，“录入药品”这个按钮公式还得增加，要同时在库存表里填加入库的记录，还有入库表里的购进额、零售额、品种要即时刷新 |
| -- 作者：金银花 -- 发布时间：2007/2/27 21:43:00 -- 要完成上面的功能，这个公式还有填加什么内容 |