以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13331)

--  作者:wangliang
--  发布时间:2011/10/9 9:32:00
--  [求助]

当按下新增按钮实现生产凭证号自动+1,下面的代码错在哪里

Dim DR As DataRow =DataTables("生产通知单").ADDNEW()
Dim i As Integer =  DataTables("生产通知单").DataRows.count-2
Dim da As DataRow=  DataTables("生产通知单").DataRows(i)
Dim dc As Integer = cint(dr("生产凭证号").remove(0,2)) +1
 dr("生产凭证号") = "wz" & "\'& dc &\'"


--  作者:don
--  发布时间:2011/10/9 9:41:00
--  
Dim t As Table = Tables("生产通知单")
Dim r As Row = t.ADDNEW()
r("生产凭证号") = "wz"  & cint(t.DataTable.Compute("Max(生产凭证号)").remove(0,2)) +1
[此贴子已经被作者于2011-10-9 9:51:01编辑过]