Dim oRs As New Recordset
oRs.Fields.Append "A", adBSTR, 3
oRs.Fields.Append "B", adBSTR, 1
MsgBox oRs.Fields(0).Name
MsgBox oRs.Fields(0).DefinedSize
为什么显示的DefinedSize=4?
oRs.Fields.Append "A", adBSTR, 3
oRs.Fields.Append "B", adBSTR, 1
MsgBox oRs.Fields(0).Name
MsgBox oRs.Fields(0).DefinedSize
为什么显示的DefinedSize=4?
adBSTR写错了 应该是adChar
这都是学问啊
应该是你还没有调用 oRs.Open,所以尚未计算存放数据(指针)需要的字节长度。