Foxtable(狐表)用户栏目专家坐堂 → 提取第一列里面的型号 感谢


  共有3448人关注过本帖树形打印复制链接

主题:提取第一列里面的型号 感谢

帅哥哟,离线,有人找我吗?
lsy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/5/2 16:46:00 [显示全部帖子]

只有第一行符合条件,第二行就不行了,这样的数据写代码有什么意义,人工挑也挑出来了:

DataColChanged

If e.DataCol.Name = "第一列" AndAlso e.DataRow.IsNull(e.DataCol) = False Then
    e.DataRow("第二列") = ""
    Dim str As String = e.DataRow("第一列")
    For i As Integer = 1 To str.Split("/").Length - 1
        e.DataRow("第二列") + = str.Split("/")(i).Split(";")(0) & Vbcrlf
    Next
End If


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/5/3 17:31:00 [显示全部帖子]

是不对,传错了,里面根本没代码。

重传一个:

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:字符串提取型号.table


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/5/3 17:36:00 [显示全部帖子]

不是代码不对,是第二列的字符长度不对,改成备注列就行了。

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/5/5 16:25:00 [显示全部帖子]

仔细看了第一列,这才仅是举例,型号就出现的极不规律,不管是用2楼代码,还是7楼代码,出错都是肯定的。

 

要想代码简单正确,先规范第一列的字符串。


 回到顶部