- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]大家帮我这个代码修改 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68729)
-- 发布时间：2015/5/23 15:06:00
-- [求助]大家帮我这个代码修改
Dim ifo As new FileInfo(e.SourceFolder & "\\" & e.FileName)
Dim ids As Integer = 307200
\'If ifo.Length > 720*1280 Then
If ifo.Length > ids Then
MessageBox.Show("对不起图片太大了, 图片像素最大为【720*1280】,文件最大300KB!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.cancel=True
Else
If e.DataCol.Name = "第一学历证件" Then
Dim dr As DataRow = e.DataRow
If dr.IsNull("工作单位") Then
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文件夹.rar |
MessageBox.Show("工作单位不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
ElseIf Dr.IsNull("姓名") Then
MessageBox.Show("姓名不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
ElseIf Dr.IsNull("乡镇名称") Then
MessageBox.Show("乡镇名称不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
\'ElseIf Dr.IsNull("证件号码") Then
\'MessageBox.Show("身份证号码不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
\'e.Cancel = True
ElseIf Dr.IsNull("工作单位") Then
MessageBox.Show("工作单位不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
e.SubFolder = "证件" & "\\" & dr("乡镇名称") & "\\" & dr("工作单位") & "\\" & "第一学历"
\'e.FileName = dr("证件号码") & ".jpg"
EncryptFile(e.SourceFolder & "\\" & e.FileName, ProjectPath & "Attachments/" & e.SubFolder & "/" & dr("序号") & "_加密.jpg", "fox123")
e.FileName = dr("序号") & ".jpg"
End If
End If
End If
或
Dim dr As Row = e.Table.Current
If dr IsNot Nothing Then
Dim SubFolder As String = "证件" & "\\" & dr("乡镇名称") & "\\" & dr("工作单位") & "\\" & "第一学历"
Dim FileName As String = "xx" & ".jpg"
If FileSys.FileExists(ProjectPath & "Attachments/" & SubFolder & "/" & dr("序号") & "_加密.jpg") Then
DecryptFile(ProjectPath & "Attachments/" & SubFolder & "/" & dr("序号") & "_加密.jpg", ProjectPath & "Attachments/" & SubFolder & "/" & FileName, "fox123")
Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
pv.DeleteFile("Attachments/" & SubFolder & "/" & FileName)
End If
End If
-- 发布时间：2015/5/23 15:10:00
--
你要做什么? 代码出现什么问题?
-- 发布时间：2015/5/23 15:14:00
--
我想做教职信息管理系统、 我想教师证件加密这能系统中打开这个问题帮号码
-- 发布时间：2015/5/23 15:16:00
--
请问,你这段代码是想实现什么功能? 出现什么问题?
-- 发布时间：2015/5/23 15:18:00
--
你的项目文件是外部数据源的,要数据源才可以打开.
另外提问请描述清楚问题