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


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

主题:批量复制列到表b

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


加好友 发短信
等级:九尾狐 帖子:2604 积分:17226 威望: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


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


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


加好友 发短信
等级:九尾狐 帖子:2604 积分:17226 威望: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


加好友 发短信
等级:超级版主 帖子:53299 积分:270162 威望:0 精华:8 注册: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


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

谢谢老师,为什么报错显示不存在呢?

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


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


加好友 发短信
等级:超级版主 帖子:53299 积分:270162 威望:0 精华:8 注册: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


加好友 发短信
等级:九尾狐 帖子:2604 积分:17226 威望: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


加好友 发短信
等级:超级版主 帖子:53299 积分:270162 威望:0 精华:8 注册: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


加好友 发短信
等级:九尾狐 帖子:2604 积分:17226 威望: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


加好友 发短信
等级:超级版主 帖子:53299 积分:270162 威望:0 精华:8 注册: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 下一页