双击DBgrid2的一行记录,得到该行记录,同时将该条记录的每个字段的值赋给edit1.text,该如何处理
双击DBgrid2的一行记录,得到该行记录,同时将该条记录的每个字段的值赋给edit1.text
双击DBGrid2 的一个单元格,可以得到该单元格的内容
可不可以 双击DBGrid2的一行,得到该行的所有内容,同时将内容赋到
edit1.text (或combobox) 中
其中记录中的空值,也能赋到文本框(或combobox)中,
初学delphi 有很多属性,方法不知道
请多指教!!
非常感谢!!
------解决方案--------------------
可以用一个循环,依次获取这些字段的值。
例:
var
i:integer;
aStr:String;
begin
for i:=0 to DBGrid1.Columns.Count -1 do
aStr:=aStr+#9+DBGrid1.Columns[i].Field.AsString;
ShowMessage( '当前行的值为: '+#13+#13+aStr);
end;
------------------------------------
http://kmok.cn/
------解决方案--------------------
直接从连接Grid的Query中取数即可
Edit1.text:=Query1.FieldByname( '字段1 ').Asstring+Query1.FieldByname( '字段2 ').Asstring
------解决方案--------------------
Edit1.text:=Query1.FieldByname( '字段1 ').Asstring+Query1.FieldByname( '字段2 ').Asstring
------解决方案--------------------
dbgrid的operation 属性里把rowselected设置为true即可实现选中dbgrid的一条记录。
Edit1.text:=ADOTABLE.FieldByname( '字段1 ').Asstring+ADOTABLE.FieldByname( '字段2 ').Asstring
依次类推
------解决方案--------------------
dbgrid的operation 属性里把rowselected设置为true即可实现选中dbgrid的一条记录。
Edit1.text:=ADOTABLE.FieldByname( '字段1 ').Asstring
edit2.text:=ADOTABLE.FieldByname( '字段2 ').Asstring
双击DBGrid2 的一个单元格,可以得到该单元格的内容
可不可以 双击DBGrid2的一行,得到该行的所有内容,同时将内容赋到
edit1.text (或combobox) 中
其中记录中的空值,也能赋到文本框(或combobox)中,
初学delphi 有很多属性,方法不知道
请多指教!!
非常感谢!!
------解决方案--------------------
可以用一个循环,依次获取这些字段的值。
例:
var
i:integer;
aStr:String;
begin
for i:=0 to DBGrid1.Columns.Count -1 do
aStr:=aStr+#9+DBGrid1.Columns[i].Field.AsString;
ShowMessage( '当前行的值为: '+#13+#13+aStr);
end;
------------------------------------
http://kmok.cn/
------解决方案--------------------
直接从连接Grid的Query中取数即可
Edit1.text:=Query1.FieldByname( '字段1 ').Asstring+Query1.FieldByname( '字段2 ').Asstring
------解决方案--------------------
Edit1.text:=Query1.FieldByname( '字段1 ').Asstring+Query1.FieldByname( '字段2 ').Asstring
------解决方案--------------------
dbgrid的operation 属性里把rowselected设置为true即可实现选中dbgrid的一条记录。
Edit1.text:=ADOTABLE.FieldByname( '字段1 ').Asstring+ADOTABLE.FieldByname( '字段2 ').Asstring
依次类推
------解决方案--------------------
dbgrid的operation 属性里把rowselected设置为true即可实现选中dbgrid的一条记录。
Edit1.text:=ADOTABLE.FieldByname( '字段1 ').Asstring
edit2.text:=ADOTABLE.FieldByname( '字段2 ').Asstring