- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 制定文件存储类型 错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82544)
-- 发布时间：2016/3/20 9:43:00
-- 制定文件存储类型 错误
Dim dr As DataRow = e.DataRow
Dim s As String = e.filename
Dim Index As Integer = s.LastIndexOf(".")
Dim hz As String = s.SubString(Index,s.length-Index)
If dr.IsNull ("制造商") Or Dr.IsNull("订单名称") Or Dr.IsNull("姓名") Then
MessageBox.show("本次制造商,订单名称 操作人不能为空列为必填项目","提示")
e.cancel = True
Else
Dim ext As String
ext = e.FileName.SubString(e.FileName.LastIndexof(".") + 1)
Select Case e.DataCol.Name
Case "采购单"
If ext = "jpg","png","xls" Then
e.SubFolder = ext
Else
MessageBox.Show("此列只能插入JPG,PNG,xls文件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
e.Cancel = True
End If
e.SubFolder = dr("客户") & "\\" & dr("订单名称") & "\\"
e.filename=e.DataRow("订单编号") & e.DataRow("文件流水") & "采购单" & hz
SystemReady = True
End Select
End If
此主题相关图片如下：微信截图_20160320094055.png
-- 发布时间：2016/3/20 11:07:00
--
ext变量名称定义重复了，换个名称
-- 发布时间：2016/3/20 11:34:00
--
Dim ext1 As String
ext1 = e.FileName.SubString(e.FileName.LastIndexof(".") + 1)
Select Case e.DataCol.Name
Case "采购单"
If ext1 = "bmp","gif","jpg","png","tif", "wmf" Then 语句错误 如何排除
e.SubFolder = ext1
Else
MessageBox.Show("此列只能插入JPG,PNG,xls文件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
e.Cancel = True
End If
-- 发布时间：2016/3/20 12:43:00
--
基本语法错误，还是多看看帮助吧。
-- 发布时间：2016/3/20 16:02:00
--
If ",bmp,gif,jpg,png,tif,wmf,".Contains("," & ext1 & ",") Then