DataSet.AfterScroll 事件中
Edit.text :=   XXXXXX

解决方案 »

  1.   

    OnCellClick事件中写: 
    Edit.text := DBGrid1.Fields[0].Asstring;
      

  2.   

    如果只是点击,可以在oncellclick里写在DataSet.AfterScroll里写的不能反应在未移动记录而被更改的数据;比如我们更改了columns[0]的资料,却只将它往右移动一样,则在AfterScroll里不能反映
      

  3.   

    問題(1): 
     DataSet不事控件吧!我的數據庫控件都放在datamodule中了. ltmb118() 說的是
    datasource.AfterScroll吧? 哪有DataSet控件??
    問題(2): 
       不是oncellclick事件應該是onColEnter事件吧??,我是想點擊一條紀錄里的任意一個字段,
    都執行;
        Edit1.Text:=dbgrid1.columns[0].value  -----()
        
      

  4.   

      我不允許在dbgrid1進行修改字段,在dbgrid1修改字段很難看.我把紀錄里的第一個字段的值賦
    給Edit1.Text,第二個字段的值賦給Edit2.Text( 或ComboBox ).....
      然後在Edit或ComboBox 中更改值,再點按鈕button1提交.這樣可以逕行合法性檢查,也能清空,
    逕行插入.比用DBEdit或DbComboBox好!!!!
        怎麼寫????
        Edit1.Text:=dbgrid1.columns[0].value  -----()
        
      

  5.   

    to: cszhz(丑小鸭) 
      我的事件是點擊記錄顯示記錄中所有字段,而不是點擊記錄只顯示被擊中的字段呀!!!大哥   怎麼寫????
    procedure Tstaffform.DBGrid1ColEnter(Sender: TObject);
    begin
          Edit1.Text:=dbgrid1.columns[0].value  -----()
        Edit2.Text:=dbgrid1.columns[1].value  -----()
    end;