Office中国论坛/Access中国论坛

标题: 求助(Caption) [打印本页]

作者: ygcswl 时间: 2003-10-14 00:36
标题: 求助(Caption)
请教在VB中如何指定字段标题（Caption）属性？

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

作者: andymark 时间: 2003-10-14 01:17
me.字段.caption=i

作者: ygcswl 时间: 2003-10-15 17:53
谢谢！

“Me”代表当前窗体，但在VB的类对象里并没有“表”的窗体，不支持这种方法。

我不想在“表”的设计模式下对字段指定标题，只想在VB里对它指定（标题可以变化），不知有没有好的办法？

请指教，谢谢！

[此贴子已经被作者于2003-10-15 9:57:08编辑过]

作者: ADAM 时间: 2003-10-15 18:43
用這個試試:
dim tdf as tabledef
set tdf=currentdb.tabledefs!data1 'data1表名
tdf.fiels("字段名").ForeignName ="新名"
我這里試不行,但我想應該是可行的,不知是不是我dao有問題.

作者: ygcswl 时间: 2003-10-15 19:54
谢谢!

还是不行。

作者: ADAM 时间: 2003-10-16 01:52
我也頂一下
這個我也不知道
誰來處理這個問題....
呵呵...

作者: ADAM 时间: 2003-10-16 03:53
哈哈,這樣可以,我試過了
Dim RST As TableDefs
Set RST = CurrentDb.TableDefs
RST("BB").Fields("BB").Name = "BB1"

搞笑,為什么這樣寫不行呢
dim tdf as tabledef
set tdf=currentdb.tabledefs!data1 'data1表名
tdf.fiels("字段名").Name ="新名"

作者: ygcswl 时间: 2003-10-16 17:30
谢谢，哥们！

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

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

作者: andymark 时间: 2003-10-16 17:40
你的用意是不是根椐不同的书号，字段标题也跟着改变,

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

作者: andymark 时间: 2003-10-16 17:59
传上来看一下

作者: ygcswl 时间: 2003-10-17 01:08
我很急！
哪位高手能告诉我在VB里把一个字符串赋给字段标题的方法。

怎么上传文件？

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

作者: andymark 时间: 2003-10-17 03:03
http://www.office-cn.net/bbs/dispbbs.asp?boardID=3&ID=12148

作者: ADAM 时间: 2003-10-17 03:14
你這樣試試看:
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 时间: 2003-10-17 17:56
还是不行，我这里也通不过……

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

谁来帮我！

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

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

作者: ADAM 时间: 2003-10-18 18:44
我為了這個問題專門發貼請教了斑竹,
你到這里去看看吧...

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

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