求助(Caption)

andymark

传上来看一下

ygcswl

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

怎么上传文件？

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

andymark

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

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
我這里測試沒成功,老是出錯(有發新貼),你試試看,我想是應該可以的,
不知總是錯在哪里....
試了一天...過分...

ygcswl

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

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

谁来帮我！

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

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

ADAM

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

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