Foxtable(狐表)用户栏目专家坐堂 → [求助] 表中的记录进行拆分和合并


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

主题:[求助] 表中的记录进行拆分和合并

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/18 23:04:00 [显示全部帖子]

拆分,参考代码

 

Dim t As Table = Tables("表A")
Dim i As Integer = 2
If InputValue(i, "提示", "描述") Then
    Dim r = t.Current
    Dim n = r("数量") / i
    For j As Integer = 1 To i
        Dim nr = t.AddNew
        nr("产品") = r("产品")
        nr("数量") = n
        nr("单位") = r("单位")
    Next
    r.delete
End If

 

合并,参考代码

 

Dim t As Table = Tables("表A")
Dim cr = t.Rows(t.TopPosition)
For i As Integer = t.BottomPosition To t.TopPosition+1 Step -1
    cr("数量") += val(t.Rows(i)("数量"))
    t.Rows(i).delete
Next


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/20 9:15:00 [显示全部帖子]

以下是引用leoli在2018/11/19 23:28:00的发言:

老师,那个隔开不合适,用光标隔开点选吗?

 

只能用这种方法勾选

 

http://www.foxtable.com/webhelp/scr/1776.htm

 

如果你要复杂的,参考这里

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127220&skin=0

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/20 18:56:00 [显示全部帖子]

改成


Dim t As Table = Tables("表A")
Dim cr = t.current
Dim ls As new List(Of Integer)
For Each p As String In ps
    Dim i = p.split(",")(0)
    If ls.contains(i) = False Then
        ls.add(i)
        If cr("产品") = t.Rows(i)("产品") AndAlso cr("单位") = t.Rows(i)("单位")
            cr("数量") += val(t.Rows(i)("数量"))
        Else
            cr = t.Rows(i)
        End If
    End If
Next
ls.Sort
For i As Integer = ls.count-1 To 0 Step -1
t.Rows(ls(i)).Delete
Next


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/21 9:17:00 [显示全部帖子]

以下是引用leoli在2018/11/20 19:32:00的发言:

老师,这个不对,一并全部没有了。

 

 

具体实例发上来测试。


 回到顶部