BMS-HOSxP Community

HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: ittipol ที่ กรกฎาคม 08, 2013, 10:59:29 AM

หัวข้อ: cxGrid
เริ่มหัวข้อโดย: ittipol ที่ กรกฎาคม 08, 2013, 10:59:29 AM
เรียนสอบถามอาจารย์ครับ
คือผมใช้งาน cxGrid1แล้วแต่ cxNavigator ที่อยู่ใน cxGrid1 มาจากไหนครับ
ผมหาไม่เจอ ขออาจารย์ช่วยแนะนำหน่อยครับ
หัวข้อ: Re: cxGrid
เริ่มหัวข้อโดย: armds ที่ กรกฎาคม 08, 2013, 15:33:10 PM
อยู่ตรง optionsView ครับ
หัวข้อ: Re: cxGrid
เริ่มหัวข้อโดย: ittipol ที่ กรกฎาคม 09, 2013, 08:43:55 AM
ขอบคุณครับ
ของผมเป็น Delphi XE หาไม่เจอครับหรือว่าไม่มีครับ
อาจเป็น Delphi ที่สูงกว่าไหมครับ.ขอบคุณครับ
หัวข้อ: Re: cxGrid
เริ่มหัวข้อโดย: Bond_007 ที่ กรกฎาคม 09, 2013, 09:00:01 AM
มีครับเพราะผมก็เป็น xe  ;D
หัวข้อ: Re: cxGrid
เริ่มหัวข้อโดย: ittipol ที่ กรกฎาคม 09, 2013, 09:28:52 AM
เจอแล้วครับขอบคุณครับ
มันไปอยู่ลึกเข้าไปอีกหน่อยครับ
หัวข้อ: Re: cxGrid
เริ่มหัวข้อโดย: ittipol ที่ กรกฎาคม 09, 2013, 09:34:15 AM
อาจารย์ทุกท่าน ขอถามอีกนิดครับ
คือในตาราง cxGrid นะครับ ผมอยากได้ลำดับตัวเลขด้านหน้า
ของแต่ลำคอลัมให้เรียงลำดับแบบ 1,2,3,4,5,6
ไปเรื่อยๆๆอะไรแบบนั้นนะครับ แต่ไม่ได้ดึงจากฐานข้อมูลนะครับ
เป็นที่สร้างมาใหม่ให้เรียงเลขตามลำดับไปเลยครับ
( แบบการเรียง Count นะครับ )
ขอคำแนะนำด้วยนะครับ
หัวข้อ: Re: cxGrid
เริ่มหัวข้อโดย: Bond_007 ที่ กรกฎาคม 09, 2013, 13:12:01 PM
ผิดพลาดประการใดขออภัยด้วยนะครับ ผมไม่ได้ทำมานานแล้วอาจลืม
procedure TFormDepartment.cxGrid1DBTableView1Column1GetDataText(
  Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: string);
begin
  AText:=IntToStr(ArecordInDex+1);
end;
หัวข้อ: Re: cxGrid
เริ่มหัวข้อโดย: naj ที่ กรกฎาคม 09, 2013, 13:37:17 PM
โค๊ด: Delphi
  1. procedure TFormDepartment.cxGrid1DBTableView1Column1GetDataText(
  2.   Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: string);
  3. begin
  4. AText:=inttostr(ARecord.Index+1);
  5. end;
  6.  

 :)
หัวข้อ: Re: cxGrid
เริ่มหัวข้อโดย: ittipol ที่ กรกฎาคม 10, 2013, 09:02:57 AM
เยี่ยมเลยครับอาจารย์
ขอถามต่ออีกนิดนะครับ
ในคอลัมน์ที่เป็น 0 นะครับ
ซึ่งในฐานเป็นแบบ Int
ถ้าผมอยากให้แสดงผลออกมาต้องใช้คำสั่งอะไรครับ
ขอคำชี้แนะด้วยครับ ขอบคุณครับ
หัวข้อ: Re: cxGrid
เริ่มหัวข้อโดย: ittipol ที่ มีนาคม 18, 2015, 11:43:17 AM
กรณีที่ข้อมูลแสดงเป็น 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;

ลองดูนะครับ
หัวข้อ: Re: cxGrid
เริ่มหัวข้อโดย: sAcIw-FX ที่ กุมภาพันธ์ 25, 2016, 13:09:06 PM
โค๊ด: Delphi
  1. procedure TFormDepartment.cxGrid1DBTableView1Column1GetDataText(
  2.   Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: string);
  3. begin
  4. AText:=inttostr(ARecord.Index+1);
  5. end;
  6.  

 :)

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