- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 文件容量 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=58679)
-- 发布时间：2014/10/22 10:53:00
-- 文件容量
请问一下：扩展列类型设置为图片后，怎么限制上次图片的大小？
-- 发布时间：2014/10/22 10:55:00
--
ftp？这个上传功能不能设置限制图片的大小，你可以直接在ftp那里设置限制。
-- 发布时间：2014/10/22 10:58:00
--
我想实现增加图片的时候限制图片的大小不能超过1M
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目19.rar |
-- 发布时间：2014/10/22 11:04:00
--
Dim dr As DataRow = e.DataRow
If dr.IsNull("产品名称") Then
MessageBox.Show("请先输入产品名称!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
Dim ss As String = e.filename
Dim finfo As new FileInfo(ss)
If finfo.Length > 1 * 1024 * 1024 Then
msgbox("不能大于1M")
e.cancel = True
Else
Dim Index As Integer = ss.LastIndexOf(".")
Dim hz As String = ss.SubString(Index,ss.length-Index)
ss = dr("产品名称")
e.filename = ss & hz
If e.DataRow(e.DataCol.name).Contains(ss) Then
Dim max As Integer = 0
For Each s As String In e.DataRow.Lines(e.DataCol.name)
If s Like "*" & ss & "*" Then
Dim fni1 As Integer=s.LastIndexOf("-")
If fni1 > -1 Then
Dim fni2 As Integer = s.LastIndexOf(".")
fni1 = s.SubString(fni1+1, fni2 - fni1 - 1)
If fni1 > max Then
max = fni1
End If
End If
End If
Next
e.filename = ss & "-" & (max+1) & hz
End If
End If
End If
-- 发布时间：2014/10/22 12:08:00
--
Dim ss As String = e.filename
Dim finfo As new FileInfo(ss)
这样文件名读取不到的吧？
-- 发布时间：2014/10/22 12:12:00
--
我测试没问题。
如果你的读不到，就加入完整路径
-- 发布时间：2014/10/22 12:21:00
--
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.10.16.1
错误所在事件：表C,BeforeAttachFile
详细错误信息：
未能找到文件“account_balances.png”。
如果文件路径不固定怎么获取路径？有可能是从C盘，也可能是D盘？
-- 发布时间：2014/10/22 14:07:00
--
你msgbox看一下路径是什么啊，我测试没有问题。
msgbox(e.FileName)
-- 发布时间：2014/10/22 14:11:00
--
这只是输出图片名
[此贴子已经被作者于2014-10-22 14:15:59编辑过]
-- 发布时间：2014/10/22 14:47:00
--
那你就加入来源目录，拼凑出路径。
SourceFolder： 要添加文件的来源目录