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


  共有798人关注过本帖平板打印复制链接

主题:[求助]编号

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


加好友 发短信
等级:七尾狐 帖子:1711 积分:11421 威望: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

 回到顶部