有着样的要求，请大家看看

Question

你想问啥?
怎么倒入excel?
还是怎么把这个10显示成党员？

Answer 1

＝＝＝＝A example   adapt from DFW offline database＝＝＝＝＝＝＝＝
procedure TransToExcel;
var
 MsExcel: Variant;
begin
 try
  MsExcel:=CreateOleObject('Excel.Application');
 except
  ShowMessage('无法打开Microsoft Excel');
  exit;
 end;  MsExcel.Visible:=True;
  MsExcel.WorkBooks.Add;
  if FDataFrom is TStringGrid then
      TransStringGridToExcel(FDataFrom As TStringGrid,MsExcel);
  if FDataFrom is TDecisionGrid then
      TransDecisionGridToExcel(FDataFrom As TDecisionGrid,MsExcel);
  if FDataFrom is TDBGrid then
      TransDBGridToExcel(FDataFrom As TDBGrid,MsExcel); end;procedure TransDecisionGridToExcel(DG1:TDecisionGrid;MsExcel:Variant);
 var
  i,j:Integer;//循环变量
 begin
    ColNum:=0; RowNum:=0;
   with DG1 do
    begin
     ColNum:=ColCount;
     RowNum:=RowCount;
     For j:=-2 to RowNum-3 do
      For i:=-1 to ColNum-2 do
        MsExcel.Cells[j+3,i+2].Value:=Cells[i,j];
    end;{end with}
 end;
========================Try====================

Answer 2

过分了吧，想想用sql语句如何！

Answer 3

先设defaultdraw为false在ondrawcolums....中写帮助中有例子

Answer 4

提供一个多库操作的例子，小蜜蜂，展翅靠你自己了！：）
Master.db和Customer.dbf分别为Paradox和dBASE的数据库，它们有一个公共字段CustNo。这时可输入如下代码：
　　
Query1.Close;
　　Query1.DataBaseName:=′′；
　　Query1.SQL.Clear；
　　Query1.SQL.Add(′Select ＊ from ″Master.db″ A,″Customer.dbf ″ B Where A.CustNo=B.CustNo′)；{在同一行内输入}
　　Query1.Open；

Answer 5

因为我的程序是通用查询的，直接生成sql几乎是不可能的

Answer 6

哪有什么不可以，可以从combobox中选出来。