以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助：如何将表A中的产品1到产品8列下的八个产品，自动赋值到表2中的产品名下，并自动增加八行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52876)
--  作者：李孝春
--  发布时间：2014/6/24 22:34:00
--  求助：如何将表A中的产品1到产品8列下的八个产品，自动赋值到表2中的产品名下，并自动增加八行
求助：如何将表A中的产品1到产品8列下的八个产品，自动赋值到表2中的产品名下，并自动增加八行


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

图片点击可在新窗口打开查看此主题相关图片如下：2211.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:创业计划书 - 副本.table
--  作者：有点甜
--  发布时间：2014/6/24 22:39:00
--  

 呃，你明明就是用的外部数据库。

 

 代码大致这样

 

For Each c As Col In Tables("表A").Cols
    If c.Name.StartsWith("价格产品") Then
        Dim nr As Row = Tables("表B").AddNew
        nr("第一列") = Tables("表A").Current(c.Name)
    End If
Next
--  作者：李孝春
--  发布时间：2014/6/24 22:45:00
--  回复：（有点甜） 呃，你明明就是用的外部数据库...
有点甜老师 不好意思 整晕乎了 忘记了内部数据版本和外部数据版本 这个确实是外部数据源
数据源：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:计划书.zip
--  作者：有点甜
--  发布时间：2014/6/24 22:51:00
--  
For Each c As Col In Tables("企业概况").Cols
    If c.Name Like "价格产品*_名称" Then
        Dim nr As Row = Tables("销售收入预测表").AddNew
        nr("产品或服务") = Tables("企业概况").Current(c.Name)
    End If
Next
--  作者：李孝春
--  发布时间：2014/6/24 22:53:00
--  回复：（李孝春）回复：（有点甜） 呃，你明明就...
For Each c As Col In Tables("企业概况").Cols
    If c.Name.StartsWith("价格产品") Then
        Dim nr As Row = Tables("企业概况.销售收入预测表").AddNew
        nr("产品或服务") = Tables("企业概况").Current(c.Name)
    End If
Next
运行如上代码 效果如下：

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

将企业概况这个表中所有产品或服务字样的都弄进来了，我只想要下面的，求修正代码

图片点击可在新窗口打开查看此主题相关图片如下：2233.jpg
图片点击可在新窗口打开查看
--  作者：李孝春
--  发布时间：2014/6/24 23:06:00
--  回复：（有点甜）For Each c As Col In Tables("企业概...
有点甜老师  改用代码 运行没有效果咯 不做任何操作

在命令窗口中又能一个一个的显示出来  在按钮事件就不行了 
[此贴子已经被作者于2014-6-24 23:15:39编辑过]
--  作者：有点甜
--  发布时间：2014/6/24 23:20:00
--  

 呃，用这里的代码，应该是可以的

 

For Each c As Col In Tables("企业概况").Cols
    If c.Name Like "价格产品*_名称" Then
        Dim nr As Row = Tables("销售收入预测表").AddNew
        nr("产品或服务") = Tables("企业概况").Current(c.Name)
    End If
Next
--  作者：李孝春
--  发布时间：2014/6/24 23:31:00
--  回复：（有点甜） 呃，用这里的代码，应该是可以...
有点甜老师 代码没有错 我刚才忽略了关联表 现在问题圆满解决  谢谢哦
--  作者：李孝春
--  发布时间：2014/7/2 2:05:00
--  回复：（有点甜） 呃，用这里的代码，应该是可以...
有点甜老师 有没有办法只导入不为空的数据呢？常规下不一定都有八个名称数据 有时候只有一个 想只导入不为空的数据
--  作者：有点甜
--  发布时间：2014/7/2 9:24:00
--  
以下是引用李孝春在2014-7-2 2:05:00的发言：
有点甜老师 有没有办法只导入不为空的数据呢？常规下不一定都有八个名称数据 有时候只有一个 想只导入不为空的数据

 

For Each c As Col In Tables("企业概况").Cols
    If c.Name Like "价格产品*_名称" AndAlso Tables("企业概况").Current.IsNull(c.Name) = False Then
        Dim nr As Row = Tables("销售收入预测表").AddNew
        nr("产品或服务") = Tables("企业概况").Current(c.Name)
    End If
Next