data table 手动添加列及行

前端的data table，自行添加列，不与任何数据源连接。

    Public Sub DTAddColumn(ByRef oDataTable As DataTable, ByVal strFieldName As String, ByVal oFieldType As enuFieldType, Optional ByVal intFieldLength As Integer = 0)
        Dim oColumn As New DataColumn
        Dim strType As String = GetTypeName(enuTypeList.TLFieldType, oFieldType)


        With oColumn
            .ColumnName = strFieldName
            .DataType = System.Type.GetType("System." & strType)
            Select Case oFieldType
                Case enuFieldType.FTString
                    If intFieldLength = 0 Then
                        intFieldLength = gcintFieldStringLength
                    End If
                    .MaxLength = intFieldLength
                Case enuFieldType.FTBoolean
                    .DefaultValue = False
            End Select
        End With
        Call oDataTable.Columns.Add(oColumn)

    End Sub

代码添加行：

              Dim oRow As DataRow

                      oRow = moDT.NewRow

                        With oRow
                            .Item("cPath") = oFile.DirectoryName
                            .Item("cName") = oFile.Name
                            .Item("dDate") = oFile.LastWriteTime
                        End With

                      moDT.Rows.Add(oRow)