prague12

'----混合table 後 依時間排序---------
Dim Table_mix As New DataTable
'產生強型欄位
Table_mix.Columns.Add("DataTime", System.Type.GetType("System.DateTime")) '0
Table_mix.Columns.Add("AlarmCount", System.Type.GetType("System.Int32")) '1
Table_mix.Columns.Add("ActionCount", System.Type.GetType("System.Int32")) '2

For Each row In Table_AlarmRate.Rows
Dim rr As DataRow
rr = Table_mix.NewRow
rr(0) = row(0)
rr(1) = row(1)
rr(2) = 0
Table_mix.Rows.Add(rr)
Next
For Each row In Table_AlarmAction.Rows
Dim rr As DataRow
rr = Table_mix.NewRow
rr(0) = row(0)
rr(1) = 0
rr(2) = row(1)
Table_mix.Rows.Add(rr)
Next
Dim Table_mix_sortRows = From row In Table_mix Order By row.Item(0) Ascending Select row '依時間項(0)排序
' DataGridView2.DataSource = ss.CopyToDataTable
'Dim Table_mix_orderbyTime = ss.CopyToDataTable

' Dim NN = ss.Count
' Table_mix.Clear()
Dim Table_mix_orderbyTime As New DataTable
For Each col In Table_mix.Columns
Table_mix_orderbyTime.Columns.Add(col.ToString)
Next
For Each row In Table_mix_sortRows
Table_mix_orderbyTime.ImportRow(row)
' Dim a = 1
Next

DataGridView2.DataSource = Table_mix_orderbyTime
DataGridView2.Columns("DataTime").DefaultCellStyle.Format = "yyyy-MM-dd hh:mm:ss"
DataGridView2.Columns(0).Width = 150
' ---/混合table 依時間排序/---------