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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 编号的问题

共有11392人关注过本帖树形打印复制链接主题：编号的问题

blackzhu

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

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

编号的问题

Post By：2011/9/20 17:14:00 [显示全部帖子]

If e.DataCol.Name = "员工姓名" Then

If e.DataRow.IsNull("员工姓名") Then

e.DataRow("工号") = Nothing

Else

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "SELECT * From {销售人员档案}"

dt = cmd.ExecuteReader()

If dt.Datarows.Count > 0 Then

e.DataRow("工号") = Format(dt.Compute("Max(工号)") + 1,"000")

Else

e.DataRow("工号") = "HG" & "001"

End If

这个带有字符的编号,一直提示字符不能转换成DOUBLE数据不成功,我用转换字符的函数也不行

blackzhu

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

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/9/20 17:46:00 [显示全部帖子]

我的判断是看后台工号列有没有数据,如果有在工号列的数据上加上1,没有的话就是HG001,关键就是HG001就是带有字符不能增加,我转换了也不行?你帮我看看这个HG增加我怎么写代码?

主题：编号的问题