这是我的销售单的原代码,请大家看看,为什么不能输入unit xiaoshoudan;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, Db, DBTables;type
  Txiaoshoudanfrm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    Panel8: TPanel;
    DBEdit8: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel9: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DataSource2: TDataSource;
    Table2: TTable;
    Panel10: TPanel;
    DBEdit9: TDBEdit;
    DBNavigator1: TDBNavigator;
    procedure FormActivate(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  xiaoshoudanfrm: Txiaoshoudanfrm;implementation
uses jinshouren;{$R *.DFM}procedure Txiaoshoudanfrm.FormActivate(Sender: TObject);
begin
 table1.insert;
 table2.insert;
end;

解决方案 »

  1.   

    应该是没有问题的啊!!!你在哪个表输入不行啊,主表还是细表,是在DBGrid1中还是在TDbEdit中,错误信息是什么,要不怎么帮你啊?你是不是将ReadOnly属性设成True了,或者将DBGrid1的Options中的dsEditing设成False了
      

  2.   

    我是细表不行,主表也是用做输入用的,用了很多dbedit;