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)