[求助]编号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有651人关注过本帖树形打印复制链接主题：[求助]编号

江南小镇

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1710 积分：11410 威望：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

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/1/8 20:21:00 [只看该作者]

没看懂，截图说明一下

江南小镇

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1710 积分：11410 威望：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

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/1/8 20:48:00 [只看该作者]

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

江南小镇

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1710 积分：11410 威望：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

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：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

加好友

发短信

等级：七尾狐帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2024/1/8 22:35:00 [只看该作者]

谢谢老师

下一主题 >> << 上一主题

主题：[求助]编号