主题：[原创]请教我这个系统该如何做？或者说如何解决１条记录含有若干条记录信息的问题？

[这个贴子最后由Ltdz在 2007/03/11 00:45pm 第 2 次编辑]

俺也试试：
egd文件下载
修正“调发识别”列的公式（也可把此公式用在调发货物列的操作公式中，则可不用调发识别列）：
If(Eval(Eval("""if(search("""",""""+""""""+Split(Substitute([调发货物],""-"","",""),"","" ," + Substitute(Substitute(Substitute(Substitute(Eval("Substitute(""|@|#|$|"",""|"","""+Substitute( Left([%YSLB%],3 * (len([调发货物]) -len(Substitute(Substitute([调发货物],",",""),"-",""))+1)-1),"|",""")+""|""+Substitute(""|@|#|$|"",""|"",""")+""")"),"@",")+"""""" + """","""",""""""+[%gs2%]+"""""")>=0 Or"" +Split(Substitute([调发货物],""-"","",""),"","" ,"),"#",")+ "">="" + Substitute(Substitute([%gs3%],"","","" or""+Split(Substitute([调发货物],""-"","",""),"","" ,"),"$",")+ "">=""),""-"","" and "" + Split(Substitute([调发货物],""-"","",""),"","" ,"),"|",")+""<="")+"",1,0)+if(search("""",""""+""""""+Split(Substitute([调发货物],""-"","",""),"","" ,")  + ")+""<="")+"",1,0)""")) <> len([调发货物]) -len(Substitute(Substitute([调发货物],",",""),"-",""))+1,"调发货物超出待发货物范围!","")

呵呵，
1、原先的设计是对所有记录进行发货，只要“发货识别”列不为空就提示错误！
2、俺这里的数量为71！

试试这个，加速了库存计算。
egd文件下载

俺这里正常！也许你的机子不大支持Eval函数，试试把下式用变量代替：

Eval("Substitute("",@,"","","","""+Substitute([待发货物],",",""")+""|""+Substitute("",@,"","","",""")+""")")

1、
If([待发货物] = "",0,Eval("if(search(""-"",""" + Substitute(Substitute(

Eval("Substitute("",@,"","","","""+Substitute([待发货物],",",""")+""|""+Substitute("",@,"","","",""")+""")")

,"@",""")>0,abs(Eval("""),"|","""))+1,1)+if(search(""-"",""") + """))+1,1)"))

如用变量[%AA%]=Eval("Substitute("",@,"","","","""+Substitute([待发货物],",",""")+""|""+Substitute("",@,"","","",""")+""")")，则

If([待发货物] = "",0,Eval("if(search(""-"",""" + Substitute(Substitute([%AA%]
,"@",""")>0,abs(Eval("""),"|","""))+1,1)+if(search(""-"",""") + """))+1,1)"))
2、因输入框不算大，设计没考虑有同一编号段：判断周全较麻烦，可以加入删除“已调运货物”表中重复的记录。

[这个贴子最后由Ltdz在 2007/03/12 01:02am 第 1 次编辑]

调发货物列的操作公式改为下式可以判断是否有重复编号段了!

if(search(Mid([%gc%],0,2),[调发货物]+",")>-1orsearch(Mid([%gc%],2),[调发货物]+",")>-1,SetCellText(Grid,Row,"调发货物",Substitute(Substitute([调发货物],Mid([%gc%],0,2),","),Mid([%gc%],2),"-")),If(Eval(Eval("""if(search("""",""""+""""""+Split(Substitute([调发货物],""-"","",""),"","" ," + Substitute(Substitute(Substitute(Substitute(Eval("Substitute(""|@|#|$|"",""|"","""+Substitute( Left([%YSLB%],3 * (len([调发货物]) -len(Substitute(Substitute([调发货物],",",""),"-",""))+1)-1),"|",""")+""|""+Substitute(""|@|#|$|"",""|"",""")+""")"),"@",")+"""""" + """","""",""""""+[%gs2%]+"""""")>=0 Or"" +Split(Substitute([调发货物],""-"","",""),"","" ,"),"#",")+ "">="" + Substitute(Substitute([%gs3%],"","","" or""+Split(Substitute([调发货物],""-"","",""),"","" ,"),"$",")+ "">=""),""-"","" and "" + Split(Substitute([调发货物],""-"","",""),"","" ,"),"|",")+""<="")+"",1,0)+if(search("""",""""+""""""+Split(Substitute([调发货物],""-"","",""),"","" ,")  + ")+""<="")+"",1,0)""")) <> len([调发货物]) -len(Substitute(Substitute([调发货物],",",""),"-",""))+1,MsgBox("待发货物没这么多!请检查。",1,4), Eval("if((len([调发货物])-len(Substitute([调发货物],""" + Substitute(Substitute(Eval("Substitute("",@,"","","","""+Substitute([调发货物],",",""")+""|""+Substitute("",@,"","","",""")+""")"),"@",""","""")))/len("""),"|",""")>1 or (len([调发货物])-len(Substitute([调发货物],""") + """)>1,MsgBox(""调发货物有重复!请检查。"",1,4), True)") ))

上传文件看看!如设置正确却得不到想要的结果，只能怪你的机子了：如不用Eval是很难达到文件中的要求的。

不要动辄上传整个系统，俺的网速不好。

“库存计算”按钮没加入重算“待发数量”列命令！俺并非在设计系统，只能在重点处帮你一下，其他的只能你自己做。

因此你说的问题除了如在待发货物（或调发货物）输入框中输入后，后面的数量不会自动计算或计算错误是个问题（那也只能怪你的机子了，俺也无法帮你），都不是什么问题！！