이무순 께서 말씀하시기를...

> 안녕하세요...

> 질문1. DBgrid에서 MultiSelect할때 10개의 Record중에서 만약 1,3,5,8을

> 선택하고 선택된 항목만 읽을 수 있게 하는 방법좀.....

> 예) for AddCount := 1 to frmCUSVAL.dbgCusval.SelectedList.Count do

> begin

> if frmCUSVAL.qCUSVAL.EOF then break;

> ........

> ........

> .......

> ?????? (만약, frmCUSVAL.qCUSVAL.NEXT; 를 쓰면 1 부터 10 까지

> 전부 읽음)

> end;

>

> ????? 에 써야할 내용좀 부탁 드립니다.



다음은 디비드리드에서 멀티셀렉트 한밗을 읽어오는 부분입니다.

참고하세요.



procedure TForm1.SelectClick(Sender: TObject);

var

x: word;

TempBookmark: TBookMark;

begin

DBGrid1.Datasource.Dataset.DisableControls;

with DBgrid1.SelectedRows do

if Count > 0 then

begin

TempBookmark:= DBGrid1.Datasource.Dataset.GetBookmark;

for x:= 0 to Count - 1 do

begin

if IndexOf(Items[x]) > -1 then

begin

DBGrid1.Datasource.Dataset.Bookmark:= Items[x];

showmessage(DBGrid1.Datasource.Dataset.Fields[1].AsString);

end;

end;

DBGrid1.Datasource.Dataset.GotoBookmark(TempBookmark);

DBGrid1.Datasource.Dataset.FreeBookmark(TempBookmark);

end;

DBGrid1.Datasource.Dataset.EnableControls;

end;