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


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

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

帅哥哟,离线,有人找我吗?
方丈
  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

 


 回到顶部