- 帖子
- 91
- 主題
- 20
- 精華
- 0
- 積分
- 118
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-11-30
- 最後登錄
- 2016-1-14
|
回復 c_c_lai
您好:
謝謝您的機票作業,請問我是否可以改為把名字用選項方式輸入.....然後自動帶入 ...
JEAN 發表於 2013-12-27 13:32 
Private Sub DeleteData_Click()
Dim nCode As Range, ret As Boolean
With Sheets("data")
Set nCode = .[B:B].Find(CallID.Text, , , 1)
.Rows(Val(Mid(nCode.Address, 4))).EntireRow.Delete Shift:=xlUp
End With
ret = ExcelData.Value
ExcelData.Value = False
closeRS
OpenDB
strSQL = "DELETE FROM 機票記錄 WHERE 名字 = '" & CallID.Text & "'"
cmd.CommandText = strSQL
cmd.ActiveConnection = cnn
cmd.Execute
cnn.Close
Confirm.Enabled = True
ExcelData.Value = ret
ResetData_Click
End Sub
請問是改這邊嗎? |
|
發表於 2013-12-26 09:42
| 
