比如在表事件keydown中，有如下代码，为了代码简洁，我想放到自定义函数中， 其中的e.cancel 在自定义函数中还可以继续使用吗？
'按下delete键
ElseIf e.KeyCode = Keys.Delete Then
Dim Result As DialogResult
Result = MessageBox.Show("是否确认删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then '如果点击的是 ,则删除,否则不删除
'msgbox(1)
e.Cancel = True '且取消此次按键
e.Table.FinishEditing
'下载数据
Dim ftp1 As new ftpclient
ftp1.host="172.16.5.89"
ftp1.Account = "administrator"
ftp1.password = "Admin1234"
ftp1.RootDir="/各表附件/文件协作表/"
'Dim str As String= r.DataRow.Lines(cname)
' Dim str_path=ProjectPath & "RemoteFiles\" & r("已接收文件") '拼凑本地路径
' msgbox(str_path)
' If FileSys.FileExists(str_path) Then '如果本地文件已经存在
' FileSys.DeleteFile(str_path) '则删除之以便重新下载
' End If
If ftp1.DeleteFile(r("附件")) = True Then
r("附件")=Nothing '清空表格中显示的文件名
msgbox("文件删除成功!")
Else
msgbox("文件删除失败!")
End If
r.Save
Else
'主动刷新当前表格,不然虽然取消了删除,但被删除单元格的内容会不见
Dim t As Table = CurrentTable
Dim temp As String = t.Filter
t.DataTable.Load(False) 'false表示不要在执行加载之前执行 BeforSaveDatarow事件(如执行,则文件协作表中会把编辑者删掉)
t.Filter = temp
End If
加好友 
发短信
Post By：2018/7/24 9:18:00 [只看该作者]
