急 各位大侠帮忙 立即送66分

[lntafdm]

关于用DataGridView上调出Excel文档后
如何用DataGridView控制删除Excel上的行
即对DataGridView某一行删除 相应的Excel上的行也被删除
最好给个大体的代码 谢谢大家

下边是用dataGirdView调出excel文档我写的
Public filePaths As New Hashtable
Public mstFile As String = "D:\VSCSmaster.xls"
Dim mstStrCon As String
Public mstCn As OleDb.OleDbConnection
Dim dAdp As OleDb.OleDbDataAdapter
Dim dSet As DataSet = New DataSet("[sheet$]")
Dim Com As New OleDb.OleDbCommand

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

mstStrCon = String.Format(XLS_CON_STR, mstFile)
mstCn = New OleDb.OleDbConnection(mstStrCon)



dAdp = New OleDb.OleDbDataAdapter("SELECT * FROM [sheet$]", mstCn)
dAdp.Fill(dSet, "[sheet$]")
dataGridView1.DataSource = dSet.Tables("[sheet$]")

End Sub

[lntafdm]

自己顶1下 大家帮忙

[yagebu1983]

在DataGridView中删除后，Excel重新读数据库！！

[lntafdm]

试过了 不好用啊
愁
就这样被
cRow = dSet.Tables("[sheet$]").Rows(DeleteRowIndex)
dSet.Tables("[sheet$]").Rows.Remove(cRow)
Try
mstCn.Open()
Com = New OleDb.OleDbCommand("DELETE FROM [sheet$] " & "WHERE Type = '" & .Rows(DeleteRowIndex).Cells(0).Value.ToString & "' and ID = '" & .Rows(DeleteRowIndex).Cells(1).Value.ToString & "' and ECU = '" & .Rows(DeleteRowIndex).Cells(2).Value.ToString & "' and Description = '" & .Rows(DeleteRowIndex).Cells(3).Value.ToString & "'", mstCn)
mstCn.Close()
Catch ex As Exception
mstCn.Close()
MessageBox.Show(ex.Message)
End Try

不好用啊
怎么办

[lntafdm]

丁丁丁 有人气为止

[bfblang]

用添加数据源向导一步一步做，基本不用代码就可以直接操作。简单，咔咔咔，随便操操作作