在DBGRID中,知道了行号和字段名的情况下怎样去取对应原字段值?
解决方案 »
- 如何去掉多余的引用单元?
- 对象做参数时是值传递还是引用传递?
- delphi的代码的转化
- 有没有人做过IP端口映射的程序?映射的代码不知从何入手,高手赐教.
- DBDateTimeEditEH1.Value的问题?
- delphi里有没有监视webserive过程的工具?我想看传过来的soap内容?
- delphi从数据库中读取数据,然后生成EXCEL文件的一些问题(只有30分了,全给了)
- 如何用代码在Edit框的光标后插入字符?
- TStingList的Free方法和Destroy方法有什么区别?
- XE10.1 berlin 请问有没有改程序图标失败的?
- 帮忙,一条SQL语句问题!解决后马上给分
- 关于spcomm 的问题 急!!在线等待
只要清楚是和什么东西相连就可以取出了
table1.fieldbyname('sdfadsf').asstring
变量 := DBGrid.DataSource.DataSet.FieldByName('字段名称').AsString;没有问题
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
RowIndex,ColumnIndex:Integer;
begin
RowIndex:=DBGrid1.MouseCoord(X,Y).Y-1;
ColumnIndex:=DBGrid1.MouseCoord(X,Y).X-1;//根据 ColumnIndex 可得知字段名:
if (columnindex>=0) and (rowindex>=0) and (columnindex<=dbgrid1.Columns.Count) then
begin
DBGrid1.DataSource.DataSet.RecNo:=rowindex;
// table1.RecNo:= rowindex;
//table1.DataSource.DataSet.RecNo:=rowindex;
edit1.Text:=dbgrid1.DataSource.DataSet.fieldbyname(dbgrid1.Columns[ColumnIndex].FieldName).AsString;
// edit1.Text :=dbgrid1.Columns[ColumnIndex].FieldName ;
end;
end;