主题：提高写入内部数据源表的速度

用for循环，三层，I、J、K循环，通过计算算出一些数据，然后插入到内部数据源的数据表中。
现在是不断往里写，速度非常慢。
还有没其它的方式，insert into貌似只能用于外部数据源。我想用内部的就够了吧。多的话，10万条数据以上，内部数据源能接受吗？再就是速度怎么能提高？

怎么能提高效率


 Tables("浓度分布").AddNew()
        Tables("浓度分布").Current("CM") = CC4   

        CC4 = CC4 / m * (101300 * 22.4 * (T + 273.15)/ p / 273.15)

        Tables("浓度分布").Current("大气稳定度") = rate
        Tables("浓度分布").Current("X") = II
        Tables("浓度分布").Current("y") = KK
        'Tables("浓度分布").Current("J") = JJJ
        'Tables("浓度分布").Current("K") = KKK
        'Tables("浓度分布").Current("L") = LLL

        Tables("浓度分布").Current("Z") = JJ
        'Tables("浓度分布").Current("a1") = aa1
        'Tables("浓度分布").Current("b1") = bb1
        'Tables("浓度分布").Current("a2") = aa2
        'Tables("浓度分布").Current("b2") = bb2
        Tables("浓度分布").Current("gx") = ggx4
        Tables("浓度分布").Current("gy") = ggy5
        Tables("浓度分布").Current("gz") = ggz1
        Tables("浓度分布").Current("CV") = CC4

用于向表中添加行。
本语句不能用于内部数据表，只能向外部数据表添加行。

语法

Insert Into 表名 (列名1, 列名2, 列名3....) Values(值1, 值2, 值3...)

例如：

Insert Into 订单 (编号,产品) Values(100,'PD01')

表示向订单表插入一行，编号列的内容设为100，产品列的内容为PD01