...
Dim strConn As String = String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='text;HDR=Yes;FMT=Delimited;CharacterSet=65001';Data Source='" & mp & "'")
'连接数据。 Data Source为CSV文件存在的目录
Dim conn As New OleDbConnection(strConn)
Dim dt1 As New DataTable()
Dim sql As String = "select * from (" + filename + ") "
conn.Open()
Dim dr As New OleDbDataAdapter(sql, conn)
Dim ds As New DataSet()
dr.Fill(ds, "table1")
dt1 = ds.Tables("table1")
If dt1.Rows.Count > 0 Then
Try
GridView1.DataSource = dt1
GridView1.DataBind()
Dim i As Integer
For i = 0 To GridView1.Rows.Count - 1
Dim txtPONum As String = (GridView1.Rows(i).Cells(1).Text).Trim
If txtPONum.Replace(" ", "").Trim = "" Then
GridView1.Rows(i).Cells(1).Text = GridView1.Rows(i - 1).Cells(1).Text
End If
Next
Response.Write("<script>alert('讀取數據成功！');</script>")
Catch ex As Exception
End Try
