主题：如何开发中英文版程序

中英对译

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

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

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

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