主题：[求助] 转换成表属性的代码

老师，请问如下如何转换成表属性的代码 ？ 感谢。

For Each rrrrr As Row In Tables("PriceNew")
         If rrrrr ("PType") <> "采购单价" AndAlso rrrrr ("PType") <> "订单委外单价"
        rrrrr ("FPType") =  9
        Else
          If rrrrr ("PType") ="采购单价"
             rrrrr ("FPType") = 1
        Else
           rrrrr ("FPType") =  0
          
       End If
        End If
Next

For Each rr As Row In Tables("PriceNew")
    Dim cmd As new SQLCommand
    cmd.CommandText = "Se lect Fname,FItemID From {t_ICItemCore} Where FNumber = '" & rr("PartNo") & "'"
    cmd.C
    Dim Values = cmd.ExecuteValues
    If Values.Count > 0 Then
        rr("FItemID") = Values("FItemID")
    Else
        rr("FItemID") = 0
    End If
Next