1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Dim InitTable As Boolean = True
Private Sub Setup_Light_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' open du xdocument de config
XCfgDoc = XDocument.Load(CfgFileName)
If InitTable Then
TaskListAsTable.Columns.Add("Type", GetType(String))
TaskListAsTable.Columns.Add("Name", GetType(String))
TaskListAsTable.PrimaryKey = New DataColumn() {TaskListAsTable.Columns("Name")}
TaskListAsTable.Columns.Add("host", GetType(String))
TaskListAsTable.Columns.Add("port_rest", GetType(String))
InitTable = False
End If |
Partager