Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有关自动编号的问题


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

主题：有关自动编号的问题
帅哥哟，离线，有人找我吗？
xvkewen
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：593 积分：5538 威望：0 精华：0 注册：2012/6/29 19:11:00 		有关自动编号的问题  发帖心情 Post By：2014/2/23 23:37:00 [显示全部帖子]

我想做一个自动编号功能，因为是在局域网中有多个人共同使用，所以为避免出现重复编号，所以我把自动编号功能的代码放到BeforesaveDatarow事件中了，只有在保存的时候才发放编号；但是我还想在保存前删除数据表中没用的空行；正因为此，所以才出现以下问题；怎么样才能做到保存数据时只能新增的有效数据行发放编号呢？为了让老师们能清楚的理解我想表达的意思，做了个小例子，请帮忙给看看；先拜谢了；

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:自动编号问题.table


这是例子中的数据表，当“内容”列有数据时，保存表时发放编号；

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140223232159.jpg
图片点击可在新窗口打开查看

当“内容”列为空时，保存时则自动删除该行；虽然要删除的行是删除了，但在这里出现了以下问题；这样的问题怎么解决？

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140223232221.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
xvkewen
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：593 积分：5538 威望：0 精华：0 注册：2012/6/29 19:11:00 		  发帖心情 Post By：2014/2/24 13:04:00 [显示全部帖子]

多谢楼上的解答，这样改单行的问题是解决了，但是如果表中有多个无效数据的空行的话，保存的时候仍然会报错的；求指导？


以下是引用lindong在2014-2-24 4:33:00的发言：

把表A beforsavedatarowg事件的代码改为如下：

 

If e.DataRow.IsNull("内容") = True Then
DataTables("表A").DeleteFor("内容 Is Null")
Else

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 & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号
        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

[此贴子已经被作者于2014-2-24 4:38:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
xvkewen
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：593 积分：5538 威望：0 精华：0 注册：2012/6/29 19:11:00 		  发帖心情 Post By：2014/2/24 19:12:00 [显示全部帖子]

以下是引用test138在2014-2-24 14:58:00的发言：

改成这样就可以了

 

为什么加了Else下面那个编号的代码怎么都不执行呢？ drs 也有Nothing的时候，为什么条件为否的时候下面的代码不执行了呢？ 


Dim drs As List (of DataRow)
drs = DataTables("表A").Select("[内容] Is null")
If drs IsNot Nothing Then
    Dim n As Integer = drs.count
  If n>0 Then
        For Each dr As DataRow In drs
            dr.Delete()
        Next
End If

Else

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 & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号
        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
 回到顶部
帅哥哟，离线，有人找我吗？
xvkewen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：593 积分：5538 威望：0 精华：0 注册：2012/6/29 19:11:00 		  发帖心情 Post By：2014/2/24 19:13:00 [显示全部帖子]

那个太复杂了，我还是想用我自己的这段代码，有什么办法可以解决这个难题吗？

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


加好友 发短信
等级：二尾狐 帖子：593 积分：5538 威望：0 精华：0 注册：2012/6/29 19:11:00 		  发帖心情 Post By：2014/2/24 19:15:00 [显示全部帖子]

为什么加了Else下面那个编号的代码怎么都不执行呢？ drs 也有Nothing的时候，为什么条件为否的时候下面的代码不执行了呢？ 



以下是引用test138在2014-2-24 14:58:00的发言：

改成这样就可以了

 

 

Dim drs As List (of DataRow)
drs = DataTables("表A").Select("[内容] Is null")
If drs IsNot Nothing Then
    Dim n As Integer = drs.count
  If n>0 Then
        For Each dr As DataRow In drs
            dr.Delete()
        Next
End If

Else

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 & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号
        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
 回到顶部
帅哥哟，离线，有人找我吗？
xvkewen
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：593 积分：5538 威望：0 精华：0 注册：2012/6/29 19:11:00 		  发帖心情 Post By：2014/2/25 18:43:00 [显示全部帖子]

搞 定了，谢谢了；

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


加好友 发短信
等级：二尾狐 帖子：593 积分：5538 威望：0 精华：0 注册：2012/6/29 19:11:00 		  发帖心情 Post By：2014/2/25 18:46:00 [显示全部帖子]

多谢，你的办法更好；

我对Beforesavedatarow的事件理解还不够，通过你们的办法，重新理解这个事件，它本身就是逐条执行的，删除符合条件的行不需要用循环的；
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 6 次数据查询