| 以文本方式查看主题 - 易表在线答疑 (http://egrid2000.com/dvbbs/index.asp) -- 用户社区 (http://egrid2000.com/dvbbs/list.asp?boardid=2) ---- [求助]为什么此公式中的提示会同时出现两个？ (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=2232) |
| -- 作者：szscwy1 -- 发布时间：2011/7/4 10:01:00 -- [求助]为什么此公式中的提示会同时出现两个？ 自编的一仓库管理系统“出库明细”表中的“材料编号”列的操作公式如下：目的是该材料编号如果在“入库明细”表中没有入库记录，则不能执行出库操作，同时抹去无效的材料编号和数量，重算相关的引用列数据；另外，如果存在入库记录，就将“材料编号”转换为大写，以防出现大小写不一致的问题。 但执行中发现：如果没有某编号的材料时，同时出现两条一样的提示信息，其他操作结果都符合编程目的。虽然不影响程序结果，但总觉得不严谨、不完美，请教各位老师，公式中有何错误？谢谢！ if([材料编号]>"",if(CountFor("入库明细","材料编号", "=" ,Upper([材料编号]))=0, msgbox("没有【" +[材料编号]+"】号的入库记录,不能出库!",0,2) And SetCellText(GridName,Row,"材料编号","") And SetCellText(GridName,Row,"数量","") And RecalcCell(GridName,Row,"材料类别","材料名称","型号规格"),Upper([材料编号])),"")
|
| -- 作者：wjq1072 -- 发布时间：2011/7/4 10:13:00 -- 试试？ if([材料编号]>"",if(CountFor("入库明细","材料编号", "=" ,Upper([材料编号]))=0, msgbox("没有【" +[材料编号]+"】号的入库记录,不能出库!",0) And SetCellText(GridName,Row,"材料编号","") And SetCellText(GridName,Row,"数量","") And RecalcCell(GridName,Row,"材料类别","材料名称","型号规格"),Upper([材料编号])),"") |
| -- 作者：szscwy1 -- 发布时间：2011/7/4 10:46:00 -- 谢谢 wjq1072 总版主！试了后还是不行！ |
| -- 作者：wjq1072 -- 发布时间：2011/7/4 11:25:00 -- 发文件看看是什么情况 |