高分送高手，望大家帮忙，急死俺了。。。:(

Question

俺现在是想用：
    Table:= CreateOLEObject('AdoX.Table');
    //添加了新字段：
    Table.Columns.Append('VoiceContent',adVarWChar,200);
    //设为允许空值：
    Table.Columns.Item['VoiceContent'].Attributes := adColNullable;
    //设缺省值
    ？？？？？？？？？？？？？？？？？？？就希望在新字段中用这种方法来设置缺省值（主要是为了学习，呵呵），有办法吗？
最好具体点，可行的办法一定给分，还可以加，呵呵。（俺保证今晚就结贴。）

Answer 1

Table.Columns['VoiceContent'].Properties['Default'].Value := 'abc';
试过可以了。

Answer 2

To 死树：真的可以吗？为什么俺运行的时候出错：‘在对应所需名称或序数集合中未找到项目’在Properties中真的有：‘Default’属性吗？呵呵

Answer 3

我试过可以的，我的测试代码：
uses ComObj, ADOInt;
procedure TForm1.Button1Click(Sender: TObject);
var
  Table: OleVariant;
  Catalog: OleVariant;
begin
  Catalog := CreateOLEObject('AdoX.Catalog');
  Catalog.ActiveConnection := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source="d:\Test.mdb"';
  Table:= CreateOLEObject('AdoX.Table');
  Table.Name := 'Test';
  Table.ParentCatalog := Catalog;
  Table.Columns.Append('VoiceContent',adVarWChar,200);
  Table.Columns['VoiceContent'].Properties['Default'].Value := 'abc';
  Catalog.Tables.Append(Table);
end;