从品牌网站建设到网络营销策划,从策略到执行的一站式服务
Dim newfile As New List(Of String)
双塔网站建设公司创新互联,双塔网站设计制作,有大型网站制作公司丰富经验。已为双塔上千提供企业网站建设服务。企业网站搭建\外贸营销网站建设要多少钱,请找那个售后服务好的双塔做网站的公司定做!
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读出所有内容,逐个判断,如果是需要的加入集合,如果是要删除的什么都不做,最后用WriteAllLines写入即可。
这里说明一下,上面那个代码是用来删除所有以3开头的文本行。
经测试,你的代码是没问题的!要么你改一下下面的。
Private Sub ListBoxDoubleClick(ByVal sender As Object, ByVal e As EventArgs) _
Handles ListBox1.DoubleClick
Me.ListBox1.Items.Remove(Me.ListBox1.SelectedItem)
End Sub
具体代码很麻烦,不说了,提个思路:鼠标点击Grid控件时,提取这条记录中具有唯一性的那一列的值,比如编号或身份证号等等(这个比较容易办到),然后按“删除”按钮时,先用Sql语句删除数据库中的这条记录,再重新填充一下这个DataGridView,就达到目的了。
DataGridView1.Item(想要删除的行号).delete 可以实现删除指定行
对于同时更新数据库,需要你手动的写相应的SQL语句,再进行数据库的更新
如: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了
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图