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

或着文本和窗口标题可以用别的方法来设置吗？ 因为不能每用一次提示窗口都要做一个新提示窗口吧！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目10 (1).table

现在的问题下面这几个按钮的代码要怎么写呢，能给个列子吗？或在什么地方可以找到列子吗？

哎太难了，要做的事也太多了 狐爸说messagebox可以根据系统语言自动选择中英按钮，记得有个系统命玲可以识别系统语言，不知可不可以用这个命玲来翻译messagebox按钮？？？？

我做了6个窗口对吗？

 Dim Value() As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        If e.Node.Text = "显示所有行" Then
            Tables("Department").Filter = ""
        Else
            Tables("Department").Filter = "[Code] = '" & Value(0) & "'"
        End If
    Case 1
        Tables("Department").Filter = "[Code] = '" & Value(0) & "' And [Name] = '" & Value(1) & "'"
End Select
这是目录树点击目录后出现对象引用没有指向对象实例提示,请问是什么地方不对啊?引发问题的是文本框里的代码,如清除后就正常 看下面
If IsNumeric(e.Sender.Value) = True '检查文本框内的值是不是数字
    If Tables("Department").Current Is Nothing Then
        Tables("Department").Current("Code") = e.Sender.Value
    End If
End If