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


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

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


加好友 发短信
等级：二尾狐 帖子：591 积分：5517 威望：0 精华：0 注册：2012/6/29 19:11:00 		有关自动编号的问题  发帖心情 Post By：2014/2/23 23:37:00 [只看该作者]

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

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


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

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

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

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


加好友 发短信
等级：幼狐 帖子：178 积分：1228 威望：0 精华：0 注册：2014/1/23 0:48:00 		  发帖心情 Post By：2014/2/24 0:49:00 [只看该作者]

正好我也有个类似的编号问题，困扰着我。好类似哦。也希望得到指导。前面是编号，编号有几个相同的，然后想给相同编号的数据行添加子编号。


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140224004606.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-2-24 0:51:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lindong
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：458 积分：3962 威望：0 精华：0 注册：2013/12/9 0:52:00 		  发帖心情 Post By：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：591 积分：5517 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/2/24 14:07:00 [只看该作者]


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


加好友 发短信
等级：幼狐 帖子：110 积分：7215 威望：0 精华：0 注册：2013/5/9 11:19:00 		  发帖心情 Post By：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
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：591 积分：5517 威望：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
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：591 积分：5517 威望：0 精华：0 注册：2012/6/29 19:11:00 		  发帖心情 Post By：2014/2/24 19:13:00 [只看该作者]

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

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


加好友 发短信
等级：二尾狐 帖子：591 积分：5517 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/2/24 19:43:00 [只看该作者]

解决了：

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:自动编号问题.table
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询