主题：为什么狐表的菜单可以翻译成功我自已做的翻译不成功呢？

Dim dr As DataRow
If e.Form.Controls("English_1").Checked = True
For Each tb As Table In Tables
For Each cl As col In tb.cols
dr = DataTables("表B").find("[cn] = '" & cl.caption & "'")
If dr IsNot Nothing
cl.Caption = dr("en")
End If
Next
tb.BuildHeader()
Next
For Each rt As RibbonMenu.Tab In RibbonTabs '菜单工能区
dr = DataTables("表B").find("[cn] = '" & rt.text & "'")
If dr IsNot Nothing
rt.text = dr("en")
End If
For Each gp As RibbonMenu.Group In RibbonTabs(rt.name).Groups '菜单功能组
dr = DataTables("表B").find("[cn] = '" & gp.text & "'")
If dr IsNot Nothing
gp.text = dr("en")
End If
For Each itm As RibbonMenu.RibbonItem In RibbonTabs(rt.name).Groups(gp.name).Items '菜单项目
Dim itms As String = RibbonTabs(rt.name).Groups(gp.name).Items(itm.name).text
dr = DataTables("表B").find("[cn] = '" & itms & "'")
If dr IsNot Nothing
RibbonTabs(rt.name).Groups(gp.name).Items(itm.name).text = dr("en")
End If
Next
Next
Next
For Each q As object In QAT.Items
dr = DataTables("表B").find("[cn] = '" & q.text & "'")
q.text = dr("en")
Next
For Each c As object In ConfigBar.Items
dr = DataTables("表B").find("[cn] = '" & c.text & "'")
c.text = dr("en")
Next
SaveConfigValue("语言类别", "cn")
End If
Functions.Execute("窗口翻译")

Dim dr As DataRow
For Each c As Winform.Control In Forms(Vars("Fname")).Controls
If Typeof c Is WinForm.NavBar Then
Dim bar As WinForm.NavBar = Forms(Vars("Fname")).Controls(c.name)
For Each pg As WinForm.NavPage In bar.NavPages
output.show(pg.ButtonText)
Next
End If
Next

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

Dim dr As DataRow
For Each f As object In forms
output.show(1)
For Each c As Winform.Control In f.Controls
If TypeOf c Is Winform.NavBar Then
Dim bar As WinForm.NavBar = f.Controls(c.name)
For Each nb As WinForm.NavPage In bar.NavPages
dr = DataTables("Language").find("[English] = '" & nb.ButtonText & "'")
If dr IsNot Nothing
nb.Buttontext = dr(getConfigValue("LangC", "Chinese"))
End If
dr = DataTables("Language").find("[Chinese] = '" & nb.ButtonText & "'")
If dr IsNot Nothing
nb.Buttontext = dr(getConfigValue("LangC", "English"))
End If
Next
Else If Typeof c Is WinForm.TreeView Then
Dim trv As WinForm.TreeView = f.Controls(c.name)
For Each nd As WinForm.TreeNode In trv.AllNodes
dr = DataTables("Language").find("[English] = '" & nd.text & "'")
If dr IsNot Nothing
nd.text = dr(getConfigValue("LangC", "Chinese"))
End If
dr = DataTables("Language").find("[Chinese] = '" & nd.text & "'")
If dr IsNot Nothing
nd.text = dr(getConfigValue("LangC", "English"))
End If
Next
Else If TypeOf c Is WinForm.TabControl Then
Dim tc As WinForm.TabControl = f.Controls(c.name)
For Each pg As WinForm.TabPage In tc.TabPages
dr = DataTables("Language").find("[English] = '" & pg.Text & "'")
If dr IsNot Nothing
pg.text = dr(getConfigValue("LangC", "Chinese"))
End If
dr = DataTables("Language").find("[Chinese] = '" & pg.Text & "'")
If dr IsNot Nothing
pg.text = dr(getConfigValue("LangC", "English"))
End If
Next

Else
Dim ct As String = f.Controls(c.name).text
dr = DataTables("Language").find("[English] = '" & ct & "'")
If dr IsNot Nothing
f.Controls(c.name).text = dr(getConfigValue("LangC", "Chinese"))
End If
dr = DataTables("Language").find("[Chinese] = '" & ct & "'")
If dr IsNot Nothing
f.Controls(c.name).text = dr(getConfigValue("LangC", "English"))
End If
End If
Next
Next