cxGrid

[ittipol]

เรียนสอบถามอาจารย์ครับ
คือผมใช้งาน cxGrid1แล้วแต่ cxNavigator ที่อยู่ใน cxGrid1 มาจากไหนครับ
ผมหาไม่เจอ ขออาจารย์ช่วยแนะนำหน่อยครับ

[armds]

อยู่ตรง optionsView ครับ

[ittipol]

ขอบคุณครับ
ของผมเป็น Delphi XE หาไม่เจอครับหรือว่าไม่มีครับ
อาจเป็น Delphi ที่สูงกว่าไหมครับ.ขอบคุณครับ

[Bond_007]

มีครับเพราะผมก็เป็น xe 

[ittipol]

เจอแล้วครับขอบคุณครับ
มันไปอยู่ลึกเข้าไปอีกหน่อยครับ

[ittipol]

อาจารย์ทุกท่าน ขอถามอีกนิดครับ
คือในตาราง cxGrid นะครับ ผมอยากได้ลำดับตัวเลขด้านหน้า
ของแต่ลำคอลัมให้เรียงลำดับแบบ 1,2,3,4,5,6
ไปเรื่อยๆๆอะไรแบบนั้นนะครับ แต่ไม่ได้ดึงจากฐานข้อมูลนะครับ
เป็นที่สร้างมาใหม่ให้เรียงเลขตามลำดับไปเลยครับ
( แบบการเรียง Count นะครับ )
ขอคำแนะนำด้วยนะครับ

[Bond_007]

ผิดพลาดประการใดขออภัยด้วยนะครับ ผมไม่ได้ทำมานานแล้วอาจลืม
procedure TFormDepartment.cxGrid1DBTableView1Column1GetDataText(
  Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: string);
begin
  AText:=IntToStr(ArecordInDex+1);
end;

[naj]

โค๊ด: Delphi

1. procedure TFormDepartment.cxGrid1DBTableView1Column1GetDataText(
2.   Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: string);
3. begin
4. AText:=inttostr(ARecord.Index+1);
5. end;
6.  

 

[ittipol]

เยี่ยมเลยครับอาจารย์
ขอถามต่ออีกนิดนะครับ
ในคอลัมน์ที่เป็น 0 นะครับ
ซึ่งในฐานเป็นแบบ Int
ถ้าผมอยากให้แสดงผลออกมาต้องใช้คำสั่งอะไรครับ
ขอคำชี้แนะด้วยครับ ขอบคุณครับ

[ittipol]

กรณีที่ข้อมูลแสดงเป็น 0 ทั้งหมด
เลือก Events – OnGetDisplayText

คำสั่ง
var

  AFocusedRecordIndex, ARecno: Integer;

begin

  ARecno := TcxGridDBTableView(Sender.GridView).DataController.DataSource.DataSet.RecNo;

  AFocusedRecordIndex :=  TcxGridDBTableView(Sender.GridView).Controller.FocusedRecordIndex;

  AText := IntToStr( ARecno - AFocusedRecordIndex + ARecord.Index);

end;

ลองดูนะครับ

[sAcIw-FX]

โค๊ด: Delphi

1. procedure TFormDepartment.cxGrid1DBTableView1Column1GetDataText(
2.   Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: string);
3. begin
4. AText:=inttostr(ARecord.Index+1);
5. end;
6.  

 

ขอบคุณครับ
วิธีนี้ง่ายสุดๆๆ