Foxtable(狐表)用户栏目专家坐堂 → [求助]编号


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

主题:[求助]编号

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


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
[求助]编号  发帖心情 Post By:2024/1/8 19:40:00 [只看该作者]

老师好,我想在商品名称列的字段中只取字符开头的一个字符(只取3个)谢谢老师。

Select e.DataCol.Name
Case "项目","商品名称"
 If e.DataRow.IsNull("项目") OrElse e.DataRow.Isnull("商品名称") Then
 e.DataRow("商品ID") = Nothing
Else

Dim lb As String = getpy(e.DataRow("项目"), True).toupper & "-" & getpy(e.DataRow("商品名称")) & "-"
Dim max As String = e.DataTable.Compute("Max(商品ID)","商品id like '" & lb & "%' And _Identify<> '" & e.DataRow("_Identify") & "'") '取得该类别的最大编号
Dim idx = 1
 If max > "" Then
idx = cint(max.SubString(lb.length))+1
End If
e.DataRow("商品ID") = lb & format(idx, "000")
 End If
End Select

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/1/8 20:21:00 [只看该作者]

没看懂,截图说明一下

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


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2024/1/8 20:44:00 [只看该作者]

老师,用黄色标出的补满三拼音多了裁

能源 自来水 NY-ZLS-001
能源 国电         NY-GD-001  
能源 燃气         NY-RQ-001
Select e.DataCol.Name
Case "项目","商品名称"
 If e.DataRow.IsNull("项目") OrElse e.DataRow.Isnull("商品名称") Then
 e.DataRow("商品ID") = Nothing
Else
' ''Dim lb As String = getpy(e.DataRow("商品名称")) & "-" & e.DataRow("型号") & "-" & e.DataRow("规格") & "-"
Dim lb As String = getpy(e.DataRow("项目"), True).toupper & "-" & getpy(e.DataRow("商品名称"), True) & "-"
Dim max As String = e.DataTable.Compute("Max(商品ID)","商品id like '" & lb & "%' And _Identify<> '" & e.DataRow("_Identify") & "'") '取得该类别的最大编号
Dim idx = 1
 If max > "" Then
idx = cint(max.SubString(lb.length))+1
End If
e.DataRow("商品ID") = lb & format(idx, "000")
 End If
End Select
[此贴子已经被作者于2024/1/8 20:45:11编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/1/8 20:48:00 [只看该作者]

还是没看懂。现在是什么结果,正确的是怎么样的?

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2024/1/8 20:59:00 [只看该作者]

能源 自来水 NY-ZLS-001
能源 国电   NY-GD-001  
能源 燃气 NY-RQ-001
上面是错误的
下面是正确的
能源 自来水 NY-ZLS-001
能源 国电   NY-GDK-001    根据用户名的开头一个拼音字母补上(开发者)的K.如果超出3个字母就裁掉。
能源 燃气 NY-RQK-001



 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/1/8 21:41:00 [只看该作者]

Dim lb As String = getpy(e.DataRow("项目"), True).toupper & "-" & Left(getpy(e.DataRow("商品名称")),3).PadRight(3,getpy(user.name, True)(0)) & "-"

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2024/1/8 22:35:00 [只看该作者]

谢谢老师

 回到顶部