主题：为什么取不到值？

If Forms("导入科目").opened = True Then

    

    If MainTable.Name = "科目" Then

        Dim r As Row = Tables("科目").Current

        Dim r1 As Row = Tables("厦门海西金谷总账黄传雄").Current

        Dim sts() As String ={ "归属科目"}

        For Each st As String In sts

            r(st) = r1(st)

                  Next

    End If

    Forms("导入科目").close

End If
此主题相关图片如下：qq图片20160430101439.png