adoquery1.SQL.Clear;
adoquery1.Close;
a:=combobox1.Items.Strings[combobox1.itemindex];//每次插入这都为空,数值进不来
adoquery1.SQL.Add('insert into danju(dj_dh,'+
'dj_ghlr)');
adoquery1.SQL.Add('values('+edit1.text+','+char(39)+a+char(39)+')');
adoquery1.ExecSQL;combobox的style 要为csOwnerDrawFixed吗?
adoquery1.Close;
a:=combobox1.Items.Strings[combobox1.itemindex];//每次插入这都为空,数值进不来
adoquery1.SQL.Add('insert into danju(dj_dh,'+
'dj_ghlr)');
adoquery1.SQL.Add('values('+edit1.text+','+char(39)+a+char(39)+')');
adoquery1.ExecSQL;combobox的style 要为csOwnerDrawFixed吗?
改成
a:=combobox1.Items[combobox1.itemindex];
adoquery1.SQL.Add(' values('+edit1.text+','''+char(39)+a+char(39)+''')');