求助(Caption)

ygcswl

请教在VB中如何指定字段标题（Caption）属性？

如：I="书号"
      将“I”指定给某表某字段的标题。

ADAM

我為了這個問題專門發貼請教了斑竹,
你到這里去看看吧...

http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&ID=12171

ygcswl

还是不行，我这里也通不过……

难道在VB里不能给字段标题赋值？

谁来帮我！

我这里怎么没有上传文件的选项？

[此贴子已经被作者于2003-10-17 9:56:52编辑过]

ADAM

你這樣試試看:
Dim FIELD1 AS FIELD
Set RST = CurrentDb.TableDefs("BB").FIELDS("BB1")
SetProperty RST,"CAPTION", True
RST("BB").Fields("BB").CAPTION = "BB1"
'CAPTION是隱藏有屬性.
Sub SetProperty(dbsTemp As Field, strName As String, booTemp As Boolean)
Dim prpNew As Property
Dim errLoop As Error
On Error GoTo Err_property
dbsTemp.Properties("strName") = booTemp
On Error GoTo 0
Exit Sub
Err_property:
If DBEngine.Errors(0).Number = 3270 Then
Set prpNew = dbsTemp.CreateProperty(strName, dbBoolean, booTemp)
dbsTemp.Properties.Append prpNew
Resume Next
Else
For Each errLoop In DBEngine.Errors
MsgBox "Error number: " & errLoop.Number & vbCr & errLoop.Description
Next errLoop
End
End If

End Sub
我這里測試沒成功,老是出錯(有發新貼),你試試看,我想是應該可以的,
不知總是錯在哪里....
試了一天...過分...

andymark

http://www.office-cn.net/bbs/dispbbs.asp?boardID=3&ID=12148

ygcswl

我很急！
哪位高手能告诉我在VB里把一个字符串赋给字段标题的方法。

怎么上传文件？

[此贴子已经被作者于2003-10-16 17:10:30编辑过]

andymark

传上来看一下

ygcswl

因为我在输出的报表里要用到字段标题，而报表的数据源是可以变化的，我要将报表中的标签用表的字段标题代替，方法是有了，可是看原表就不太舒服，因此想用一种方法在VB里把
一个字符串赋给字段标题。

andymark

你的用意是不是根椐不同的书号，字段标题也跟着改变,

ygcswl

谢谢，哥们！

这个我试了，可以改字段名，但要改字段标题就不行了。

我急着要改“字段标题”的方法，帮帮我吧！