| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]自动编号生成 代码出现运行错误怎么解决 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42295) |
| -- 作者：jlg19881228 -- 发布时间：2013/11/7 20:56:00 -- [求助]自动编号生成 代码出现运行错误怎么解决 If e.DataCol.Name = "日期" Then If e.DataRow.IsNull("日期") Then e.DataRow("编号") = Nothing Else Dim d As Date = e.DataRow("日期") Dim y As Integer = d.Year Dim m As Integer = d.Month Dim Days As Integer = Date.DaysInMonth(y,m) Dim fd As Date = New Date(y,m,1) \'获得该月的第一天 Dim ld As Date = New Date(y,m,Days) \'获得该月的最后一天 Dim bh As String = Format(d,"yyyyMM") \'生成编号的前6位,4位年,2位月. If e.DataRow("编号").StartsWith(bh) = False \'如果编号的前6位不符 Dim max As String Dim idx As Integer max = e.DataTable.Compute("Max(编号)","日期 >= #" & fd & "# And 日期 <= #" & ld & "#") \'取得该月的最大编号 If max > "" Then \'如果存在最大编号 idx = CInt(max.Substring(7,3)) + 1 \'获得最大编号的后三位顺序号,并加1 Else idx = 1 \'否则顺序号等于1 End If e.DataRow("编号") = bh & "-" & Format(idx,"000") End If End If End If 运行错误提示 调用的目标发生了异常
[此贴子已经被作者于2013-11-7 20:57:37编辑过]
|
| -- 作者：有点甜 -- 发布时间：2013/11/7 21:29:00 -- 大部分是应为这句代码错了 idx = CInt(max.Substring(7,3)) + 1 \'获得最大编号的后三位顺序号,并加1 ，它的意思是截取编号第7位到第9位的字符，你看看你的编码调整一下。
|
| -- 作者：jlg19881228 -- 发布时间：2013/11/8 0:01:00 -- .NET Framework 版本：2.0.50727.5472 Foxtable 版本：2013.10.14.1 错误所在事件：表，哈哈的，DataColChanged 详细错误信息： 调用的目标发生了异常。 该字符串未被识别为有效的 DateTime。有一个从索引 9 处开始的未知字 这是错误信息
|
| -- 作者：狐狸爸爸 -- 发布时间：2013/11/8 8:26:00 -- 问题应该出在这里： max = e.DataTable.Compute("Max(编号)","日期 >= #" & fd & "# And 日期 <= #" & ld & "#") \'取得该月的最大编号
最好做个简单的例子发上来给大家调试分析，纸上谈兵，脱离具体数据和示例，一切都是白谈。 |
| -- 作者：Bin -- 发布时间：2013/11/8 8:31:00 -- 你利用messagebox.show(date.today) 在命令窗口执行以下看看,看看是否你系统日期格式是带有星期几的. 是的话,改回来就可以了. |
| -- 作者：jlg19881228 -- 发布时间：2013/11/8 17:16:00 -- 回复：（jlg19881228）[求助]自动编号生成 代码出现运... 是系统日期格式这个问题，谢谢 |