DataRowAdded事件
Dim txt As String = FileSys.ReadAllText("d:\test.txt", Encoding.default)e.DataRow("第一列") = txt