主题：问个关于填充数据的问题

以下是引用狐狸爸爸在2012-10-22 16:36:00的发言：

一点不难，其实你可以看看：
 
不写代码的：
http://www.foxtable.com/help/topics/2322.htm

 
写代码的：
http://www.foxtable.com/help/topics/2314.htm

 

 

狐爸，我知道可以用SQL查询的方法，但是SQL查询表出来的是动态数据啊，我要的是填充好做我的固定数据来源的，如果表里的信息有几十万条的话，我全部动态加载，当用户多同时调用的话，服务器会受不了啊

这个表在我的系统里用的地方非常多，所有的单据都要要用这个做为选值的表啊

 

 

以下是引用狐狸爸爸在2012-10-22 16:38:00的发言：
搞不定，你就将这三个表设计好，输入几行数据，然后传上来，我们帮你做个例子。

以下是引用狐狸爸爸在2012-10-22 16:38:00的发言：
搞不定，你就将这三个表设计好，输入几行数据，然后传上来，我们帮你做个例子。

以下是引用muhua在2012-10-22 16:44:00的发言：
那就做个固定表，在有数据更改的时候把表清除，然后把生成的查询表里的数据复制一次。

以下是引用muhua在2012-10-22 16:44:00的发言：
那就做个固定表，在有数据更改的时候把表清除，然后把生成的查询表里的数据复制一次。

以下是引用lin_hailun在2012-10-22 17:19:00的发言：
 代码如下，测试有效。

For Each dr1 As DataRow In DataTables("品名规格").DataRows
    Dim drs1 As List(Of DataRow) = dr1.GetChildRows("品牌明细")
    For Each dr2 As DataRow In drs1
        Dim drs2 As List(Of DataRow) = dr2.GetChildRows("供应商明细")
        For Each dr3 As DataRow In drs2
            Dim dr As DataRow = DataTables("物料总表").AddNew()
            dr("品名") = dr1("品名")
            dr("规格") = dr1("规格")
            dr("品牌") = dr2("品牌")
            dr("料号") = dr2("料号")
            dr("MOQ") = dr2("MOQ")
            dr("当前库存") = dr2("当前库存")
            dr("均价") = dr2("均价")
            dr("品名") = dr3("单价")
            dr("供应商") = dr3("供应商")
        Next
    Next
Next

其他的OK了，只是品名跑到单价栏上去了，俺研究一下，太感谢了！等下就买开发版，加入弧圈！原来是    dr("品名") = dr3("单价")呵呵