以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  为什么取不到值?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84402)

--  作者:hcx0522
--  发布时间:2016/4/30 10:16:00
--  为什么取不到值?
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
图片点击可在新窗口打开查看

--  作者:hcx0522
--  发布时间:2016/4/30 10:17:00
--  
取不到"科目"这张表中的“归属科目"字段的值


--  作者:Hyphen
--  发布时间:2016/4/30 10:32:00
--  
看不懂您的逻辑,列表项目参考