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

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

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

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

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