- 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=49150)
-- 发布时间：2014/4/12 19:00:00
-- 怎么筛选提取啊 帮帮忙
帮帮你 兄弟们 急啊！
此主题相关图片如下：提取和复制.jpg
[此贴子已经被作者于2014-4-12 19:00:39编辑过]
-- 发布时间：2014/4/12 23:42:00
--
笨笨的：
DataColChanged
If e.DataCol.Name = "第一列"
Dim s1,s2 As String
s1 = e.DataRow("第一列")
For i As Integer = 0 To s1.Length-1
If Char.IsLower(s1.Chars(i)) = False AndAlso Char.IsUpper(s1.Chars(i)) = False AndAlso Char.IsDigit(s1.Chars(i)) = False
s2 += s1.Chars(i)
End If
Next
e.DataRow("第三列") = Right(s2,10)
End If
-- 发布时间：2014/4/13 11:04:00
--
感谢
-- 发布时间：2014/4/13 12:14:00
--
If e.DataCol.Name = "第一列" Then
Dim str As String = e.DataRow("第一列")
e.DataRow("第三列") = ""
For i As Integer = Str.Length - 1 To 0 Step - 1
If Asc(str(i)) < 0 AndAlso e.DataRow("第三列").Length < 10 Then
e.DataRow("第三列") + = str(i)
End If
Next
e.DataRow("第三列") = "C\\123" & e.DataRow("第三列") & e.DataRow("第二列")
End If
-- 发布时间：2014/4/13 12:50:00
--
用Asc就是好
-- 发布时间：2014/4/13 13:20:00
--
If e.DataCol.Name = "图片地址" Then
Dim Oldstr As String =e.DataRow("产品名称")
Dim Newstr As String
For Each s As String In Oldstr
If Char.IsDigit(s) = False And Char.IsUpper(s)=False And Char.IsLower(s)=False Then
Newstr + = s
End If
Next
Newstr = Right(Newstr,10)
Newstr=Newstr.Trim("")
Newstr = "E:\\电子商务\\" & NewStr & e.DataRow("文件夹编号")
e.DataRow("图片地址")="[" & Newstr & "]"
End If
能把我看看这个怎么改吗？
现在是过滤了字母、数字、但是还没过滤 空格
也就是后面的10位跳过字母、数字、空格、
如果设计在扩展类型为文件，设计一个按钮功能为：“打开目录”按钮的代码该怎么写啊！感谢
[此贴子已经被作者于2014-4-13 13:23:08编辑过]
-- 发布时间：2014/4/13 14:00:00
--
试试这个：
If e.DataCol.Name = "图片地址" Then
Dim Oldstr As String =e.DataRow("产品名称")
Dim Newstr As String = ""
For i As Integer = Oldstr.Length - 1 To 0 Step - 1
If Asc(Oldstr.Chars(i)) < 0 AndAlso Newstr.Length < 10 Then
Newstr = Oldstr(i) & Newstr
End If
Next
Newstr = "E:\\电子商务\\" & NewStr & e.DataRow("文件夹编号")
e.DataRow("图片地址")="[" & Newstr & "]"
End If
[此贴子已经被作者于2014-4-13 14:00:11编辑过]
-- 发布时间：2014/4/13 14:14:00
--
感谢！能请教两个问题吗？
第一：设计一个按钮，功能是：打开列为文件类型的打开目录，
第二：还设计了一个按钮，功能是：列里面的内容到粘贴板，
这两个按钮的代码应该怎么写啊 谢谢你！
感谢 感谢
[此贴子已经被作者于2014-4-13 15:38:01编辑过]
-- 发布时间：2014/4/13 22:07:00
--
以下是引用yangwenghd在2014-4-13 14:14:00的发言：
感谢！能请教两个问题吗？
感谢！能请教两个问题吗？
第一：设计一个按钮，功能是：打开列为文件类型的打开目录，
第二：还设计了一个按钮，功能是：列里面的内容到粘贴板，
这两个按钮的代码应该怎么写啊 谢谢你！
感谢 感谢
[此贴子已经被作者于2014-4-13 15:38:01编辑过]
第一：http://www.foxtable.com/help/topics/0353.htm
第二：http://www.foxtable.com/help/topics/2069.htm