怎样在程序中控制wwDBGrid中的某些字段是否显示以及显示的顺序? 关于DBGrid的同样给分 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 DbGrid.DataSource.DataSet.FieldByName('字段名').Visible := False; 应该是设置wwDBGrid的controltype属性,但具体不清楚怎么做 哥们可以这样//控制显示DbGrid.DataSource.DataSet.FieldByName('字段名').Visible := False;//控制顺序,不过先建立列对象dbgrid1.Columns[0].Title.caption:='字段名';//表格控件上字段的标题DbGrid.Columns[0].fieldname:='字段名'; 不行,设置以后没有任何变化,代码如下:wwDBGrid1.DataSource.DataSet.FieldByName('smallkind').Visible:=False; 可以在DrawColumnCell事件里面加上代码 if column.FieldName='smallkind' then column.Visible:=False; 显示顺序可以这样设置DBGrid1.Column[0].FieldName='f1'DBGrid1.Column[1].FieldName='f2'... wwDBGrid不能这样用,会出现“Cannot assign to a read-only property” 源代码如下:begin inputAdoq.Close; inputAdoq.SQL.Clear; inputAdoq.SQL.Add('Select *'); inputAdoq.SQL.Add('from cdRecord'); inputAdoq.SQL.Add('Where autoname<>null'); if infotypeComb.Text<>'' then case infotypeComb.itemindex of 0:begin inputAdoq.SQL.Add('AND (brand<>'''' and brand<>null)'); wwDBGrid1.Columns[0].FieldName:='bigkind' ; //wwDBGrid1.DataSource.DataSet.FieldByName('bigkind').Visible:=False; end; 1:begin inputAdoq.SQL.Add('AND (brand='''' or brand=null)'); wwDBGrid1.DataSource.DataSet.FieldByName('smallkind').Visible:=False; end; end; inputAdoq.SQL.Add('order by nspDate'); inputAdoq.Open; notesAdoq.Open;end; 关于程序只运行一次并激活已打开的程序的问题请教 海天一线你个吝啬鬼,给你分 如何保存文件到d7中 如何用Tmaskedit控件限定输入格式为G-121形式?(在线) 如何在listbox中加上水平滚动条?再线等待。。。 关于Tupdatesql的问题 如何使用进度条? 急救!!! 求教高手,怎样使自己的控件能响应鼠标中键? 如何取得TWebbrowser中鼠标选取的区域? 散分啦!关于.chm帮助文件的问题 delphi中的16进制怎么表示啊?
//控制显示
DbGrid.DataSource.DataSet.FieldByName('字段名').Visible := False;
//控制顺序,不过先建立列对象
dbgrid1.Columns[0].Title.caption:='字段名';//表格控件上字段的标题
DbGrid.Columns[0].fieldname:='字段名';
wwDBGrid1.DataSource.DataSet.FieldByName('smallkind').Visible:=False;
if column.FieldName='smallkind' then
column.Visible:=False;
DBGrid1.Column[0].FieldName='f1'
DBGrid1.Column[1].FieldName='f2'...
“Cannot assign to a read-only property”
inputAdoq.Close;
inputAdoq.SQL.Clear;
inputAdoq.SQL.Add('Select *');
inputAdoq.SQL.Add('from cdRecord');
inputAdoq.SQL.Add('Where autoname<>null'); if infotypeComb.Text<>'' then
case infotypeComb.itemindex of
0:begin
inputAdoq.SQL.Add('AND (brand<>'''' and brand<>null)');
wwDBGrid1.Columns[0].FieldName:='bigkind' ;
//wwDBGrid1.DataSource.DataSet.FieldByName('bigkind').Visible:=False;
end;
1:begin
inputAdoq.SQL.Add('AND (brand='''' or brand=null)');
wwDBGrid1.DataSource.DataSet.FieldByName('smallkind').Visible:=False;
end;
end; inputAdoq.SQL.Add('order by nspDate');
inputAdoq.Open;
notesAdoq.Open;
end;