帮忙看一下错误

Question

procedure Tyeargzydfrm.BitBtn1Click(Sender: TObject);
var
  sqlquery:string;
  i:integer;
beginsqlquery:='select substring(zfzj,charindex(''发证日期'',zfzj)+18,10)'+' as 发证日期 from rypb ';
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(sqlquery);
adoquery1.Open;
adoquery1.First;if  not adoquery1.Active then
  adoquery1.Edit;
for i:= 0 to adoquery1.RecordCount-1 do
begin
  adoquery1.edit;
  dbgrid1.ReadOnly:=false;
  dbgrid1.Fields[i].AsString:='A';
  adoquery1.Next;
end;
end;
出现field '发证日期'不能被修改的错误提示。

Answer 1

出现field '发证日期'不能被修改的错误提示这个字段是你的as 出来的别名，　当然不能被修改了。　

Answer 2

在dbgrid中能不能一格显示多行？能不能显示memo类型？

Answer 3

当然可以，但必须通过自己在oncell事件里把memo或其它的控件画上去

Answer 4

帮你找了一段。 Delphi提供了功能强大的 DBGrid组件，以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是一个简单的文本编辑框，不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入，比如DBComboBox，DBCheckBox等组件，但这些组件却没有DBGrid功能强大。Delphi能不能象Visual Foxpro那样让DBGrid中获得焦点网格可以是其它可视数据组件以方便用户呢？其实我们可以通过在DBGrid中插入其他可视组件来实现这一点。  ---- Delphi对DBGrid处理的内部机制，就是在网格上浮动一个组件——DBEdit组件。你输入数据的网格其实是浮动DBEdit组件，其他未获得焦点地方不过是图像罢了。所以，在DBGrid中插入其他可视组件就是在网格上浮动一个可视组件。因此任何组件，包括从简单的DbCheckBox到复杂的对话框，都可以在DBGrid中插入。下面就是一个如何在DBGrid中插入DBComboBox组件的步骤，采用同样的办法可以插入其他组件。  
---- 1、 在Delphi 4.0中新建一个项目。  
---- 2、 分别拖动的Data Access组件板上DataSource、Table，Data Controls组件板上DBGrid，DBComboBox四个组件到Form1上。  
---- 3、 设置各个组件的属性如下：  rcf1对象  属性 设定植  
Form1 Caption   '在DBGrid中插入SpinEdit组件示例'  
DataSource1 DataSet Table1  
Table1 DatabaseName DBDEMOS  
　 TableName 'teacher.DBF'  
　 Active True  
DBGrid1 DataSource DataSource1  
DBComboBox1 DataField SEX  
　 DataSource DataSource1  
　 Visible False  
　 Strings Items.       '男'| '女'  ---- 注意：我在这里用了Teacher.dbf，那是反映教职工的性别，只能是“男”或者是“女”。  ---- 4、 DrawDataCell事件是绘制单元格，当获得焦点网格所对应的字段与组合框所对应的字段一致时，移动组合框到获得焦点的网格上，并且 
使组合框可视，从而达到在DBGrid指定列上显示DBComboBox的功能。设置DBGrid1的OnDrawDataCell事件如下：  
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;  Field: TField; State: TGridDrawState); 
begin 
    if (gdFocused in State) then 
    begin 
        if (Field.FieldName = DBComboBox1.DataField ) then 
        begin 
            DBComboBox1.Left := Rect.Left + DBGrid1.Left; 
            DBComboBox1.Top := Rect.Top + DBGrid1.top; 
            DBComboBox1.Width := Rect.Right - Rect.Left; 
            DBComboBox1.Height := Rect.Bottom - Rect.Top; 
            DBComboBox1.Visible := True; 
     end; 
  end; 
end; ---- 5、 DBGrid指定单元格未获得焦点时不显示DBComboBox，设置DBGrid1的OnColExit事件如下：  
procedure TForm1.DBGrid1ColExit(Sender: TObject); 
begin 
    If DBGrid1.SelectedField.FieldName  = DBComboBox1.DataField then 
    begin 
        DBComboBox1.Visible := false; 
   end; 
end; ---- 6、 当DBGrid指定列获得焦点时DrawDataCell事件只是绘制单元格，并显示DBComboBox，但是DBComboBox并没有获得焦点，数据的输入还是在单元格上进行。在DBGrid1的KeyPress事件中调用SendMessage这个 Windows API函数将数据输入传输到DBComboBox上，从而达到在DBComboBox上进行数据输入。因此还要设置KeyPress事件如下：  
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); 
begin 
    if (key < > chr(9)) then 
    begin 
        if (DBGrid1.SelectedField.FieldName   =DBComboBox1.DataField) then 
        begin 
             DBComboBox1.SetFocus; 
             SendMessage(DBComboBox1.Handle, WM_Char, word(Key), 0); 
        end; 
    end; 
end; ---- 程序在中文Windows 98，Delphi 4.015 下调试通过。希望本文能使你可以更加方便快捷的开发数据库应用程序。  这段代码我以前用过。　可以通过。

Answer 5

你只要把DBComboBox1换成你要的memo就行。

Answer 6

这样是不是只是在获得焦点的那个表格里才能看见dbmemo中的内容，
而我是想在字段类型为memo的那一列数据都能显示。