김시준
(김시준)
|
|
else 문장 때문에 그런 것 같네요...
if 문으로 갯수 만큼 비교해야.....
2017-10-16 오후 1:31:54
|
|
| |
쭈니
(쭈쭈쭈쭈닝)
|
|
음... 그럼
if CB01.Checked then
begin
Sql.ADD(' AND BSNTYPE_CD NOT IN (''01'') ');
end
else -- 가 아닌
if 로 그냥 내려가야하나여..?
2017-10-16 오후 1:44:34
|
|
| |
김시준
(김시준)
|
|
체크박스가 5개 있으면 5번 체크를 해야 하겠지요..
근데 if ~ else로 체크하면 한 번 밖에는 체크가 안되겠지요...
질문처럼 cb01, cb02가 체크돼 있다면 첫 번째 if문을 타고 else 이후는 수행이 안됩니다.. 그러니 결과는 항상 cb01만 체크 한 걸로 나오겠지요...
2017-10-16 오후 2:10:09
|
|
| |
쭈니
(쭈쭈쭈쭈닝)
|
|
아... 예를 들면
if CB01.Checked then
으로 01을 체크했으면 else 는 체크 안되어서 다나오는 결과로해서
if CB01.Checked 랑 CB02.Checked 를 따른 if로 사용하라는 말씀이신거네요!!
2017-10-16 오후 2:30:13
|
|
| |
김시준
(김시준)
|
|
// 아래처럼....
procedure TForm3.Button1Click(Sender: TObject);
var
s: string;
begin
s := '';
if CheckBox1.Checked then
s := '"01"';
if CheckBox2.Checked then
if s <> '' then
s := s + ',' + '"02"'
else
s := '"02"';
if CheckBox3.Checked then
if s <> '' then
s := s + ',' + '"03"'
else
s := '"03"';
if CheckBox4.Checked then
if s <> '' then
s := s + ',' +'"04"'
else
s := '"04"';
if CheckBox5.Checked then
if s <> '' then
s := s + ',' + '"05"'
else
s := '"05"';
if s <> '' then
s := Format('AND FIELD NOT IN (%s);', [s]);
ShowMessage(s);
end;
2017-10-16 오후 2:46:29
|
|
| |
쭈니
(쭈쭈쭈쭈닝)
|
|
아.. 이렇게 하니깐 뒤에 쿼리문이 안붙어서 지금 수정하구있어요 ㅎㅎ 감사합니당 !! 뒤에 쿼리문이 더있다보니깐.. 마지막 엔드절부분부터 안먹네요 ㅠ
2017-10-16 오후 5:39:14
|
|
| |
coding
(권순호)
|
|
컴포넌트의 Tag 필드와 델파이 Set 기능을 이용하면
코드를 상당히 간결하게 작성할 수 있을 듯. ㅋㅋ
2017-10-16 오후 8:32:56
|
|
| |
