销售管理软件版1楼: 哪位高手能给我一个xml文件导入到DBGrid控件中显示的例子！！！！！

2楼: C:＼Program Files＼Borland＼Delphi7＼Demos＼DbClx＼mybasexplorer 如速达财务软件评论

3楼: ADOTable1.LoadFromFile(＇＇***.xml＇＇);

4楼: 在form上放一个DataSource1 ClientDataSet1 DBGrid1
将它们连起来 gird->datasource datasource->clientdataset


CallInfoStrings:=TStringList.Create;
try
CallInfoStrings.Add(＇＇<？xml version=＂1.0＂ standalone=＂yes＂？> ＇＇);
CallInfoStrings.Add(＇＇＇＇);
CallInfoStrings.Add(＇＇＇＇);
CallInfoStrings.Add(＇＇＇＇);
CallInfoStrings.Add(＇＇＇＇);
CallInfoStrings.Add(＇＇＇＇);
CallInfoStrings.Add(＇＇＇＇);
CallInfoStrings.Add(＇＇＇＇);
CallInfoStrings.Add(＇＇＇＇);
CallInfoStrings.Add(＇＇＇＇);
for I:=1 to CallStatView.Columns.Count-1 do
begin
if (SysOneWeek.Checked) or ( SysOneMouse.Checked) or (SysToday.Checked) then
begin
CallInfoStrings.Add(＇＇＇＇ );
end else
begin
CallInfoStrings.Add(＇＇＇＇ );
end;
end;
CallInfoStrings.Add(＇＇＇＇);
CallInfoStrings.Add(＇＇＇＇);
CallClientDataSet.Close;
SetSeriesData;
CallClientDataSet.XMLData:=CallInfoStrings.Text;
CallClientDataSet.Open;

5楼: 我自己写过一个比较简单的 发给你看下:
procedure TMainFrm.BtnSaveClick(Sender: TObject);
var
SQL:string;
begin
(＇＇＇＇＇＇＇＇Microsoft.Jet.OLEDB.4.0＇＇＇＇＇＇＇＇,＇＇＇＇Excel 8.0;Database=D:＼share＼123.xls＇＇＇＇, ＇＇＇＇SELECT * FROM [sheet1$]＇＇＇＇)＇＇;
SQL:= ＇＇ SELECT * INTO CS FROM OPENROWSET(＇＇＇＇＇＇＇＇Microsoft DLE DB Provider for SQL Server＇＇＇＇＇＇＇＇,＇＇＇＇Excel 8.0;Database=D:＼share＼123.xls＇＇＇＇, ＇＇＇＇[sheet1$]＇＇＇＇)＇＇;
AdoQuery1.Close ;
AdoQuery1.SQL.Clear ;
AdoQuery1.SQL.Add(SQL);
AdoQuery1.ExecSQL ;
end;
路径和 要导入的内容你写个变量就行了.我是测试写死了的.....
用ComboBox1来显示路径就可以了...

6楼: 谢谢大家

销售管理软件版7楼: 用一个ClientDataSet
直接连接ClientDataSet1.XMLData :=＇＇XML文件名＇＇就行了

8楼: 同意楼上，DBGrid通过datasource连接到ClientDataSet

9楼: 问题解决了，谢谢各位！！！！