使用tms吧,IWGrid定位有些困难 procedure TIWMzForm.TIWDBAdvWebGridNlCellClick(Sender: TObject; RowIndex, ColumnIndex: Integer); var ls_sql,ASfid,Adate,Azy:string; begin //定位 if ADOMx.IsEmpty then exit; ASfid:=TIWDBAdvWebGridNl.CellValues[1,RowIndex]; Adate:=TIWDBAdvWebGridNl.CellValues[3,RowIndex]; Azy:=TIWDBAdvWebGridNl.CellValues[5,RowIndex]; ADOMx.Locate('sfid;Mzsj;Mzxm',VarArrayOf([ASfid,Adate,Azy]),[]); ......................
procedure TIWForm1.IWGrid1CellClick(ASender: TObject; const ARow,
AColumn: Integer);
procedure TIWMzForm.TIWDBAdvWebGridNlCellClick(Sender: TObject; RowIndex,
ColumnIndex: Integer);
var
ls_sql,ASfid,Adate,Azy:string;
begin
//定位
if ADOMx.IsEmpty then exit;
ASfid:=TIWDBAdvWebGridNl.CellValues[1,RowIndex];
Adate:=TIWDBAdvWebGridNl.CellValues[3,RowIndex];
Azy:=TIWDBAdvWebGridNl.CellValues[5,RowIndex];
ADOMx.Locate('sfid;Mzsj;Mzxm',VarArrayOf([ASfid,Adate,Azy]),[]);
......................