以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]关于整除及取模的窗口打印  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91157)

--  作者：狐作非为 --  发布时间：2016/9/30 16:31:00 --  [求助]关于整除及取模的窗口打印 产品包装是固定数量为160的，如果产品销售数量小于160，则打印一张标签，否则打印160的整数倍加上余量，例如：247这个数量就打印一张160的标签再打印一张87标签，两个标签的和为247即可，请问怎么写？                    For i As Integer =  0 To dr("销售数量")\\160             mc.Text= "机器人"             jh.Text= dr("客户编号")             sp.Text = dr("产品名称")             qty.Text = 160             cnumber.Text = dr("订单号")             Dim doc As PrintDoc = e.Form.GernatePrintDoc()             Doc.AutoRotate=False             Doc.PageSetting.Landscape=False             Doc.PageSetting.Width=130             Doc.PageSetting.Height=150             Doc.PageSetting.BottomMargin=0             Doc.PageSetting.LeftMargin=0             Doc.PageSetting.RightMargin=0             Doc.PageSetting.TopMargin=0             doc.Print

--  作者：有点蓝 --  发布时间：2016/9/30 16:48:00 --   dim count as integer = Math.Ceiling(dr("销售数量")\\160) For i As Integer =  1 To count             mc.Text= "机器人"             jh.Text= dr("客户编号")             sp.Text = dr("产品名称")             qty.Text = IIF(i = count,dr("销售数量") Mod 160,160)

--  作者：狐作非为 --  发布时间：2016/9/30 17:55:00 --   谢谢