以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动编号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19572)

--  作者:bm
--  发布时间:2012/5/14 23:08: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


--  作者:狐狸爸爸
--  发布时间:2012/5/14 23:13:00
--  

如果不加载或者只是加载部分数据,参考:

 

http://www.foxtable.com/help/topics/1994.htm

 


--  作者:bm
--  发布时间:2012/5/14 23:19:00
--  谢谢狐狸爸爸。

图片点击可在新窗口打开查看我再好好研究研究