ClientDataset通过ado连接access时,filter不能支持中文,请来解决,100分,不够再加(100分)

  • 主题发起人 主题发起人 NightMare
  • 开始时间 开始时间
N

NightMare

Unregistered / Unconfirmed
GUEST, unregistred user!
[^]
我已经看了,silicon的帖子,但是我在qrmain的afterOpen里加了如下代码,仍然不能成功
procedure TfrmniLHouse.qrMainAfterOpen(DataSet: TDataSet);
var
i: integer;
begin
//当clientdataset打开access时,widestring类型的字段不支持filter中文
for i := 0 to qrmain.FieldDefs.Count - 1do
begin
if qrmain.FieldDefs.Items.DataType = ftWideString then
begin
// showmessage(qrmain.FieldDefs.Items.Name);
qrmain.FieldDefs.Items.DataType := ftString;
end;
end;
for i := 0 to qrmain.Fields.Count - 1do
begin
if qrmain.Fields.Fields is TWideStringField then
begin
// showmessage(qrmain.FieldDefs.Items.Name);
qrmain.Edit;
qrmain.Fields.Fields := TStringField(qrmain.Fields.Fields);
qrmain.Post;
qrmain.MergeChangeLog;
if qrmain.Fields.Fields is TStringField then
showmessage(qrmain.Fields.Fields.FieldName);
end;
end;
上面两个循环将FieldDef里的wideString改成了String,Fields里的WideStringField改成了StringField
还是不能正常的进行Filter(Filter有中文的条件下哈,没有中文的时候非常正常)
 
谢了,楼上,我也提一下
 
你用sql查询多好。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
928
SUNSTONE的Delphi笔记
S
后退
顶部