Foxtable(狐表)用户栏目专家坐堂 → [求助]如何克隆上一行内容再自动递增列内容?


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

主题:[求助]如何克隆上一行内容再自动递增列内容?

帅哥哟,离线,有人找我吗?
旭日生
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:339 积分:3364 威望:0 精华:0 注册:2011/3/22 22:52:00
[求助]如何克隆上一行内容再自动递增列内容?  发帖心情 Post By:2018/2/3 7:20:00 [只看该作者]

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:test.foxdb


图片点击可在新窗口打开查看此主题相关图片如下:image 1.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/3 8:53:00 [只看该作者]

没看懂你的问题!通过什么条件找到“a”?把逻辑步骤详细说明一下

 回到顶部
帅哥哟,离线,有人找我吗?
旭日生
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:339 积分:3364 威望:0 精华:0 注册:2011/3/22 22:52:00
  发帖心情 Post By:2018/2/3 10:42:00 [只看该作者]

a就是列数据中具有相同特征的某一字符或组合。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/3 10:59:00 [只看该作者]

就一楼的例子和数据把逻辑操作步骤说明一下,原来是什么样子,希望得到什么结果?截图详细说明

 回到顶部
帅哥哟,离线,有人找我吗?
旭日生
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:339 积分:3364 威望:0 精华:0 注册:2011/3/22 22:52:00
  发帖心情 Post By:2018/2/3 13:25:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:image 2.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/3 14:28:00 [只看该作者]

For Each v As String In DataTables("表A").GetValues("第一列")
    Dim idx As Integer = Tables("表A").FindRow("第一列='" & v & "' and 第二列 like '%-1.jpg'")
    If idx  > 0 Then
        Dim r As Row = Tables("表A").Rows(Idx - 1)
        Tables("表A").Position = idx
        Dim nr As Row = Tables("表A").InsertNew()
        For Each c As Col In Tables("表A").Cols
            nr(c.Name) = r(c.Name)
        Next
        If r.IsNull("第二列") = False
            Dim i As Integer = val(r("第二列").split(".")(0))+1
            nr("第二列") = i & ".jpg"
        End If
    End If
Next

 回到顶部