Dim?newfile?As?New?List(Of?String)
成都創(chuàng)新互聯(lián)始終堅持【策劃先行,效果至上】的經(jīng)營理念,通過多達(dá)十余年累計超上千家客戶的網(wǎng)站建設(shè)總結(jié)了一套系統(tǒng)有效的營銷推廣解決方案,現(xiàn)已廣泛運(yùn)用于各行各業(yè)的客戶,其中包括:成都陽光房等企業(yè),備受客戶表揚(yáng)。
For?Each?line?As?String?In?System.IO.File.ReadAllLines("TextFile1.txt")
If?Not?line.StartsWith("3")?Then?newfile.Add(line)
Next
System.IO.File.WriteAllLines("TextFile1.txt",?newfile)
建個集合,用System.IO.File的ReadAllLines讀出所有內(nèi)容,逐個判斷,如果是需要的加入集合,如果是要刪除的什么都不做,最后用WriteAllLines寫入即可。
這里說明一下,上面那個代碼是用來刪除所有以3開頭的文本行。
DataGridView1.Item(想要刪除的行號).delete 可以實現(xiàn)刪除指定行
對于同時更新數(shù)據(jù)庫,需要你手動的寫相應(yīng)的SQL語句,再進(jìn)行數(shù)據(jù)庫的更新
如:update 或者Delete
Dim myConn As Data.OleDb.OleDbConnection
myConn = New System.Data.OleDb.OleDbConnection()
myConn.ConnectionString = strCon
myConn.Open()
Dim sqldel As String = "delete from Table where AAA='"datagridview1.CurrentRow.Cells(i).Value.ToString.Trim()"'
Dim del As OleDbCommand = New OleDbCommand(sqldel, myConn)
del.ExecuteNonQuery()
myConn.Close
然后再重新幫頂下datatable顯示一下就ok了
經(jīng)測試,你的代碼是沒問題的!要么你改一下下面的。
Private?Sub?ListBoxDoubleClick(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)?_
Handles?ListBox1.DoubleClick
Me.ListBox1.Items.Remove(Me.ListBox1.SelectedItem)
End?Sub