jennyyuan
这个就是没有改吧,我的程序还是这样的,supermap没有用过的,
我再试试,谢了,
还是这行有问题的,
提示:
用户定义数据集错误,无法为指定的用户定义集类型找到CLSID,
检查该数据集是否被正确注册,
能不能给我看一上,
procedure TForm1.Button1Click(Sender: TObject);
var
param, ds: variant;
unusedParam: OleVariant;
fields: CMapXFields;
begin
TVarData(unusedParam).vType := varError;
TVarData(unusedParam).vError := dword(DISP_E_PARAMNOTFOUND);
param := CreateOleObject('MapX.ODBCQueryInfo.4');
param.SqlQuery := 'select * from sale';
param.DataSource := 'Dsystem';
param.ConnectString := 'ODBC;';
fields := CoFields.Create;
fields.Add('part','part', miAggregationAuto,miTypeString);
fields.Add('sale','sale', miAggregationAuto,miTypeString);
ds := Map1.Datasets.Add(miDataSetODBC, param, unusedParam, unusedParam, unusedParam, 'campus', fields, unusedParam);
// 还是这句有问题。
ds.Themes.Add(miThemeRanged, 'sale', 'sale');
end;