現在的問題是Dim strColNames() As String = txt05am.Split(",")
'Dim dt As New System.Data.DataTable
For co As Int32 = 0 To strColNames.GetUpperBound(0)
dt.Columns.Add(strColNames(co), Type.GetType("System.String"))
Next
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim dt As DataTable ' 我这里没有加入列,是不能运行的
Dim dr As DataRow = dt.NewRow
Dim MultilineString As String ' 在这里我没办法给他赋值(多行字符串)
For Each str As String In MultilineString.Split(vbCrLf)
dr.ItemArray = str.Split(",") ' 加入数据
dt.Rows.Add(dr)
Next
End Sub
End Class