以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  编码有误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113627)

--  作者：有点甜 --  发布时间：2018/1/19 16:21:00 --   这段代码不会报错。请确认是什么操作导致的报错。

--  作者：有点蓝 --  发布时间：2018/1/19 20:23:00 --   去掉这句 max = Tables("订单下达_订单下达").DataTable.sqlCompute("Max(毛坯编码)","投产日期 >= #" & fd & "# And 投产日期 <= #" & ld & "#") \'取得该月的最大编号

--  作者：有点蓝 --  发布时间：2018/1/19 21:07:00 --   写了什么代码？

--  作者：有点蓝 --  发布时间：2018/1/19 21:18:00 --   如果用Find和Compute只能查询已经加载的数据 如果用sqlFind和sqlCompute，生成编号必须马上保存 …… e.DataRow("销售订单号") = bh & Format(idx,"0000") e.DataRow.save ……

--  作者：有点蓝 --  发布时间：2018/1/19 22:26:00 --   做个例子看看

--  作者：有点蓝 --  发布时间：2018/1/19 23:05:00 --   项目找不到上面的2个窗口

--  作者：有点蓝 --  发布时间：2018/1/20 9:22:00 --   窗口afterload DataTables("订单下达_订单下达").DataRows.Clear DataTables("订单下达_订单下达").addnew DataTables("订单下达_订单下达").AutoAddNew = True Tables("订单下达_订单下达").DataTable.DataCols("下单日期").SetDateTimeFormat(DateTimeFormatEnum.Date) Tables("订单下达_订单下达").current("下单日期") = Date.Today If e.Form.Width> 0 AndAlso e.Form.height > 0 Then     vars("width") = e.Form.width     vars("height") = e.Form.height End If

--  作者：有点蓝 --  发布时间：2018/1/20 11:07:00 --   11楼的项目我测试没有问题