- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]客户ID (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60622)
-- 发布时间：2014/11/27 21:13:00
-- [求助]客户ID
Select e.DataCol.Name
Case "群组分类"
If e.DataRow.IsNull("群组分类") Then
e.DataRow("客户ID") = Nothing
Else
Dim lb As String = e.DataRow("群组分类")
Dim idx As Integer
idx = e.DataTable.Compute("Max(客户ID)","群组分类 = \'" & lb & "\' And 编号<> \'" & e.DataRow("编号") & "\'") \'取得该类别的最大编号
e.DataRow("客户ID") = idx + 1
End If
End Select
老师，通过修改上面的代码上，客户ID列显示的值是取群组分类列每个汉字拼音的第一个字母加001，谢谢老师
-- 发布时间：2014/11/27 21:20:00
--
Select e.DataCol.Name
Case "群组分类"
If e.DataRow.IsNull("群组分类") Then
e.DataRow("客户ID") = Nothing
Else
Dim lb As String = e.DataRow("群组分类")
Dim max As String = e.DataTable.Compute("Max(客户ID)","群组分类 = \'" & lb & "\' And 编号<> \'" & e.DataRow("编号") & "\'") \'取得该类别的最大编号
If max > "" Then
e.DataRow("客户ID") = GetPy(lb, True).SubString(0, 1) & format(cint(max.SubString(1))+1, "000")
Else
e.DataRow("客户ID") = GetPy(lb, True).SubString(0, 1) & format(1, "000")
End If
End If
End Select
-- 发布时间：2014/11/27 21:39:00
--
老师，报错
此主题相关图片如下：图像 1.png
-- 发布时间：2014/11/27 21:51:00
--
1、清除原来的id；
2、id必须是字符类型
3、不行就上传例子