以文本方式查看主题

-  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
--  
谢谢老师