กระทู้เก่าบอร์ด อ.Yeadram
760 1
URL.หัวข้อ /
URL
ต้องการให้เรียงใหม่ตามชื่อ
Do Until i > CurrentDb.Containers("Reports").Documents.Count - 1
If CurrentDb.Containers("Reports").Documents(i).name Like "F1*" Then
Me.combo1.AddItem Item:=CurrentDb.Containers("Reports").Documents(i).name, Index:=k
code เป็นดังนี้ อ่านชื่อ Report มาใส่ Combobox โดยเลือกเอาชื่อที่ขึ้นต้นด้วย F1
คำถามชือ มัน add รายการตามลำดับ index (i) น่าจะเป็นลำดับของ วันที่ของการสร้าง แต่ผมต้องการให้มันเรียงตามชื่อ Reportname แม้ว่าจะสร้างทีหลังแต่ชื่อมาก่อนก็ต้องมาก่อน แก้ยังงัยครับ
ควรเพิ่มตรงไหน หรือมีแนวคิดอย่างไร
If CurrentDb.Containers("Reports").Documents(i).name Like "F1*" Then
Me.combo1.AddItem Item:=CurrentDb.Containers("Reports").Documents(i).name, Index:=k
code เป็นดังนี้ อ่านชื่อ Report มาใส่ Combobox โดยเลือกเอาชื่อที่ขึ้นต้นด้วย F1
คำถามชือ มัน add รายการตามลำดับ index (i) น่าจะเป็นลำดับของ วันที่ของการสร้าง แต่ผมต้องการให้มันเรียงตามชื่อ Reportname แม้ว่าจะสร้างทีหลังแต่ชื่อมาก่อนก็ต้องมาก่อน แก้ยังงัยครับ
ควรเพิ่มตรงไหน หรือมีแนวคิดอย่างไร
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R21378
แนวคิดคือ ก่อนการเพิ่มเข้าไปในคอมโบบ็อกซ์ ก็ต้องไล่เช็คตั้งแต่บรรทัดแรกในลิสท์ของคอมโบบ็อกซ์ไปทีละบรรทัดจกว่าจะพบว่า ชื่อรายงานที่กำลังจะเพิ่มมีค่ามากกว่าชื่อรายงานในบรรทัดที่แล้วของลิสท์ และมีค่าน้อยกว่าบรรทัดที่กำลังเช็คในลิสท์ ก็ให้เพิ่มแทรกเข้าไปครับ ก็ต้องคำนวนดีๆว่า index นั้นจะเป็นค่าเท่าไหร่ บรรทัดแรกในลิสม์ของคอมโบบ็อกซ์ ค่า index จะเริ่มจากศูนย์นะครับ
Time: 0.3185s
