主题：[求助]

当按下新增按钮实现生产凭证号自动+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 &'"