【搞定】再发关于EXCELTOTABLE**

jacobpro · 发表于 2007-1-22 14:31:42

请求帮助

代码等信息我打了包了。麻烦各位大大帮忙下。万分感激。

jacobpro · 发表于 2007-1-23 07:42:40

我写的代码不大正确。请老师们指正

jacobpro · 发表于 2007-1-23 07:53:45

此范例可以形成一个模板，麻烦各位老师了。

jacobpro · 发表于 2007-1-23 13:42:35

没人能帮忙么

aPanther · 发表于 2007-1-23 13:47:24

能不能直接把你得代码贴出来，我先看看，不行再导入。

jacobpro · 发表于 2007-1-23 14:04:46

procedure TMainForm.Button2Click(Sender: TObject);
var
  lstr, ErrStr: String;
begin
  if OpenDialog1.Execute then
  Edit1.Text :=SysUtils.ExtractFileName(opendialog1.FileName);
  Edit1.Text :=sysUtils.ExtractFileDir(opendialog1.FileName)+'\'+SysUtils.ExtractFileName(opendialog1.FileName);
  ExcelToTable1.FileName := Edit1.Text;
  lstr := OpenDialog1.FileName;
  ExcelToTable1.Execute(lstr);
dsbMaster.DataSet.ApplyUpdates;
dialogs.ShowMessage(ErrStr);
end;

aPanther · 发表于 2007-1-23 14:53:41

楼主，版本号多少？

aPanther · 发表于 2007-1-23 14:58:02

还有，楼主，我不太清楚你到底遇到什么问题了。
能说明一下么？

jacobpro · 发表于 2007-1-23 15:27:36

版本2611
问题是数据并没有导入到数据表中。

aPanther · 发表于 2007-1-23 15:36:55

楼主，1楼的包你打的时候签入了么？
我导入后发现窗体上什么都没有，也没有任何代码。

		自动登录	找回密码
密码			立即注册