01.Public Sub bindataDetailOnhand()
02. Dim count, count2, k As Integer
03. count = dtDetail.Rows.Count
04. count2 = dtConfirm.Rows.Count
05. For i = 0 To count - 1
06. For k = 0 To count2 - 1
07. Dim dr As DataRow
08. dr = dtDetail.NewRow()
09. dr("ลำดับที่") = dtDetail.Rows.Count + 1
10. dr("รหัสยา") = dt.Rows(i)("MedCode")
11. dr("ชื่อยา") = dt.Rows(i)("MedNameTH")
12. If (rbDivide.Checked = True) And (dt.Rows(i)("MedCode") = dtConfirm.Rows(k)("ชื่อยา")) Then
13. dr("จำนวนที่เหลือ/ต่อหน่วย") = dt.Rows(i)("PortionOnhand") - CInt(dtConfirm.Rows(k)("จำนวนที่ต้องการ"))
14. Else
15. dr("จำนวนที่เหลือ/ต่อหน่วย") = dt.Rows(i)("PortionOnhand")
16. End If
17. dr("ราคาต่อหน่วย") = dt.Rows(i)("PricePerPortion")
18. If (rbPack.Checked = True) And (dt.Rows(i)("MedCode") = dtConfirm.Rows(k)("ชื่อยา")) Then
19. dr("จำนวนที่เหลือ/ต่อบรรจุภัณฑ์") = dt.Rows(i)("PackageOnhand") - CInt(dtConfirm.Rows(k)("จำนวนที่ต้องการ"))
20. Else
21. dr("จำนวนที่เหลือ/ต่อบรรจุภัณฑ์") = dt.Rows(i)("PackageOnhand")
22. End If
23. dr("ราคาต่อบรรจุภัณฑ์") = dt.Rows(i)("PricePerPackage")
24. dr("สถานะ") = dt.Rows(i)("Status")
25. count = count + 1
26. dtDetail.Rows.Add(dr)
27. Next
28. Next
29. dgvShowDetail.DataSource = dtDetail
30.
31.
32.End Sub
