Foxtable(狐表)用户栏目专家坐堂 → [求助]如何自动复制行内容到新表中?


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

主题:[求助]如何自动复制行内容到新表中?

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


加好友 发短信
等级:五尾狐 帖子:1116 积分:8608 威望:0 精华:0 注册:2012/7/10 9:09:00
[求助]如何自动复制行内容到新表中?  发帖心情 Post By:2020/9/4 8:15:00 [只看该作者]

如下边软件:在“数据模板”表中的datacolchanged中设置了自动复制行的代码,当“选择”列中选中后,会自动将内容复制到新表中,现在“党组1A”窗口中,设置一个按钮(增加本月数据),点击这个按钮,就会自动把“数据模板”表中的数据自动复制到“数据表”中,如何设置按钮的代码,请指导,谢谢
附:软件
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:信阳市退役军人事务局四清单一报告系统.zip


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


加好友 发短信
等级:一尾狐 帖子:463 积分:3349 威望:0 精华:0 注册:2016/12/21 22:58:00
  发帖心情 Post By:2020/9/4 9:09:00 [只看该作者]

添加本月数据按钮里面,代码如下,仅作参考:

'Forms("党组1A").open()
MainTable = Tables("数据表")

Dim Result As DialogResult
Result = MessageBox.Show("是否确添加数据?" & vbCrLf & "注意复制的是模板中筛选过滤结果", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then
    
    Dim f As New Filler
    f.SourceTable = DataTables("数据模板")
    f.SourceCols = "序号,党组织主体责任A_主要内容,党组织主体责任A_要求,党组织主体责任B_主要内容,三重一大_类型,三重一大_要求,个人主体责任A_主要内容,个人主体责任A_要求,个人主体责任B_主要内容,个人主体责任B_要求,个人工作部署A_工作类型,个人工作部署B_工作类型" '指定数据来源列
    f.DataTable = DataTables("数据表") '指定数据接收表
    f.DataCols = "序号,党组织主体责任A_主要内容,党组织主体责任A_要求,党组织主体责任B_主要内容,三重一大_类型,三重一大_要求,个人主体责任A_主要内容,个人主体责任A_要求,个人主体责任B_主要内容,个人主体责任B_要求,个人工作部署A_工作类型,个人工作部署B_工作类型" '指定数据接收列
f.filter = Tables("数据表").filter    '按筛选结果复制
f.Fill() '填充数据
    Tables("数据表").DataTable.Save
    
    Dim Filter As String
    'With e.Form.Controls("ComboBox1") '增加 筛选条件
        'If .Value IsNot Nothing Then
            'Filter = Filter & "[列名] like '%" & .Value & "%'"
        'End If
    'End With
    '
    'With e.Form.Controls("ComboBox3")  ''增加 筛选条件
        'If .Value IsNot Nothing Then
            'If Filter >"" Then
                'Filter = Filter & " And "
            'End If
            'Filter = Filter & "列名 = '" & .Value & "'"
        'End If
    'End With
    
    
    
    If Filter > "" Then
        
        Tables("数据表").Filter = Filter
        Tables("数据表").Sort = "序号,月份"
        
    End If

    
Else
    '否,则执行
    Return
    
End If

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


加好友 发短信
等级:五尾狐 帖子:1116 积分:8608 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2020/9/6 7:52:00 [只看该作者]

谢谢,非常好用,但又出现一个问题,如下软件:封面中有四个按钮(党组、支部、班子成员处级干部、科级干部),想作的是当点开“党组按钮”,点击“增加本月数据”时,只在党组窗口的表中加载数据,而“支部、班子成员处级干部、科级干部中不加载数据”,依次类推,当点开“支部”按钮时,点击“增加本月数据”时,只在支部窗口的表中加载数据,而“党组、班子成员处级干部、科级干部中不加载数据”,如何才能做到,现在是当在党组窗口中,加载数据时,其他几个窗口也加载了,不便于独立在各表中编辑数据。谢谢
软件上传:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:信阳市退役军人事务局四清单一报告系统.zip


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


加好友 发短信
等级:一尾狐 帖子:463 积分:3349 威望:0 精华:0 注册:2016/12/21 22:58:00
  发帖心情 Post By:2020/9/6 18:39:00 [只看该作者]

我看得不是很明白,


对于希望想要实现显示自己的数据,可以用很多方法来实现,将帮助文件再理一理。


1.用视图,可以显示自己想要的列:


Tables("订单").OpenView("视图一")

或者窗口的table控件属性里面,你都会设置显示列了。


2.用按条件加载或FILTER,你自己窗口都写了:

Tables("数据表").Filter = "",

在窗口启动后,按条件加载数据(看帮助文件),

或者过滤条件改为你自己要的,如 [党组织]= ,主要考虑组织名称固定否,


不然得改造封面,

如封面一个窗口(直接1个组合框,加一个跳转窗口按钮)

再加一个数据表独立或模式窗口或norml或sqltable都可以,

概括就是用2个窗口,就直接实现你里面5个窗口的功能了,没必要搞5个,在窗口加载后,对相应控件进行显示或权限控制,就可以实现一个窗口实现,多个功能一致的窗口。当然,具体要求具体分析。



 回到顶部