如何开发中英文版程序 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何开发中英文版程序

共有14253人关注过本帖树形打印复制链接主题：如何开发中英文版程序

程兴刚

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7237 积分：40614 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/10/24 10:49:00 [只看该作者]

窗口分别增加中文和English两个单选框：

English单选框的CheckedChanged事件代码：

If e.Form.Controls("English").Checked = True
    For Each tb As Table In Tables
            For Each cl As col In tb.cols
                Dim dr As DataRow = DataTables("表B").find("[cn] = '" & cl.name & "'")
                If dr IsNot Nothing
                    cl.Caption = dr("en")
                End If
            Next
            tb.BuildHeader()
        End With
    Next
End If

中文单选框的CheckedChanged事件代码：

If e.Form.Controls("English").Checked = True
    For Each tb As Table In Tables
        For Each cl As col In tb.cols
            Dim dr As DataRow = DataTables("表B").find("[en] = '" & cl.Caption & "'")
            If dr IsNot Nothing
                cl.Caption = dr("cn")
            End If
        Next
        tb.BuildHeader()
    Next
End If

程兴刚

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7237 积分：40614 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/10/24 10:52:00 [只看该作者]

项目属性的AfterOpenProject事件来打开这个窗口，用于启动时设置系统界面的语言！

dm168

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：1083 威望：0 精华：0 注册：2012/9/14 17:23:00

Post By：2012/10/24 12:04:00 [只看该作者]

感谢

lihe60

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6848 积分：43334 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2012/10/24 12:30:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.foxdb

dingqiaoren

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：27 积分：396 威望：0 精华：0 注册：2012/8/7 21:55:00

非常感谢

Post By：2012/10/24 12:38:00 [只看该作者]

hanxuntx

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2609 积分：16926 威望：0 精华：11 注册：2011/9/20 16:13:00

Post By：2012/10/24 13:02:00 [只看该作者]

该给个精华

dm168

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：1083 威望：0 精华：0 注册：2012/9/14 17:23:00

Post By：2012/10/24 15:16:00 [只看该作者]

还是没成功

If e.Form.Controls("F_Login_RBT2").Checked = True
For Each tb As Table In Tables
For Each cl As col In tb.cols
Dim dr As DataRow = DataTables("Language").find("[Chinese] = '" & cl.name & "'")
If dr IsNot Nothing
cl.Caption = dr("English")
End If
Next
tb.BuildHeader()
Next
End If

cl.Caption = dr("English")

cl（这里是不是要有一个列名变量）.Caption = dr("English")

下面这个成功

With Tables("表a")
Dim name As String
For Each i As col In .cols
name = i.name
Dim dr As DataRow = DataTables("表B").find("[cn] = '" & name & "'")
If dr IsNot Nothing
.Cols(name).Caption = dr("en")
End If
Next
.BuildHeader()
End With

－－－－－－－－－－－－－－－－－－－－－－－－－

.Cols(name).Caption = dr("en")

[此贴子已经被作者于2012-10-24 15:16:56编辑过]