| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 自动编号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90430) |
| -- 作者：280184850 -- 发布时间：2016/9/12 16:17:00 -- 自动编号 If e.DataCol.Name = "送修日期" Then If e.DataRow.IsNull("送修日期") Then e.DataRow("维修业务编号") = Nothing Else Dim bh As String = Format(e.DataRow("送修日期"),"yyyyMMdd") \'取得编号的8位前缀 If e.DataRow("维修业务编号").StartsWith(bh) = False \'如果编号的前8位不符 Dim max As String Dim idx As Integer max = e.DataTable.Compute("Max(维修业务编号)","送修日期 = #" & e.DataRow("送修日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大编号 If max > "" Then \'如果存在最大编号 idx = CInt(max.Substring(bh.Length+1,2)) + 1 \'获得最大编号的后三位顺序号,并加1 Else idx = 1 \'否则顺序号等于1 End If e.DataRow("维修业务编号") = bh & "-" & Format(idx,"000") End If End If .NET Framework 版本：2.0.50727.5485 Foxtable 版本：2016.7.29.1 错误所在事件：表，维修接待，DataColChanged 详细错误信息： 调用的目标发生了异常。 未找到类型“Integer”的公共成员“StartsWith”。 |
| -- 作者：280184850 -- 发布时间：2016/9/12 16:20:00 -- 老师们，帮我看看吧 |
| -- 作者：有点蓝 -- 发布时间：2016/9/12 16:20:00 -- "维修业务编号"是整型列吧，改为字符列 [此贴子已经被作者于2016/9/12 16:20:24编辑过]
|
| -- 作者：280184850 -- 发布时间：2016/9/12 16:21:00 -- 是整数列 |
| -- 作者：280184850 -- 发布时间：2016/9/12 16:28:00 -- 自动编号怎么是重复的 |
| -- 作者：280184850 -- 发布时间：2016/9/12 16:30:00 -- 解决了 谢谢老师们 |
| -- 作者：有点蓝 -- 发布时间：2016/9/12 16:32:00 -- idx = CInt(max.Substring(bh.Length+1)) + 1 \'获得最大编号的后三位顺序号,并加1 |