Tùy chọn
[Hỏi] Đánh số thứ tự có điều kiện
- [Hỏi] Đánh số thứ tự có điều kiện
-
[Hỏi] Đánh số thứ tự có điều kiện
ncxn > 13-09-10, 04:52 PM
Hỏi: tbl (ID(auto), code(text), numChar(int))
1. Giờ muốn update dữ liệu vào field [numChar] từ 1->hết bảng ghi
2. Insert thêm một field [numGroup]
3. Update dữ liệu vào field [numGroup] với điều kiện sau
3.1 Lấy dữ liệu field [numChar] làm gốc cứ cách 10 số thì nhóm thành 1 Group, như thế số thứ tự từ 1-10 [numChar]-> [numGroup] (1)
3.2 Nếu (max[numChar]/10) có số dư từ 0->5 thì đánh số những ID này theo Group cuối cùng , nghĩa là nếu có [numChar] 1->25 thì 10 thuộc Group 1, 15 thuộc Group2
3.3 Nếu số dư trên từ 6-10 thì lấy (số dư +10)/2 . Sau đó đánh số bình thường (lúc này 2 Group cuối không phải là 10) với điều kiện group n có số ID < group n-1 . Nghĩa rằng nhóm cuối cùng bảo giờ cũng có số ID nhỏ nhất"
----------
Mình ngồi nghĩ hoài mà không biết viết thế nào với yêu cầu này
VBA nhé -
RE: [Hỏi] Đánh số thứ tự có điều kiện
Noname > 13-09-10, 09:21 PM
(13-09-10, 04:52 PM)ncxn Đã viết: Hỏi: tbl (ID(auto), code(text), numChar(int))
1. Giờ muốn update dữ liệu vào field [numChar] từ 1->hết bảng ghi
2. Insert thêm một field [numGroup]
3. Update dữ liệu vào field [numGroup] với điều kiện sau
3.1 Lấy dữ liệu field [numChar] làm gốc cứ cách 10 số thì nhóm thành 1 Group, như thế số thứ tự từ 1-10 [numChar]-> [numGroup] (1)
3.2 Nếu (max[numChar]/10) có số dư từ 0->5 thì đánh số những ID này theo Group cuối cùng , nghĩa là nếu có [numChar] 1->25 thì 10 thuộc Group 1, 15 thuộc Group2
3.3 Nếu số dư trên từ 6-10 thì lấy (số dư +10)/2 . Sau đó đánh số bình thường (lúc này 2 Group cuối không phải là 10) với điều kiện group n có số ID < group n-1 . Nghĩa rằng nhóm cuối cùng bảo giờ cũng có số ID nhỏ nhất"
----------
Mình ngồi nghĩ hoài mà không biết viết thế nào với yêu cầu này
VBA nhé
Cái này cũng đơn giản. Nhưng mình góp ý thế này. Việc thêm/bỏ field chỉ khi nào thật cần thiết như là khi phát triển ứng, và cần phát hành bản mới. Khi đó mình mới tiến hành thêm field.
Vì vậy việc thêm 1 field là không cần thiết vì bạn hoàn toàn có thể mở table và tự tạo 1 field mới.
Nếu bạn vẫn muốn thêm field bằng VBA thì nên tham khảo ở đây:
http://www.thuthuataccess.co.cc/forum/thread-118.html.
Câu 1, câu 3 và câu 4 bạn có thể gom chung trong 1 vòng lặp.
bằng cách gán
table cho 1 recordset. rs
Tạo ra biến i dùng để duyệt, j dùng lưu số cuối cùng của group
i=1
j=1
for i=1 to recordcount
rs("numChar") = i
rs("numGroup")=j
' kiểm tra biến i, cứ 10 số thì tăng lên 1 group
if (i mod 10) =0 then
j=j+1
end if
next i.
ý tưởng là vậy, bạn tự sửa lại cho thích hợp với điều kiện thực tế của mình! (điều kiện thứ 3 mình không rõ ý bạn lắm, bạn nên cho số cụ thể. Ví dụ từ numchar 1->26
1->10 group 1
11 -> group ?
15 -> group?
16 group ?
Ứng với mỗi trường hợp cụ thể bạn cho 1 kết quả cụ thể!
Thân! -
RE: [Hỏi] Đánh số thứ tự có điều kiện
ncxn > 14-09-10, 10:16 AM
À rắc rối là cái đk cuối:
1->10 -> gr 1
dư là 6 >5 vì thể số dư này giải quyết bằng cách :
(6+10)/2 (số dư>5 Cộng cho số lượng mỗi Gr là 10) chia cho 2 vì thế 2 Gr cuối là
(6+10)/2= 8
11->1
Gr2
19->26->Gr3
Nhưng nếu tổng số là 27 thì
int((7+10)/2)=8 dư 1
thì
11->19 : Gr: 2 (có 9 phần tử)
20->27 : Gr: 3 (Có 8 phần tử)
----------
Hì hì: cái vòng lặp thì ncxn viết khác một tý , nhưng chỗ không biết là dùng SQL update vào hay dùng thuộc tính racordset (cái này hồi giờ chưa có làm)?
-
RE: [Hỏi] Đánh số thứ tự có điều kiện
Noname > 14-09-10, 10:24 AM
(14-09-10, 10:16 AM)ncxn Đã viết: À rắc rối là cái đk cuối:
1->10 -> gr 1
dư là 6 >5 vì thể số dư này giải quyết bằng cách :
(6+10)/2 (số dư>5 Cộng cho số lượng mỗi Gr là 10) chia cho 2 vì thế 2 Gr cuối là
(6+10)/2= 8
11->1Gr2
19->26->Gr3
Nhưng nếu tổng số là 27 thì
int((7+10)/2)=8 dư 1
thì
11->19 : Gr: 2 (có 9 phần tử)
20->27 : Gr: 3 (Có 8 phần tử)
----------
Hì hì: cái vòng lặp thì ncxn viết khác một tý , nhưng chỗ không biết là dùng SQL update vào hay dùng thuộc tính racordset (cái này hồi giờ chưa có làm)?
Đọc vòng tới vòng lui vẫn không hình dung ra được. Khi mà mức ý niệm mình chưa có thì không thể thể hiện bằng ngôn ngữ lập trình được!
Dùng query Update cũng là cách. Nhưng theo kinh nghiệm của mình, nếu bạn cần update một số n record cho table A theo nguyên tắc nào đó thì dùng query nó chạy nhanh hơn. Trong trường hợp này đằng nào mình cũng duyệt table, nên nhân đó mình gán số .
Sau khi gán mình gọi rs.update
À, mà việc phân nhóm này ứng dụng vào việc gì thế! Bác có phân thử bằng bảng Excel chưa? -
RE: [Hỏi] Đánh số thứ tự có điều kiện
Noname > 14-09-10, 11:14 AM
À! Có phải ý bạn như thế này, mình lấy mẫu rộng ra một chút cho dễ hiểu!
Ví dụ 1: ta có 34 record (Click to View)Trường hợp tổng số record là 36 tương tự 37, khi đó: x1=x2=8 nên có làm tròn thì vẫn là 8Ví dụ 2: ta có 37 record (Click to View) -
RE: [Hỏi] Đánh số thứ tự có điều kiện
ncxn > 14-09-10, 02:20 PM
Bằng excel làm vài phút là xong hà
Như 2 ví dụ của bác là được
------
Ví dụ này hồi trước Cty có tổ chức đi chơi (khoản 1500 người) có dữ liệu sẵn ở Phòng Nhân Sự mình chỉ lấy ra để sắp xếp lại và đăng ký phòng cho họ (thực ra là 5 người 1 phòng) , phân biệt nam/ nữ...vợ chồng, gia đình... nói chung còn một số điều kiện rườm rà khác không có đưa lên đây
---
Việc đầu tiên là cho chương trình sx tự động sau đó public cho mọi người vào đăng ký , lúc này các điều kiện như vợ chồng, gia đình, số lượng ... mới có hiệu lực. hì hì
Làm excel thì giải quyết sx tự động thì nhanh nhưng tới khi cho người ta vô tự đăng ký thì ...chịu -
RE: [Hỏi] Đánh số thứ tự có điều kiện
Noname > 14-09-10, 02:25 PM
Hơi nhiêu khê một chút, nếu chỉ có nhu cầu xài 1 lần rồi thôi thì làm bằng Excel, xong import vào Access cho mọi người đăng ký!
Chứ ngồi mày mò viết cho khổ cực, rồi chỉ xài mỗi 1 lần thì phí quá! -
RE: [Hỏi] Đánh số thứ tự có điều kiện
Noname > 15-09-10, 01:43 AM
Mình demo thử yêu cầu của bạn nhé.
Giả sử bạn có 1 table DS(ID,code, numchar,group)
Đoạn code sau có lẽ đáp ứng được nhu cầu của bạn:
Giải thuật của mình như sau:
Mã:Private Sub Command1_Click()
Dim rs As Recordset
Dim i As Integer ' Bien de duyet
Dim j As Integer ' bien luu group
Dim X1 As Integer ' so phan tu group m-1
Dim X2 As Integer ' so phan tu group m
Dim n As Integer ' so record .
Set rs = CurrentDb.OpenRecordset("DS", dbOpenDynaset)
rs.MoveLast
n = rs.RecordCount 'vi du n=37
If (n Mod 10) > 5 Then
X1 = Round((((n Mod 10) + 10) / 2) + 0.5, 0)
X2 = Fix(((n Mod 10) + 10) / 2)
Else ' truong hop so du <5
X1 = n Mod 10
X2 = 0
End If
rs.MoveFirst
i = 1
j = 1
Do Until rs.EOF
'Cap nhat Numchar
rs.Edit
rs("numchar") = i
rs("group") = j
rs.Update
If ((i < (n - X1 - X2)) And ((i Mod 10) = 0)) Or ((i = (n - X1 - X2)) And (X1 > 5)) Or (i = n - X2) Then
j = j + 1
End If
i = i + 1
rs.MoveNext
Loop
rs.Close
End Sub
Mời xem file đính kèm -
RE: [Hỏi] Đánh số thứ tự có điều kiện
ncxn > 16-09-10, 03:42 PM
ò thanks nhé, chủ yếu là thuật toán và method thôi
-
RE: [Hỏi] Đánh số thứ tự có điều kiện
dinhvank19 > 04-11-10, 05:42 PM
Cảm ơn bạn đã chia sẽ