| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]编号 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189977) |
| -- 作者：江南小镇 -- 发布时间：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
|
| -- 作者：有点蓝 -- 发布时间：2024/1/8 20:21:00 -- 没看懂，截图说明一下 |
| -- 作者：江南小镇 -- 发布时间：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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2024/1/8 20:48:00 -- 还是没看懂。现在是什么结果，正确的是怎么样的？ |
| -- 作者：江南小镇 -- 发布时间：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 |
| -- 作者：有点蓝 -- 发布时间：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)) & "-" |
| -- 作者：江南小镇 -- 发布时间：2024/1/8 22:35:00 -- 谢谢老师 |