主题：求助：如何将表A中的产品1到产品8列下的八个产品，自动赋值到表2中的产品名下，并自动增加八行

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

 代码大致这样

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

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

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

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