加一行。
讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對(duì)這個(gè)行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡(jiǎn)單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴，公司提供的服務(wù)項(xiàng)目有：國(guó)際域名空間、虛擬空間、營(yíng)銷軟件、網(wǎng)站建設(shè)、城子河網(wǎng)站維護(hù)、網(wǎng)站推廣。
...........
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Range("A1:IV65536").Clear
ADOrs.ActiveConnection = ADOcn
...........
（1）如果ComboBox中的不是通過數(shù)據(jù)綁定得到的，用ComboBox.Items.Clear?方法?從?ComboBox?中移除所有項(xiàng)。
'清除所有項(xiàng)
ComboBox1.Items.Clear()
'清除ComboBox1顯示
ComboBox1.ResetText()
（1）如果ComboBox中的是通過數(shù)據(jù)綁定得到的，在用ComboBox.Items.Clear?方法?從?ComboBox?中移除所有項(xiàng)之前，先斷開綁定的數(shù)據(jù)源。
'斷開數(shù)據(jù)源
ComboBox1.DataSource?=?Nothing
'清除所有項(xiàng)
ComboBox1.Items.Clear()
'清除ComboBox1顯示
ComboBox1.ResetText()
首先我們打開一個(gè)工作樣表作為例子。
excel中使用vba清除工作表內(nèi)容
使用alt+f11組合快捷鍵進(jìn)入vbe編輯器，插入一個(gè)新的模塊，并在模塊中輸入以下代碼：
Option Explicit
Sub ddt()
'ActiveCell.CurrentRegion.Select
'Range(ActiveCell.End(xlUp), ActiveCell.End(xlDown)).Select
Range("A1").ClearContents '清除活動(dòng)工作表上單元格A1中的內(nèi)容
Selection.ClearContents '清除選定區(qū)域內(nèi)容
Range("A1:D4").Clear
End Sub
excel中使用vba清除工作表內(nèi)容
前兩句代碼是選擇有數(shù)據(jù)內(nèi)容的單元格，我做了注釋標(biāo)簽，在代碼中不運(yùn)行。這里我先做一個(gè)簡(jiǎn)單的實(shí)例。使用range函數(shù)并選擇了a1單元格，然后使用clearcontents命令來清除掉a1單元格中的內(nèi)容。
excel中使用vba清除工作表內(nèi)容
第二行代碼是指選取單元格區(qū)域后運(yùn)行宏，則清除掉所選區(qū)域的內(nèi)容。
excel中使用vba清除工作表內(nèi)容
最后一行代碼更明晰，首先設(shè)定單元格區(qū)域?yàn)閍1：d4，然后使用clear命令清除單元格包括格式在內(nèi)的所有數(shù)據(jù)，這也是clear和clearcontents的區(qū)別。
excel中使用vba清除工作表內(nèi)容
實(shí)際操作一下，我現(xiàn)在把單元格中的字體修改為華文琥珀，并將字號(hào)設(shè)置為72，這時(shí)候單元格格式發(fā)生了變化，我使用clearcontents對(duì)單元格進(jìn)行清除內(nèi)容并不會(huì)更改單元格的格式。
excel中使用vba清除工作表內(nèi)容
而使用clear命令清除內(nèi)容，單元格格式會(huì)恢復(fù)成默認(rèn)值。
excel中使用vba清除工作表內(nèi)容
當(dāng)然，可以聲明一個(gè)模塊級(jí)變量，當(dāng)用鼠標(biāo)單擊某一個(gè) datagridview 控件的時(shí)候，就把該 datagridview 控件名賦予該模塊級(jí)變量，然后在刪除鍵的事件里，執(zhí)行刪除前，根據(jù)該模塊級(jí)變量里保存的信息，來確定針對(duì)某個(gè) datagridview 控件進(jìn)行刪除操作。
不過還是建議你每一個(gè) datagridview 控件 對(duì)應(yīng)使用一個(gè)刪除按鈕。
方法有多種。
可以dataAdapter.Fill到數(shù)據(jù)表應(yīng)該，設(shè)置幾個(gè)command，再通過dataAdapter.Update就可以更新數(shù)據(jù)了。不過表要有一個(gè)關(guān)鍵的key吧。
另外一種直觀一點(diǎn)：
也需要表有個(gè)關(guān)鍵key有就是關(guān)鍵字段。
你datagridview.reomveAt(index)同時(shí)執(zhí)行sqlcommand("delete * From table where keyFild='" key "'")就可以。
參考一個(gè)實(shí)例，如下：
Private Sub bitDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bitDelete.Click
Dim oraConn As New OracleConnection()
oraConn.ConnectionString = " data source=數(shù)據(jù)庫名字;user id=賬號(hào);password=密碼"
oraConn.Open()
Dim id As String = DataGridView1.CurrentRow.Cells(0).Value.ToString().Trim()
Dim queryString = "delete from t where id ='" id號(hào) "'"
Dim adapter As OracleDataAdapter = New OracleDataAdapter(queryString,oraConn)
Dim mark As DataSet = New DataSet
adapter.Fill(mark, "Mark")
MessageBox.Show("刪除數(shù)據(jù)成功!")
Dim adapter As OracleDataAdapter = New OracleDataAdapter("select * from t ORDER BY id", oraConn)
Dim score As DataSet = New DataSet()
adapter.Fill(score , "Score ")
DataGridView1.DataSource = score
DataGridView1.DataMember = score .Tables(0).ToString
oraConn.Close()
End Sub
Dim?myconn?As?New?OleDb.OleDbConnection
Dim?mycommand?As?New?OleDb.OleDbCommand
myconn.ConnectionString?=?"Provider=Microsoft.ace.OLEDB.12.0;Data?Source=C:\Users\Administrator\Documents\賬號(hào)密碼.accdb?"
myconn.Open()
mycommand.Connection?=?myconn
Dim?sql5?As?String?=?"delete?from?表3?where?userid='"??(TextBox1.Text)??"'"
mycommand.CommandText?=?sql5
mycommand.CommandType?=?CommandType.Text
mycommand.ExecuteNonQuery()
Dim?sql3?As?String?=?"update?表2?set?Balance=Balance-2?where?UserID='"??(TextBox1.Text)??"'"
mycommand.CommandText?=?sql3
mycommand.CommandType?=?CommandType.Text
mycommand.ExecuteNonQuery()
myconn.Close()
重慶分公司
重慶分公司
