主题：多行引用

这两行代码有问题，语法都错了：
 
Dim adr As String = Tables("配件.配件用量").Rows.Count("名称")
Dim adr1 As Double = Tables("配件.配件用量").Rows.Count("单价")
 
还有这段代码的逻辑是什么？ 提问的时候，不能做例子，最好也详细说明这段代码的目的和逻辑。
 
你要在“配件.配件用量”修改了某行的单价，然后单击某个按钮，希望同产品的单价同步修改？
如果这样，我蒙一下：

Dim mc = Tables("配件.配件用量").current("名称")
Dim dj = Tables("配件.配件用量").current("单价")
For Each r As Row In Tables("配件.配件用量").Rows
    If r("名称") = mc Then
        r("单价") = dj
    End If
Next