关于导入合并数据时碰到的自动生成编号的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于导入合并数据时碰到的自动生成编号的问题

共有2797人关注过本帖树形打印复制链接主题：关于导入合并数据时碰到的自动生成编号的问题

新航程小何

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00

关于导入合并数据时碰到的自动生成编号的问题 发帖心情

Post By：2015/5/26 18:24:00 [只看该作者]

此主题相关图片如下：qq截图20150526181619.png

各位老师，我现在遇到的问题是，如截图，请问老师我该怎么改（如果带入的是只有一行数据，代码是合适的，但如果超过两行就出现截图问题）

我的代码如下：

1、导入按钮（代码是导入合并的代码）

2、datacolchangged 代码，生成编号

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位月.

Dim max As String

Dim idx As Integer

max = e.DataTable.sqlCompute("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")

e.DataRow.save

End If

3、在窗口的mouseenter中写入代码：重置列代码

DataTables("临时工表").DataCols("时间").RaiseDataColChanged()

[此贴子已经被作者于2015/5/26 18:23:51编辑过]

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/26 19:21:00 [只看该作者]

代码没有问题，做个例子发上来测试。

新航程小何

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00

又出现新问题 发帖心情

Post By：2015/5/26 20:55:00 [只看该作者]

bin 老师，我做了个例子，但是我经过测试，没有之前的问题了，但是，编号总是在增大，连之前的导入的也一并在累加

下载信息 [文件大小：下载次数： ]
点击浏览该文件:导入编号问题.zip

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/26 21:01: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 Then
            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")
         e.DataRow.save
        End If
    End If
End If

新航程小何

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00

Post By：2015/5/27 8:33: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 Then

Dim max As String

Dim idx As Integer

max = e.DataTable.sqlCompute("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")

e.DataRow.save

End If

Bin

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/27 8:36:00 [只看该作者]

学会举一反三

你弹出max看看 messagebox.show(max) 看看是怎么样的. 就知道为什么取 7,3位出错了.

新航程小何

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00

Post By：2015/5/27 8:49:00 [只看该作者]

这个，真心不懂，我想生成是三位顺序号，前几行数据我是在foxtable里直接做的，结果是201501-001，但是我导入数据时，就出现了一楼错误，bin老师，您能不能说详细些

Bin

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/27 8:50: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 Then

Dim max As String

Dim idx As Integer

max = e.DataTable.sqlCompute("Max(编号)","时间 >= '" & fd & "' And 时间 <= '" & ld & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号

messagebox.show(max)

If max > "" Then '如果存在最大编号

idx = CInt(max.Substring(7,3)) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

e.DataRow("编号") = bh & "-" & Format(idx,"000")

e.DataRow.save

End If

新航程小何

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00

Post By：2015/5/27 8:54:00 [只看该作者]

这个我调试了，弹出的是201501-01，关键问题是，我直接表上修改日期时候，弹出是201501-001，我就不明白了

Bin

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/27 8:55:00 [只看该作者]

检查你是否有其他代码. 或者是否表里本身有 201501-01 这一行数据. (数据库里面) 因为你用的是sqlCompute

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：关于导入合并数据时碰到的自动生成编号的问题