求教:Query中DBMemo的Update问题 paradox memo 用update 每次只能一条。指定关键字段,一条一条的更新就行了。不要恼怒 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我以前用过,似乎DbGrid中不可以显示Memo字段吧?是不是将Memo字段拿出来? 谢谢大家的关心。我知道DBgrid不能显示Memo字段的内容,我用以下代码已经解决了:procedure TDataModule2.Query1MEMOGetText(Sender: TField; var Text: String; DisplayText: Boolean);beginText:=Query1.FieldByName('memo').AsString;end;我的程序是这样设计的,用的是Foxpro数据库。在query查询完后,双击DBgrid中需要改动的记录,就会弹出修改窗口,窗口中我用DBMemo控件指向query的Memo字段,显示正常。我用的ApplyUpdates方法修改,其他字段修改后都没有问题,就是Memo字段修改后一旦退出query就会丢失。源代码如下:数据模块窗口中:procedure TDataModule2.Query1UpdateRecord(DataSet: TDataSet; UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);begin Query1.UpdateObject:=UpdateSQL1; with UpdateSQL1 do begin SetParams(UpdateKind); ExecSQL(UpdateKind); end; UpdateAction :=uaApplied;end;修改窗口中:with DataModule2.Query1 do begin ApplyUpdates; commitupdates; end;DBMemo的属性:object DBMemo1: TDBMemo Left = 376 Top = 256 Width = 193 Height = 73 DataField = 'MEMO' DataSource = DataModule2.DataSource2 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = '宋体' Font.Style = [fsBold] ParentFont = False TabOrder = 11 OnKeyPress = DBEdit1KeyPress end希望大家多多帮忙,这里的分送完了,我还有两个窗口可以送分。 简单的打印问题,帮帮忙。急~~~~~~~~ 怎么实现windows的资源管理器式的窗体开发 各位高手,过来帮忙好不好,我都急死了 copyfile()中参数要求是pchar,请问如何将string转换过去?我已经无分 我从远程ftp服务器上取回升级文件,能不能在取文件之前就可以判断出它的版本号? 没事,随便问问看 那位大哥有没有做过远程关机的程序?请帮帮忙。 我的Access表有249个字段,这对操作有影响吗? 一个简单的初学者问题? 为什么数据库中的关联表就不可以select? ADO连接ACCESS数据库 怎么发布 如何将一个非主窗体也能在任务栏上显示出来,就象VB那样。
是不是将Memo字段拿出来?
procedure TDataModule2.Query1MEMOGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text:=Query1.FieldByName('memo').AsString;
end;
我的程序是这样设计的,用的是Foxpro数据库。在query查询完后,双击DBgrid中需要改动的记录,就会弹出修改窗口,窗口中我用DBMemo控件指向query的Memo字段,显示正常。我用的ApplyUpdates方法修改,其他字段修改后都没有问题,就是Memo字段修改后一旦退出query就会丢失。源代码如下:
数据模块窗口中:
procedure TDataModule2.Query1UpdateRecord(DataSet: TDataSet;
UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
begin
Query1.UpdateObject:=UpdateSQL1;
with UpdateSQL1 do
begin
SetParams(UpdateKind);
ExecSQL(UpdateKind);
end;
UpdateAction :=uaApplied;
end;
修改窗口中:
with DataModule2.Query1 do
begin
ApplyUpdates;
commitupdates;
end;
DBMemo的属性:
object DBMemo1: TDBMemo
Left = 376
Top = 256
Width = 193
Height = 73
DataField = 'MEMO'
DataSource = DataModule2.DataSource2
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
OnKeyPress = DBEdit1KeyPress
end
希望大家多多帮忙,这里的分送完了,我还有两个窗口可以送分。