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

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

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

dm168

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

加好友

发短信

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

Post By：2012/10/22 23:38:00 [显示全部帖子]

能不能写个实例啊!很需要这个，还是不太明白怎么做？有个实例就好了，谢谢！

dm168

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

加好友

发短信

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

Post By：2012/10/23 14:31:00 [显示全部帖子]

还是不明白，为什么帮助里面没有实例！

dm168

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

加好友

发短信

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

Post By：2012/10/24 10:08:00 [显示全部帖子]

经过“金亿通”老大的帮助写的对译列名的代码，现分享给大家

中英对译

――――――――――――――――――――――――――――――――――――――――――――――

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

.BuildHeader()

End With

蓝色部分＝ name 时就是中文＝ dr("en") 就是英文

我的问题是这个代码要放在什么事件里才能对所有的表有效？

[此贴子已经被作者于2012-10-24 10:42:03编辑过]

dm168

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

加好友

发短信

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

Post By：2012/10/24 10:43:00 [显示全部帖子]

我的问题是这个代码要放在什么事件里才能对所有的表有效？

dm168

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

加好友

发短信

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

Post By：2012/10/24 12:04:00 [显示全部帖子]

感谢

dm168

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]