标题：[求助]

1楼

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 &'"

2楼

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编辑过]

共2 条记录, 每页显示 10 条, 页签: [1]

[Full] 完整版
[Rss] 订阅
[Xml] 无图版
[Xhtml] 无图版