DatasheetFontItalic 属性
内容
使用 DatasheetFontItalic 属性可以指定在“数据表”视图中字段名称和数据是否显示为倾斜。Boolean 型，可读/写。
expression.DatasheetFontItalic
expression 必需。返回“应用于”列表中的一个对象的表达式。
说明
DatasheetFontItalic 属性应用于“数据表”视图中的所有字段，以及“数据表”视图中的窗体的控件。
该属性仅在 Microsoft Access 数据库 (.mdb) 中使用 Visual Basic 时才可用。
在 Visual Basic 中，DatasheetFontItalic 属性使用以下设置：
设置 |
说明 |
True |
文字是倾斜的。 |
False |
（默认）文字不是倾斜的。 |
注释 您可以通过在“格式（数据表）”工具栏上单击“倾斜”来设置该属性。
也可以在“数据表”视图中单击“格式”菜单上的“字体”，在“字体”对话框中设置该属性。
下表列出了 DAO Properties 集合中的部分属性。这些属性在用户使用“格式（数据表）”工具栏对其进行设置，或使用 CreateProperty 方法将这些属性添加到 Access 数据库 (.mdb) 并将其追加到 DAO Properties 集合中之前不存在。
注释 当添加或设置任何带有星号的属性时，Microsoft Access 自动将所有带星号的属性添加到数据库的 Properties 集合中。
示例
以下示例在“数据表”视图中将“产品”窗体的数据和字段名称显示为倾斜和带下划线。
Forms![Products].DatasheetFontItalic = True
Forms![Products].DatasheetFontUnderline = True
下一个示例在“数据表”视图中将“产品”表的数据和字段名称显示为倾斜和带下划线。
为设置 DatasheetFontItalic 和 DatasheetFontUnderline 属性，该示例使用数据库标准模块中的 SetTableProperty 过程。
Dim dbs As Object, objProducts As Object
Const DB_Boolean As Long = 1
Set dbs = CurrentDb
Set objProducts = dbs![Products]
SetTableProperty objProducts, "DatasheetFontItalic", DB_Boolean, True
SetTableProperty objProducts, "DatasheetFontUnderline", DB_Boolean, True
Sub SetTableProperty(objTableObj As Object, strPropertyName As String, _
intPropertyType As Integer, varPropertyValue As Variant)
' Set Microsoft Access-defined table property without causing
' nonrecoverable run-time error.
Const conErrPropertyNotFound = 3270
Dim prpProperty As Variant
On Error Resume Next ' Don't trap errors.
objTableObj.Properties(strPropertyName) = varPropertyValue
If Err <> 0 Then ' Error occurred when value set.
If Err <> conErrPropertyNotFound Then
On Error GoTo 0
MsgBox "Couldn't set property '" & strPropertyName _
& "' on table '" & objTableObj.Name & "'", 48, "SetTableProperty"
Else
On Error GoTo 0
Set prpProperty = objTableObj.CreateProperty(strPropertyName, _
intPropertyType, varPropertyValue)
objTableObj.Properties.Append prpProperty
End If
End If
objTableObj.Properties.Refresh
End Sub