Q&A

  • 에디트 박스에 리스트박스의 내용을 저장할 수 없나요?제발~~
데이터베이스 테이블의 테이블의 레코드를 리스트 박스에 불러 들였습니다.

만약 리스트 박스의 어느 한 항목을 클릭했을경우 그 레코드의 일부 내용을 에디트박스에 불러들이려 하는데 아무것도 나타나질 않습니다. 제발좀 알려주세요~~~



procedure TForm1.ListBox1Click(Sender: TObject);

var bupumcost:string;

begin

with query1 do begin

close;

sql.clear;

sql.add('select B_code, B_name, B_cost from bupum');

sql.add('where B_cost != 0');



while not eof do

begin

bupumcost := query1.fieldbyname('B_cost').asstring;

edit1.text := bupumcost;



** 참고적으로 위의 소스코드 상위에서 sql을 한번 실행하였슴. **

이 게시물을
1  COMMENTS
  • Profile
    사발우성 • 2000.10.27 05:54
    ^^ 울트라 초보맨 사발임당..



    에디트박스에 리스트박스의 아이템을 집어넣는 방법은 담과 같습니다.

    리스트박스 클릭이벤트에

    edit1.text:= listbox1.items[listbox1.itemindex];

    이렇게 하시면 되는디 --;; 헐...



    클릭이벤트에 이한줄만있음 만사오케 ㅋㅋㅋ ^^ 그럼 즐푸여 ^^
←First Page
2159 2160 2161 2162 2163 2164 2165 2166 2167 2168
Last Page→
한델 로그인 하기