不是有DBEdit部件吗?为什么不用呢。
解决方案 »
- 谁能帮忙把delphi程序段翻译成C#的?
- 求助。grid里怎么能让单元格固定焦点
- 如何让敲击回车来替代鼠标单击(意思是:我想直接按回车就让光标焦点跳到下一控件上)
- 如何取消查询操作?
- 着急的问题!!如何将treeview上的信息保存到数据库表中去,最好有程序啦!!
- 请用过Ehlib的人请进(PrintDBGridEh)
- delphi中SQL的UPDATE的写法求教,在线等,请高手们帮忙啊!!
- Delphi中CHM帮助文件使用的问题。
- 外包业务合作
- delphi7 控件rxdbgrid显示问题
- 我不知道在那里找Delphi5.0 ADOExpress的升级包。
- 小弟我写了个flash播放器,能把swf转换为屏保,请帮忙测试!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Table1: TTable;
Edit1: TEdit;
procedure DBGrid1CellClick(Column: TColumn);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
edit1.Text:=table1.Fields[0].AsString;
end;end.
edit1.text:=Field.asstring
var
s:variant;
begin
s:=dbgrid1.selectdfield.value;
edit1.text:=s;
或者:
var
s:string;
begin
s:=dbgrid1.selectdfield.value;
edit1.text:=s;
运行时显示'invalid varian type convision'
请问这时什么原因?