ActiveData。
基になる ActiveData オブジェクトに列を追加し、成功または失敗を示す値を返します。
AddColumn (defaultValue, columnName)
Public Sub Main() AddColumnToDataFile( "occupation" ) End Sub Public Sub AddColumnToDataFile( name As String ) Dim data As ActiveData = Workbench.LoadActiveData( "PhoneBookData" ) data.AddColumn( "Occupation", name ) data.Save() End Sub End Module