Cell中为什么一直没有Delphi的例程，请尽快提供！！！

[baby_hhh]

我公司正在用Delphi开发，请回复！！！

[Cell]

我们正在准备，由于我们希望我们的例子程序可以被用户直接使用，所以对代码的质量有一定要求，我们也希望能尽快的解决。

[mengli1]

我也才用华表，经测验下面代码得以通过：
将某个表的字段、记录添加到华表插件中
procedure TForm1.Button1Click(Sender: TObject);
var
c:string;
i,j,fieldcount:integer;
begin
cell1.OpenDatabase('povider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Data Source=demo');
Cell1.CloseRowset;
Cell1.OpenRowset('select * from fun_list', 2, 2);
FieldCount:=Cell1.GetFieldCount;
Cell1.DeleteSheet(0,1);
For i:= 1 To FieldCount do
Cell1.SetCellString(i, 0, 0, Cell1.GetFieldName(i));
j:=1;
while not cell1.isEOF do
begin
For i:= 1 To FieldCount do
Cell1.SetCellString(i, j, 0, Cell1.GetFieldString(i));
j:=j+1;
Cell1.MoveNext;
end;

[Cell]

目前我们正在想办法解决该问题

mengli1(清风使)谢谢你的代码。