- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于流水号 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76495)
-- 发布时间：2015/10/30 11:49:00
-- 关于流水号
设置每次录入新数据时，序号自动流水，代码怎么写？
比如：按年月日+编号：15103001，15103002....明天记录的显示：15103101,15103102
-- 发布时间：2015/10/30 11:57:00
--
参考
http://www.foxtable.com/help/topics/2403.htm
-- 发布时间：2015/10/30 16:01:00
-- 流水号
代码出现了下面这个对话框（在窗口Afterload写的）
此主题相关图片如下：22cyk6@z9rj1r{mumbky.png
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(9,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("提案序号") = bh & "-" & Format(idx,"000")
End If
End If
End If
-- 发布时间：2015/10/30 16:13:00
--
代码是在DataColChanged表事件中，不是窗口的AfterLoad事件，帮助讲得很清楚啊。
这种基本的都不懂的话，建议先不要开发，先看帮助学习。
如果看帮助有困难，可以看一下这个视频教程：
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187
-- 发布时间：2015/10/30 16:22:00
-- 流水号
那请问下，下面这个要怎么改比较合适？（就是如果要在窗口里面编辑的话）
Dim dt1 As Date = e.Form.Controls("DateTimePicker1").Value
Dim xh As String = e.Form.Controls("TextBox1").value
If dt1 <> Nothing Then
xh = Format(dt1,"yyyyMMdd")
If xh.StartsWith(xh) = False
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(提案序号)","日期 = #" & dt1 & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(9,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
xh = xh & "-" & Format(idx,"000")
End If
End If
[此贴子已经被作者于2015/10/30 16:27:47编辑过]
-- 发布时间：2015/10/30 18:45:00
--
不管是窗口编辑，还是表编辑，数据都是存入表中，都是在表事件写代码：
http://www.foxtable.com/help/topics/2403.htm