扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
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开头的文本行。
具体代码很麻烦，不说了，提个思路：鼠标点击Grid控件时，提取这条记录中具有唯一性的那一列的值，比如编号或身份证号等等（这个比较容易办到），然后按“删除”按钮时，先用Sql语句删除数据库中的这条记录，再重新填充一下这个DataGridView，就达到目的了。
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了
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网