编译错误,在线等...谢谢.(200分)

Table1.BatchMove(DBGrid1.DataSource.DataSet,batCopy);

编译报错:
Incompatible types: 'TBDEDataSet' and 'TDataSet'

强制转换一下看：
Table1.BatchMove(TBDEDataSet(DBGrid1.DataSource.DataSet),batCopy);

谢谢bjaman
虽然编译是通过了.

但是出现了新问题:

我是在一个过程里面定义
procedure GetData1(DBGrid1 : TDBGrird);
var
FileName : String;
Table1 : TTable;
begin
FileName := 'tmpFile'
Table1.TableName := FileName;
Table1.TableType := ttDBase;
Table1.BatchMove(TBDEDataSet(DBGridEH.DataSource.DataSet),batCopy);
Table1.Close;
End;

运行时报错,好象是table1没有被激活.
我跟踪了一下,
在table1.tableName := FileName 的时候就开始报错.