Rss & SiteMap

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

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

标题:自动编号为什么出错呢?

1楼
woodiy 发表于:2009/2/6 13:13:00

图片点击可在新窗口打开查看此主题相关图片如下:未标题-2.jpg
图片点击可在新窗口打开查看

调坯单号的代码如下:

'''
Dim T1,T2 As String
T1 = "DP" & Format(Date.today,"yyMM")
T2 = "[调坯单号] like '" & T1 & "*'and "
T2 = T2 & "[ID] < " & e.DataRow("ID")
Dim dr As DataRow = e.DataTable.Find(T2,"ID DESC")

e.DataRow("调坯日期") = Date.today
If dr is Nothing then
   e.DataRow("调坯单号") = T1 & "001"
Else
   Dim n As Integer = Cint(Right(dr("调坯单号"),3))+1
   e.DataRow("调坯单号") = T1 & Format(n,"000")
End If


为什么会出错啊!其它地方都是可以的.

2楼
lxl 发表于:2009/2/6 13:47:00

把这段代码放到DataRowAdded里面试试
触发DataRowAdding事件时,ID列还是空值,没办法引用 
还不行发文件

3楼
woodiy 发表于:2009/2/6 14:00:00

还是出现同样的错误!

4楼
lxl 发表于:2009/2/6 14:06:00
我复制的你一楼的代码,一点没改。但是没报错
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目16.table

5楼
woodiy 发表于:2009/2/6 16:02:00
为什么我这里不行呢,真是晕啊!

换个办法,有没有办法产生如下的编号:

合同号                 调坯单号
GH0812266             GH-0812266001
GH0812266             GH-0812266002

GH0812267            GH-0812267001
GH0812267            GH-0812267002
GH0812267            GH-0812267003

......
6楼
狐狸爸爸 发表于:2009/2/6 16:08:00
呵呵,你在命令窗口执行下面的代码,会发现一模一样的错误提示:

return cint(" ")

对于:
Cint(Right(dr("调坯单号"),3))+1

如果调坯单号列没有内容,就会出错,你应该在编码的时候进行判断,必要的列已经有内容后,才执行相关的动作。
7楼
woodiy 发表于:2009/2/6 16:29:00
是的,但是不知道未什么调坯单号列没有自动产生啊!呀
共7 条记录, 每页显示 10 条, 页签: [1]

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

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 3 queries.