1樓：
private sub command3_click()dim name as string
name="你要刪除的行"
list1.removeitem list1.listindexadodc1.
recordsoure="select * from 表名 where 欄位名='"& name &"'"
adodc1.refresh
if adodc1.recordset.recordcount>0 then
adodc1.recordset.deleteendif
end sub
VB傳值的問題，VB中關於傳值和傳地址的問題？
上半部分和問題都不是一個型別的 上半部分是傳值和傳址的問題。加上byval是傳值 private function fun byval x as integer,byval y as single 執行過程中不會改變原來的引數值，傳遞的只是一個備份。比如。x 3,y 4 fun x,y 然後執行時候...
問 在vb中讓list中的資料按字母排序該怎麼做（寫在單擊事件中）
排序後的專案顯示情況 dim aa 1 to 8 as string 定義aa陣列為模組級陣列變數 private sub command1 click 排序 按鈕單擊過程 dim kk as string for i 1 to 7 陣列的排序過程 for j i 1 to 8 if aa i aa...
vb中shell的用法，VB中shell的用法
我們以要貝c temp 下所有檔案到d temp目錄為例。在vb程式中啟動 dos程式 或指令 的方法是 shell dos可執行檔名 vbnormalfocus 例如 shell xcopy c temp d temp vbnormalfocus 但是當以上的 xcopy 程式執行結束時，會殘留有...