主题：[求助]如何自动添加行并自动添加数据。

我想在当凭证里的摘要是“本月结转”时，点录入，原材料明细里会自动添加一行，并自动根据本月结转填写日期，凭证号码，搞要，粮食等科目里自动录入，粮食等科目合计数的负数。哪位老师帮帮忙。

附件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:明细结转.egd

不是很明白，参考

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:结转.egd

老师您好，我希望所有的公式只设在录入这个按钮里，别的地方不变。还有本月结转一行是合计数的负数。老师能不能帮我改改。

参考

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:明细结转11.egd

谢谢老师，我去试试

老师您好，我根据您的公式作了修改，想让它根据时间录入，为什么不行帮我看看。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:明细结转11.egd

if([年] =[%年%], if([月] =[%月份%], if([总账科目] = "原材料成本", if([摘要] = "本月结转", AddRow("原材料成本明细","日  期,凭证号码, 摘要",[日  期],[凭证号码],[摘要]) And Eval("Evalfor(""原材料成本明细"",""" + Substitute(Substitute(Eval("Substitute(""|@|"",""|"",""" + Substitute(Substitute(Substitute(ListCols("原材料成本明细"),"日  期|凭证号码|摘要|",""),"|余额",""),"|",""") + ""|"" + Substitute(""|@|"",""|"",""") + """)"),"@",""","" - sumfor(""""原材料成本明细"""","""""),"|",""""",""""日  期"""","""" >= """",EOMonth([日  期], - 1) + 1,"""" 日  期"""","""" <= """",EOMonth([日  期],0))"",""凭证号码"","" = "",[凭证号码]) And Evalfor(""原材料成本明细"",""") + """"",""""日  期"""","""" >= """",EOMonth([日  期], - 1) + 1,"""" 日  期"""","""" <= """",EOMonth([日  期],0))"",""凭证号码"","" = "",[凭证号码])") And OpenGrid("原材料成本明细") And Move(Rows,1), ""), ""), ""), "")

 

以上红色字体前面有空格，这样会导致列名不对，去掉空格后公式就可以正常运行的

改了能正常了，