请教一下dbgrid列的显示和隐藏问题！谢谢！ |
|
尚未結案
|
|
200210
一般會員   發表：6 回覆：2 積分：1 註冊：2002-10-25 發送簡訊給我 |
大家好，我有两个表，A表（包含程序几百个字段），不想用INI文件！
因为如果窗口太多，每一个窗口都要有让拥护选择隐藏和显示dbgrid列！
biao ziduan visible
提单 yjmc true
提单 yjxh true
提单 danwei false
售单 yjmc false
...
B表在dbgrid中显示，
biao yjmc yjxh danwei 。。
提单 啤酒 5 斤
提单 酒类 6 斤 如果A表字段visible值true的时候，怎么把B表中的yjmc,yjxh这两列在dbgrid中藏呢！：）谢谢拉！如下： var
i :integer;
begin
for i:=0 to dbgrid.Columns.Count-1 do
begin
with adoquery2 do //查出visible表
begin
close;
sql.Clear;
sql.Add('select visible from A where biao=''jhmx''');
open;
with adoquery2 do
begin
close;
sql.clear;
sql.add('select * from B')
open
end;
//先从表A中找出visible这个字段，在看看ziduan这个字段的数据是否和dbgrid的字段一样。如果是就隐藏，可这样为什么没有显示？
if adoquery1.fieldbyname('visible').AsBoolean=true then
and (adoquery1.fieldbyname('ziduan').AsString=dbgrid1.Columns[i].FieldName) then
begin
dbgrid1.Columns[i].Visible:=false;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from B');
open;
end;
end;
这样为什么程序运行，dbgrid要隐藏的列就没有隐藏呢？还是老样子
在dbgrid仍然显示为：
biao yjmc yjxh danwei 。。
提单 啤酒 5 斤
提单 酒类 6 斤
而不是我想要的：
danwei 。。。。
斤 。。。。
斤 。。。
谢谢了，请帮忙！ 發表人 - 200210 於 2002/11/22 23:47:22 發表人 - 200210 於 2002/11/22 23:51:07
|
|
Miles
尊榮會員  發表：27 回覆：662 積分：622 註冊：2002-07-12 發送簡訊給我 |
發表時間：2002-11-22 23:46:06
IP:61.141.xxx.xxx 未訂閱
系統時間：2024-05-15 13:59:18
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |