主题：条形码

您这种情况只能使用条码打印机，不用换页的，直接往下打印！

唉，网络不好，做好了传了好几遍都传不上来，只能给您个公式：
  ClearGrid("条码表") And eval(mid(Rept(Rept(" And AddRow(""条码表"",""货品编码,货品条码"",[货品编码],[货品条码])",[进货数量]) + " And Next()",Rows),5)) And DelFor("条码表","货品编码", "=" ,"") And OpenGrid("条码表") And Report(GridName,"打条码",0,0,0) And OpenGrid("进货")

    上面是个打印全部的公式，要打印符合条件的部分，在最前面加上FilterFor(........) And

邮件已发送！

12楼已经说了，那是打印全部，造成楼上的原因是一次打印太多，造成死机等一系列错误！要打印选定行其实也很简单，改用下面的公式：

Do(111) And ClearGrid("条码表") And eval(mid(Rept(Rept(" And AddRow(""条码表"",""货品编码,货品条码"",[货品编码],[货品条码])",[进货数量]) + " And Next()",Rows),5)) And DelFor("条码表","货品编码", "=" ,"") And OpenGrid("条码表")And Report(GridName,"打条码",0,0,0) And OpenGrid("进货") And Do(112)

       把这个公式换进打印按钮即可！

-=-=-=- 以下内容由 程兴刚 在 2007年12月19日 00:20pm 时添加 -=-=-=-
我就不再给您回信了！

楼上说得对，这是eval的高级用法，技巧区有帖子，慢慢学习消化吧！

呵呵，一时疏忽，这样执行从第二行开始有错误，都引用了第一行的数量，我看能不能改改！

原公式有误，用这个OK!

       Do(111) And ClearGrid("条码表") And eval(mid(Rept(" And eval(mid(Rept("" And AddRow(""""条码表"""",""""货品编码,货品条码"""",[货品编码],[货品条码])"",[进货数量]),5)) And Next()",VisibleRows),5))And DelFor("条码表","货品编码", "=" ,"") And OpenGrid("条码表") And Report(GridName,"打条码",1,Rows,0) And OpenGrid("条码表") And Do(112)

[这个贴子最后由程兴刚在 2007/12/21 04:11pm 第 1 次编辑]

       这种eval()函数嵌套eval()函数的公式理解起来难度有点大，一定够学习一阵子的，慢慢消化吧，不要急于求成！