此主题相关图片如下：未命名.jpg
表格的:DataRowAdding属性:Dim T1,T2 As String
T1 = "KP" & Format(Date.today,"yyyyMM")
T2 = "[开piao单号] like '" & T1 & "*'and "
T2 = T2 & "[ID] < " & e.DataRow("ID")
Dim dr As DataRow = e.DataTable.Find(T2,"ID DESC")
e.DataRow("开piao日期") = Date.today
If dr is Nothing then
e.DataRow("开piao单号") = T1 & "001"
Else
Dim n As Integer = Cint(Right(dr("开piao单号"),3))+1
e.DataRow("开piao单号") = T1 & Format(n,"000")
End If
同样一段代码,为什么在有的表中可以,有的表中就不可以呢,还有就是有的时候可以,有的时候又不可以,总是出现上面的错误,导致自动编号没有自动产生.
把代码放在DataRowAdded中也是一样的错误.
注: ID为外部SQL数据表的关键字.
[此贴子已经被作者于2009-2-12 20:45:17编辑过]
加好友 
发短信
Post By：2009/2/12 20:45:00 [显示全部帖子]
