remove createtable

This commit is contained in:
Jonathan Jenne
2017-10-04 12:45:22 +02:00
parent e8c06c46a7
commit 822c93a725

View File

@@ -683,17 +683,6 @@ Public Class frmConstructorDesigner
Load_QuickDisplay()
End If
End Sub
Private Function CreateTable(ByVal rowCount As Integer) As DataTable
Dim tbl As New DataTable()
tbl.Columns.Add("Name", GetType(String))
tbl.Columns.Add("ID", GetType(Integer))
tbl.Columns.Add("Image", GetType(Image))
tbl.Columns.Add("Date", GetType(Date))
For i As Integer = 0 To rowCount - 1
tbl.Rows.Add(New Object() {String.Format("Name{0}", i), i, ImageCollection1.Images(i Mod 4), Date.Now.AddDays(i - 3)})
Next i
Return tbl
End Function
Private Sub LOAD_DIRECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles LOAD_DIRECTCheckBox.CheckedChanged