共10 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：请教两个问题, 狐爸再看下哈！（已解决）
1楼
YDS 发表于：2011/7/7 15:52:001.
在数据列选择区域后如何统计选择的的区域内的总行数和数量的累计值，然后传输给指定窗口的一个标签！
2.
如何提取产品名称中的数字，产品名称如（IIAC20X10,IIAJP-20X10,IIAJPS20.5X10）,我现在需要提取X前面的数字，提取的代码应该怎么写
请高手帮下忙，谢谢了！
[此贴子已经被作者于2011-7-8 16:11:08编辑过]
2楼
狐狸爸爸 发表于：2011/7/7 16:29:001、参考：
http://help.foxtable.com/topics/0645.htm
http://help.foxtable.com/topics/0545.htm
2、：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目109.rar |
3楼
YDS 发表于：2011/7/7 18:47:00以下是引用狐狸爸爸在2011-7-7 16:29:00的发言：
1、参考：
http://help.foxtable.com/topics/0645.htm
http://help.foxtable.com/topics/0545.htm
2、：
| 下载信息 [文件大小：7.9 KB 下载次数：1] | |
 点击浏览该文件:管理项目109.rar |
谢谢狐爸，第一个问题解决，第二个我的开发版打不开，装了个试用本怎么也要激活，老爹能把代码贴上来不，说下放那个事件下就好！
4楼
狐狸爸爸 发表于：2011/7/8 8:51:00发邮件到zjtdr@21cn.net，索取商业版下载地址，开发版的加密狗也支持商业版的。
5楼
YDS 发表于：2011/7/8 8:53:00好的，谢谢了哈！
6楼
YDS 发表于：2011/7/8 9:44:00我的举例可能有一定局限性，狐爸看下，还有类似的F3A20X10,II3DP-20X10,这样的要怎么写，X前面的数字一定是在-或者字母后面的！
7楼
狐狸爸爸 发表于：2011/7/8 9:47:00呵呵，你先自己想想，就当做练习题。
8楼
YDS 发表于：2011/7/8 15:16:00不行哈！老爹帮我，整了一天，没有思路啊！试了几个方法都不行啊！
9楼
狐狸爸爸 发表于：2011/7/8 15:20:00If e.DataCol.name = "第一列" Then
Dim v1 As String = e.NewValue
Dim v2 As String
Dim start As Boolean
For i As Integer = v1.Length - 1 To 0 Step -1
If start Then
If Char.IsDigit(v1.Chars(i)) Then
v2 = v1.Chars(i) & v2
Else
Exit For
End If
Else
If v1.Chars(i) = "x" Then
start= True
End If
End If
Next
e.DataRow("第二列") = v2
End If
Dim v1 As String = e.NewValue
Dim v2 As String
Dim start As Boolean
For i As Integer = v1.Length - 1 To 0 Step -1
If start Then
If Char.IsDigit(v1.Chars(i)) Then
v2 = v1.Chars(i) & v2
Else
Exit For
End If
Else
If v1.Chars(i) = "x" Then
start= True
End If
End If
Next
e.DataRow("第二列") = v2
End If
10楼
YDS 发表于：2011/7/8 16:10:00以下是引用狐狸爸爸在2011-7-8 15:20:00的发言：
If e.DataCol.name = "第一列" Then
Dim v1 As String = e.NewValue
Dim v2 As String
Dim start As Boolean
For i As Integer = v1.Length - 1 To 0 Step -1
If start Then
If Char.IsDigit(v1.Chars(i)) Then
v2 = v1.Chars(i) & v2
Else
Exit For
End If
Else
If v1.Chars(i) = "x" Then
start= True
End If
End If
Next
e.DataRow("第二列") = v2
End If
If e.DataCol.name = "第一列" Then
Dim v1 As String = e.NewValue
Dim v2 As String
Dim start As Boolean
For i As Integer = v1.Length - 1 To 0 Step -1
If start Then
If Char.IsDigit(v1.Chars(i)) Then
v2 = v1.Chars(i) & v2
Else
Exit For
End If
Else
If v1.Chars(i) = "x" Then
start= True
End If
End If
Next
e.DataRow("第二列") = v2
End If
谢谢老爹，我一直尝试的这样，但是没有想到罗逻辑字符，费了很大事，还是要多看几遍帮助啊！
共10 条记录, 每页显示 10 条, 页签:
[1]