Question

while not adoTable3.Eof do begin if s<>adoTable3.FieldByName('编号').asstring then begin s:=adotabl

while not adoTable3.Eof do begin
if s<>adoTable3.FieldByName('编号').asstring then begin
s:=adotable3.FieldByName('编号').asstring;
s1:=adotable3.FieldByName('是否发送').asstring;
if s1='是' then begin
listbox1.Items.Add(s);
在这里添加代码使添加的s字体变为绿色
end
else
begin
listbox1.Items.Add(s);
在这里添加代码使添加的s字体变为红色;
end;
end;
adoTable3.Next;
end;
谢谢大家了
我用RichEdit了

Answer 1

listbox即使修改了颜色也是暂时的
为什么不用DBLISTBOX呢?
那样可以通过书签来标记

Answer 2

afaerffs站

Answer 3

s

Answer 4

afaerffs