加一个表和选取的表结构一致。
将选中的纪录添加到加的表中,用另外一个DBGRID显示该表中的内容。
将选中的纪录添加到加的表中,用另外一个DBGRID显示该表中的内容。
解决方案 »
- 如何判定没有扩展名的文件
- 在PaintBox中画的线,为什么没了?
- 找到句柄之后为什么用WM_SETTEXT不能改变RICHEDIT的Caption。
- 我将鼠标移到工具栏上的控件,为什么不能出现hint呢? 我在右键菜单下已经选上show hints了?(在线等)
- intraweb如何释放内存?
- 在win98以上系统中,哪些本地数据库是不需要安装就有的?哪种效率最高?
- 不好意思哦~~有一个关于多线程的问题请教大家~~~~:-)
- 求,access保存图片源码
- delphi简单问题,在线等待......
- CSDN的服务器是不是有问题,还是带宽小了?!慢得象蜗牛!!!!!!!
- 怎么来实现像NetMeeting一样传文件的功能?分还会另外给的!UP有分
- 这个问题很难,请各位高手指点迷津
function TfmGenConfirmSale.CreateTableInMemory(const AFieldDefs:TFieldDefs):TDataSet;
Var
TempTable:TClientDataSet;
begin
TempTable:=nil;
Result:=nil;
if AFieldDefs<>nil then
begin
try
TempTable:=TClientDataSet.Create(Application);
TempTable.FieldDefs.Assign(AFieldDefs);
TempTable.CreateDataSet;
Result:=(TempTable as TDataSet);
Except
if TempTable<>nil then
TempTable.Free;
Result:=nil;
raise;
end;
end;
end;
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin
//在这里添加操作.如果首先定义了一个和源表结构相同的表,直接对其字段赋值.比如:
dbgrid2.datasource.dataset.fields[j].value:=dbgrid1.datasource.dataset.fields[j].value//
//如果没有定义这样一个表,那么使用临时表.方法和楼上同学一样.
end;
end;
end;