以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  为什么下面代码报错？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194106)

--  作者：ycwk --  发布时间：2024/11/11 10:01:00 --  为什么下面代码报错？ Dim cname As String = e.Table.cols(e.Table.colsel).name  Dim TableName As String = e.Table.name \'msgbox(TableName) If cname = "已接收文件" Then       Dim dr As DataRow = Tables("文件收发管理表").Current.DataRow       Dim fl As String = ProjectPath & dr("FileName")          If e.Control = True AndAlso e.KeyCode = Keys.V Then \'按下ctrl+V      #这行屏蔽就不会报错      If dr.SQLLoadFile("FileUpload", fl) Then \'如果提取文件成功        Dim Proc As New Process \'打开文件        Proc.File = fl        Proc.Start()      Else        Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)      End If  End If \'如果 user.group="管理员" 结束 \'msgbox(2)

--  作者：ycwk --  发布时间：2024/11/11 10:10:00 --   已解决，少了个end if