【搞定】关于CLRModel.bpl 的报错**

tfb

运行功能报了下面这样的错误, 代码光标停留在下面这句:

datagrid1.ColumnByName('xh').Caption:='序号';  

这句的代码没问题的呀

请问是怎么回事呢?

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=7593

tfb

代码没什么问题呀,   请问那个报错是什么原因呢?

atiger

用2楼连接的10楼，用Columns，不是ColumnByName('xh')

tfb

为什么用ColumnByName() 就不行呢 ?

用Columns 不方便, 因为我现在用的Datagrid 它所显示的列数是可以变动的, 所以不好计算, 但用列名就方便的.

yancm

用ColumnByName必须是datagrid里面显式设置好的。自动生成的列会找不到。
而且名字也不是xh,可能是datagridxh,您可以用columns在运行时看一下他自动生成的名字是什么

for i:=1 to DataGrid1.ColumnCount-1 do  
  begin
        strColumnName := DataGrid1.Columns.Caption;
          if strColumnName = '基数' then
            DataGrid1.Columns.Caption := '系数';
          if strColumnName = '参保日期' then
            DataGrid1.Columns.Visible := False;
        end;

atiger

那直接修改数据集的显示名称就可以了，参考

http://bbs.justep.com/forum.php?mod=viewthread&tid=4312

tfb

for i:=0 to DataGrid1.ColumnCount-1 do
    begin
        strColumnName := DataGrid1.Columns.Name;
        jsdialogs.ShowMsg(strColumnName,'名称');
    end;
根据从这里看到的名称是: datagridxh,

但我这样用的时候还是会出现一楼的错误：

datagrid1.ColumnByName('datagridxh').colindex:=0;

tfb

应该是这个就对了 :
   datagrid1.ColumnByName('datagridcolumnxh').colindex:=0;

结贴吧！

yancm

谢谢tfb楼主分享经验。