怎样在程序中控制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; 找个学生兼职开发一个简单的会员积分软件(北京) Unsported 16bit resource in file 何故??? 告之!!! 如何string内容复制到char数组中? 简单的关于asp调用delphi动态链接库的问题 treeview节点可见与不可见问题 在下写的一个绚丽多彩的3D花篮,现在公布源代码,希望和大家共同切磋交流:) 为什么会出错? ◆◇◆用过indy组件的高手请进!!!!!!!◆◇◆ 如何得到未执行完的线程数? getmem 用途 ? 散分啦!关于.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;