Foxtable(狐表) → 用户栏目 → 专家坐堂 → 后台连续编号


  共有9436人关注过本帖树形打印复制链接

主题：后台连续编号
帅哥哟，离线，有人找我吗？
blackzhu
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00 		后台连续编号  发帖心情 Post By：2011/9/19 12:06:00 [只看该作者]

If e.DataCol.Name = "时间" Then '如果更改的是身份证号码列
    If e.DataRow.IsNull("时间") Then '身份证号码是否为空
        e.DataRow("编号") = Nothing '如果为空,则清除出生日期
    Else
        Dim cmd As New SQLCommand
        Dim dt As DataTable
        cmd.C
        cmd.CommandText = "SELECT Max(编号) From {编号1} Where 时间 =#" & e.DataRow("时间") & "#"
        dt = cmd.ExecuteReader()
        If dt.Datarows.Count> 0 Then
            e.DataRow("编号") = Format(e.DataRow("时间"),"yyMMdd") & Format(e.DataTable.Compute("Count(时间)","时间= #" & e.DataRow("时间") & "# ") & "'"),"000")
        End If
    End If
End If

 

  后台已经有1 2 3三个连续编号,同一天,然后打开系统再次编号,编号还是从1开始,这个代码错在哪儿?
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/9/19 12:15:00 [只看该作者]

e.DataRow("编号") = Format(e.DataRow("时间"),"yyMMdd") & Format(e.DataTable.Compute("Count(时间)","时间= #" & e.DataRow("时间") & "# ") & "'"),"000")

 

应该改为：

 

e.DataRow("编号") = Format(e.DataRow("时间"),"yyMMdd") & Format(dt.Datarow(0)("编号1") + 1,"000")
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/9/19 14:21:00 [只看该作者]

这个不行,刚才我跟你谈过后将代码改成:

If e.DataCol.Name = "时间" Then '如果更改的是身份证号码列
    If e.DataRow.IsNull("时间") Then '身份证号码是否为空
        e.DataRow("编号") = Nothing '如果为空,则清除出生日期
    Else
        Dim cmd As New SQLCommand
        Dim dt As DataTable
        cmd.C
        cmd.CommandText = "SELECT * From {编号1} Where 时间 = #" & e.DataRow("时间") & "#"
        dt = cmd.ExecuteReader()
        If dt.Datarows.Count> 0 Then
            e.DataRow("编号") = Format(dt.DataRows(0)("编号") + 1,"000")
        Else
            e.DataRow("编号") = Format(e.DataRow("时间"),"yyMMdd") & "001"
        End If
    End If
End If

但是不管是保存还是不保存,后台三个编号  001  002  003  新增行做来做去都是002?不知为什么?
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/9/19 14:24:00 [只看该作者]

换个浏览器貌似可以啊.

 回到顶部
客人(121.235.*.*)
 小大  5楼


  发帖心情 Post By：2011/9/19 15:08:00 [只看该作者]

怎么不回复了?

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/9/19 15:15:00 [只看该作者]

搞定了: 按照老大做发,始终是第一行+1而已.


If e.DataCol.Name = "时间" Then '如果更改的是身份证号码列

    If e.DataRow.IsNull("时间") Then '身份证号码是否为空

        e.DataRow("编号") = Nothing '如果为空,则清除出生日期

    Else

        Dim cmd As New SQLCommand

        Dim dt As DataTable

        cmd.C

        cmd.CommandText = "SELECT * From {编号1} Where 时间 = #" & e.NewValue & "#"

        dt = cmd.ExecuteReader()

        If dt.Datarows.Count> 0 Then

            e.DataRow("编号") = Format(dt.Compute("Max(编号)") + 1,"000")

        Else

            e.DataRow("编号") = Format(e.DataRow("时间"),"yyMMdd") & "001"

        End If

    End If

End If
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/9/19 15:27:00 [只看该作者]

换什么浏览器了？

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/9/20 11:20:00 [只看该作者]

谷歌

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询