Foxtable(狐表) → 用户栏目 → 专家坐堂 → 批量复制列到表b


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

主题：批量复制列到表b
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		批量复制列到表b  发帖心情 Post By：2020/6/3 10:19:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20200603101946.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:复制列到表b.table


老师，能点击按钮后，把窗口表1筛选后显示出的行，新建到表B吗？然后控件（采购和合同号）排量输入表b状态列和合同号列，感谢 感谢。

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


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


 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/6/3 22:32:00 [只看该作者]

、
老师，能在帮忙看看这个吗？复制的是相同的行，不是不显示出来的行复制处理，感谢 感谢 


For Each r As Row In Tables("窗口1_Table1").GetCheckedRows
    Tables("窗口1_Table1").Filter = r.Checked = True
Next ’筛选出选中的行


For Each dr1 As DataRow In DataTables("表A").Select("")
For Each dr1 As DataRow In Tables("窗口1_Table1").Select("") ’可以是窗口控件的表格吗？

    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For Each dc As DataCol In DataTables("表A").DataCols
        'dr2(dc.Name) = dr1(dc.name)
        dr2("型号")=Tables("窗口1_Table1").Current("第一列")
        dr2("采购价格")=Tables("窗口1_Table1").Current("单价")
        dr2("状态")=e.form.controls("ComboBox1").text
        dr2("合同号")=e.form.controls("TextBox2").text
    Next
Next



图片点击可在新窗口打开查看此主题相关图片如下：qq截图20200603223017.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/6/3 23:04:16编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/4 9:00:00 [只看该作者]

For Each dr1 As DataRow In dataTables("窗口1_Table1").datarows ’可以是窗口控件的表格吗？
    Dim dr2 As DataRow = DataTables("表B").AddNew()
        'dr2(dc.Name) = dr1(dc.name)
        dr2("型号")=dr1("第一列")
        dr2("采购价格")=dr1("单价")
        dr2("状态")=e.form.controls("ComboBox1").text
        dr2("合同号")=e.form.controls("TextBox2").text
Next
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/6/4 21:50:00 [只看该作者]

谢谢老师，为什么报错显示不存在呢？

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20200604214912.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/4 22:05:00 [只看该作者]

For Each dr1 As Row In Tables("窗口1_Table1").rows

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/6/4 22:20:00 [只看该作者]

谢谢老师，可以了 感谢 感谢 ，这个筛选被选中的行是那里不对呀，没有反应呢，感谢 
For Each r As Row In Tables("窗口1_Table1").GetCheckedRows
    Tables("窗口1_Table1").Filter = r.Checked = True
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/4 22:41:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=144412&replyID=44997&skin=1

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/6/6 21:24:00 [只看该作者]

老师，能帮忙你看看这个吗？就筛选选中序号的行后，还是被勾选的状态，实在是不知道如何改， 感谢 感谢 

Dim t As Table = e.Form.Controls("Table1").Table
For Each r As Row In t.GetCheckedRows
    If lst.contains(r("_Identify")) = False
        lst.Add(r("_Identify"))
    End If
Next

t.ApplyFilter = not t.ApplyFilter

For Each r As Row In t.Rows
    If lst.Contains(r("_Identify")) Then
        r.Checked  = True
    End If
Next



Dim s As String = ""
For Each r As Row In Tables("窗口1_Table1").GetCheckedRows
    s =s & "," & r("_Identify")
Next
s = s.Trim(",")
Tables("窗口1_Table1").Filter = "[_Identify] in (" & s & ")"
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/7 20:43:00 [只看该作者]

Dim t As Table = e.Form.Controls("Table1").Table
For Each r As Row In t.GetCheckedRows
    If lst.contains(r("_Identify")) = False
        lst.Add(r("_Identify"))
    End If
Next
Dim s As String = ""
For Each r As Row In Tables("窗口1_Table1").GetCheckedRows
    s =s & "," & r("_Identify")
Next
s = s.Trim(",")
t.Filter = "[_Identify] in (" & s & ")"

For Each r As Row In t.Rows
    If lst.Contains(r("_Identify")) Then
        r.Checked  = True
    End If
Next
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 5 次数据查询