[求助]重新编号问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]重新编号问题

共有2394人关注过本帖树形打印复制链接主题：[求助]重新编号问题

方丈

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

加好友

发短信

等级：四尾狐帖子：811 积分：10934 威望：0 精华：1 注册：2008/9/2 18:58:00

[求助]重新编号问题 发帖心情

Post By：2016/5/18 9:55:00 [只看该作者]

请教代码：

表“图书原始数据”中有“图书序号”列和“总册数”列，怎样一键填充表“图书重编号数据”，要求新生成的表中“重新编号”=“图书序号”+ 三位流水号，每一种图书填充总行数为“总册数”的数量，流水号从001到总册数；
当“借书登记表”中某一“图书序号”有借书记录时，在“借书重编号记录”表中相应图书后面的“借书记录”列填入“1”，同一种序号图书第1人借出记录在001后面，第2人借出记录在002后面......

谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:图书数据管理.table

大红袍

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

加好友

发短信

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

Post By：2016/5/18 10:35:00 [只看该作者]

Dim dt1 As DataTable = DataTables("图书原始数据")
Dim dt2 As DataTable = DataTables("图书重编号数据")
dt2.DataRows.Clear
Dim cs1() As String = {"图书序号","总册数","书名","单价","作者","版别"}
Dim cs2() As String = {"图书序号","总册数","书名","单价","作者","版别"}
For Each dr1 As DataRow In dt1.Select("")
    For j As Integer = 1 To dr1("总册数")
        Dim dr2 = dt2.AddNew
        dr2("重新编号") = dr1("图书序号") & "-" & format(j, "000")
        For i As Integer = 0 To cs1.length-1
            dr2(cs2(i)) = dr1(cs1(i))
        Next
    Next
Next

方丈

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

加好友

发短信

等级：四尾狐帖子：811 积分：10934 威望：0 精华：1 注册：2008/9/2 18:58:00

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

以下是引用大红袍在2016/5/18 10:35:00的发言：
Dim dt1 As DataTable = DataTables("图书原始数据")
Dim dt2 As DataTable = DataTables("图书重编号数据")
dt2.DataRows.Clear
Dim cs1() As String = {"图书序号","总册数","书名","单价","作者","版别"}
Dim cs2() As String = {"图书序号","总册数","书名","单价","作者","版别"}
For Each dr1 As DataRow In dt1.Select("")
    For j As Integer = 1 To dr1("总册数")
        Dim dr2 = dt2.AddNew
        dr2("重新编号") = dr1("图书序号") & "-" & format(j, "000")
        For i As Integer = 0 To cs1.length-1
            dr2(cs2(i)) = dr1(cs1(i))
        Next
    Next
Next

谢谢，

当“借书登记表”中某一“图书序号”增加借书记录时，在“借书重编号记录”表中相应图书后面的“借书记录”列填入“1”，同一种序号图书第1人借出记录在001后面，第2人借出记录在002后面......怎么办？

大红袍

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

加好友

发短信

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

Post By：2016/5/18 11:37:00 [只看该作者]

datacolchanged事件

If e.DataCol.name = "图书序号" Then
    Dim fdr As DataRow = DataTables("图书重编号数据").find("图书序号 = '" & e.NewValue & "' and 借书记录 is null", "重新编号")
    If fdr Is Nothing Then
        msgbox("没有书了")
    Else
        fdr("借书记录") = 1
    End If
End If

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

主题：[求助]重新编号问题