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