主题：[求助]窗口的 双语 编辑

For Each c As Winform.Control In Forms(Vars("当前窗口名称")).Controls

    If Typeof c Is WinForm.TreeView Then

        Dim trv As WinForm.TreeView =  Forms(Vars("当前窗口名称")).Controls(c.name)

        For Each nd As WinForm.TreeNode In trv.AllNodes

            Dim dr As DataRow = DataTables("语言").find("[jp] = '" & nd.name & "'")

            If dr IsNot Nothing

                nd.text = dr(getConfigValue("语言类别", "cn"))

            End If

        Next

    Else

        Dim dr As DataRow = DataTables("语言").find("[jp] = '" & c.name.split("_")(0) & "'")

        If dr IsNot Nothing

            Dim cl As object = Forms(Vars("当前窗口名称")).Controls(c.name)

            If Array.Indexof(cl.Gettype.getproperties, "Text") > -1 Then

                cl.text = dr(getConfigValue("语言类别", "cn"))

            End If

        End If

    End If

Next