Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:自动编号不知道为什么又出问题了!

1楼
woodiy 发表于:2009/2/12 20:45:00

图片点击可在新窗口打开查看此主题相关图片如下:未命名.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编辑过]
2楼
czy 发表于:2009/2/12 20:56:00
没看出有什么不妥。

图片提示是你输入的字符格式不符。
3楼
狐狸爸爸 发表于:2009/2/12 22:00:00
提示已经很清楚了:那些空格无法转换为整数。
学会调试代码,仔细分析。
最后可能是这一行:
Cint(Right(dr("开piao单号"),3))+1
共3 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.