|

楼主 |
发表于 2008-11-25 12:02:02
|
显示全部楼层
我按照你说的做了,但是我一点击过去,焦点就划到最后一行,什么都没做
代码是
ListView1.Items.Clear;
DataSetBZSJJ1.First;
while not DataSetBZSJJ1.Eof do
begin
if DataSetBZSJJ1.FieldByName('XZ').AsInteger=1 then
begin
AddName(self,DataSetBZSJJ1.FieldByName('XM').AsString,DataSetBZSJJ1.FieldByName('LXDH').AsString,DataSetBZSJJ1.FieldByName('SFDM').AsString);
end;
DataSetBZSJJ1.Next;
end;
----
代码应该没错的,因为我把代码放到按钮事件是可以实现的 |
|