Office中国论坛/Access中国论坛

标题: [请教]关于在数据表窗体中用代码设置字段标题的问题 [打印本页]

作者: 红尘如烟 时间: 2007-5-27 04:18
标题: [请教]关于在数据表窗体中用代码设置字段标题的问题
[attach]24644[/attach]
进入主窗体代码视图就能见到问题了

作者: Grant 时间: 2007-5-27 20:30
ACCESS数据库中Field对象的Caption属性（也就是标题）属性是用来设置数据字段的标题的，在正常的数据库设计中为了保持维护的便利性，许多开发者都将字段名与标题做了分别设置，标题往往比字段名更友好，更能说明字段的用途。本文章说明如何用ＶＢＡ读写该属性。

可惜Field对象的Caption属性并不是ADO原生对象，而是“可由ADO访问的ACCESS属性”，在帮助文档中介绍了两种访问这个属性的方法，一种利用ADO，一种利用DAO，在这里我直接说出结果，由于在ACCESS2003及以前的版本中Field对象并不是ACCESSObject对象，因而也就没有AccessObjectProperties 属性，所以我们也就别想在ADO中去解决这个问题吧，现在给出DAO的代码解决办法

Sub SetProperty(dbsTemp As DAO.Field, strName As String, _

booTemp As String)

Dim prpNew As DAO.Property

Dim errLoop As Error

' Attempt to set the specified property.

On Error GoTo Err_Property

dbsTemp.Properties(strName) = booTemp

On Error GoTo 0

Exit Sub

Err_Property:

' Error 3270 means that the property was not found.

If DBEngine.Errors(0).Number = 3270 Then

   ' Create property, set its value, and append it to the

   ' Properties collection.

   Set prpNew = dbsTemp.CreateProperty(strName, _

      dbText, booTemp)

   dbsTemp.Properties.Append prpNew

   Resume Next

Else

   ' If different error has occurred, display message.

   For Each errLoop In DBEngine.Errors

      MsgBox "Error number: " & errLoop.Number & vbCr & _

         errLoop.Description

   Next errLoop

   End

End If

End Sub

Sub DisplayClumCaption(ByVal tbname As String, ByVal fldIndex As Integer)

Dim dset As DAO.TableDef) '*****必须使用TableDef对象

Dim i As Integer

Dim tmpProp As DAO.Property '强制使用DAO类型

Dim fld As DAO.Field '强制使用DAO类型

Dim tmpTxt As String

'On Error Resume Next

Dim msg As String

Dim cdb As DAO.Database '*****强制使用DAO类型

Set cdb = CurrentDb '****关键，确定对当前数据库的静态引用

Set dset = cdb.TableDefs(tbname)'*****必须使用TableDef对象

For Each fld In dset.Fields

tmpTxt = fld.Name

SetProperty fld, "Caption", tmpTxt

msg = msg + fld.Properties("Caption")

msg = msg + Chr(10) + Chr(13)

Next fld

MsgBox msg

End Sub

这里代码中有两个SUB，一个是SetProperty ，用来判断一个字段是否有指定的属性，如果没有设置，有就将相应的数值赋给该属性，这段代码几乎完全是照搬MS的帮助文档。另一个是DisplayClumCaption，这是对指定表中的字段按字段名设置其Caption属性的演示代码。如果有需要，大家可以对SetProperty进行修改，使他变成一个只读的函数，用来枚举指定表中每个字段的Caption属性。DisplayClumCaption代码中，我打“星号”的地方是要重点注意的，因为我在这里曾走过弯路

作者: 红尘如烟 时间: 2007-5-28 01:57
谢谢楼上的兄弟，不过ADO没有办法实现么？

作者: Grant 时间: 2007-5-28 05:50
资料表明 ADO不支持 Format,InputMask,Caption属性

作者: 红尘如烟 时间: 2007-5-29 03:02
晕死，我也是查了半天资料没查着才上来问的，我做的这东西不但需要通过网络交流数据，还要和其它程序相联，用DAO很不方便啊，看来只能想另外的办法了

作者: andymark 时间: 2007-5-29 04:51
建立一张表保存所有表字段的名称,也种方法也可用来开发多语种的程序

作者: 7777777 时间: 2008-8-7 12:38
kkkkkk

作者: 7777777 时间: 2008-8-7 12:41
kkkkkkk

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)