1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
|
Dim MyReader As OleDbDataReader = MyCmd.ExecuteReader()
Do While MyReader.Read()
Dim strRow(descDGV.Count - 1)
For ind = 0 To descDGV.Count - 1
Select Case descDGV.DataType(ind)
Case "TEXTBOX"
strRow(ind) = MyReader.GetValue(ind).ToString
Case "TEXTBOX_NUM"
Dim valInt As Double
valInt = Convert.ToDouble(Decode(MyReader.GetValue(ind).ToString, "", "0", MyReader.GetValue(ind)))
strRow(ind) = valInt.ToString("#,###,###,###,##0.00")
Case "TEXTBOX_NUM_TX"
Dim valInt As Double
valInt = Convert.ToDouble(Decode(MyReader.GetValue(ind).ToString, "", "0", MyReader.GetValue(ind)))
strRow(ind) = valInt.ToString("#,###,###,###,##0.################")
Case "TEXTBOX_DATE"
Dim valDate As DateTime
If MyReader.GetValue(ind).ToString <> "" Then
valDate = MyReader.GetValue(ind).ToString
If Len(valDate) > 10 Then
valDate = valDate.ToString("dd/MM/yyyy hh:mi:ss")
Else : valDate = valDate.ToString("dd/MM/yyyy")
End If
strRow(ind) = valDate
End If
Case "CHECKBOX"
strRow(ind) = Decode(MyReader.GetValue(ind).ToString, "Y", True, False)
End Select
Next
myDT.Rows.Add(strRow)
Loop
MyReader.Close() |
Partager