表格操作系列——字段名与字段别名的获取

表格操作系列

四、字段名与字段别名的获取

在使用数据库编程时，经常需要在别名与字段名之间做一些操作，字段名一般使用英文字符，别名一般使用中文字符，这样就可以满足显示与数据库操作两不误的需要。但是在写代码时，使用别名，数据库又不认，使用字段名写代码又不太方便，两者兼顾时容易出错。下面的代码，可以很好的实现字段名与别名之间的操作。
将字段名与别名存储在一个表中，按列存好，可以在编程时先行定义，这样也可以避免在使用时出现混乱。在写代码时，可以使用别名对字段名进行自动引用，具体见以下函数。

单字段操作

Public Function FieToAli(Fie As String, Optional Sh As String = "INI") As String
Dim Rng As Range
Dim co As Integer

If Sh = "" Then Sh = ActiveSheet.Name
With ThisWorkbook.Sheets(Sh)
    Set Rng = .Range("1:1").Find("别名", lookat:=xlWhole)
    If Not Rng Is Nothing Then co = Rng.Column
    
    Set Rng = .Range("1:1").Find("字段", lookat:=xlWhole)
    If Not Rng Is Nothing Then
        Set Rng = .Range(Chr(64 + Rng.Column) & ":" & Chr(64 + Rng.Column)).Find(Fie, lookat:=xlWhole)
        If Not Rng Is Nothing Then FieToAli = .Cells(Rng.Row