主题：求助：求解如何弄成遍历行 当列为产品服务时候 改列对应的所有行 数值呢？

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

上述代码实现在遍历产品价格表中的所有列 然后将销售收入预测表中的产品或服务列进行赋值

求解如何弄成遍历行  当列为产品服务时候 改列对应的所有行 数值呢？

谢谢关注

已经自行解决  代码如下：

Dim s As String ="产品服务"
Dim sts As List(of String) = DataTables("产品价格").GetUniqueValues("",s)
For i As Integer = 0 To sts.Count-1
    Dim r As Row = Tables("创业计划书.销售收入预测表").AddNew
    r("产品或服务") = sts(i)
Next