VB : VB Read Data To Array And Extract To Use Data. To Read Data Again
Example :
End If
Example :
- Dim ArrayBarCode As ArrayList
- ArrayBarCode = New ArrayList
- .
- .
- .
- While myReader.Read()
- FirstCode = myReader.Item("FirstCode").ToString()
- AccountCode = myReader.Item("AccountCode").ToString()
- TypeCode = myReader.Item("TypeCode").ToString()
- SubTypeCode = myReader.Item("SubTypeCode").ToString()
- RunNo = myReader.Item("RunNo").ToString()
- If CheckBox_LastTransaction.Checked = True Then
- ArrayBarCode.Add(BarCode) '###### Add BarCode เข้า Array เพื่อไป Loop ออกรายงานอีกรอบ เพราะ Reader ซ่อน Loop ไม่ได้
- End If
- End While
- myReader.Close()
- Dim m As Long
- line = 5
- If CheckBox_LastTransaction.Checked = True Then
- firstSheet.getCellByPosition(8, 4).String = "ประวัติการโอนย้ายครั้งล่าสุด"
- For m = 0 To ArrayBarCode.Count - 1
- '########## Select Data From Other Table Again #############'
- SQLTmp = "SELECT OldUser,Reason,EmpName FROM sci_ams.asset_move " _
- & " LEFT JOIN sci._employees ON _employees.EmpID= asset_move.OldUser " _
- & " WHERE BarCode = '" & ArrayBarCode(m) & "' AND End = 'Y' " _
- & " ORDER BY Id DESC"
- myCommand.CommandText = SQLTmp
- myAdapter.SelectCommand = myCommand
- myReader = myCommand.ExecuteReader
- If (myReader.Read()) Then
- LastTransaction = myReader.Item("OldUser").ToString() & ":" & myReader.Item("EmpName").ToString() & " : " & myReader.Item("Reason").ToString()
- End If
- line = line + 1
- myReader.Close() '###### ต้อง Close ไม่อย่างนั้น ERROR เพราะอยู่ใน Loop อ่านจาก DB หลายรอบ
- Next
End If
