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

把手头的活儿赶出来，是得好好学习学习基础的。不过，这段时间可能还得多麻烦您呢！

甜版，帮我看一下这段代码吧，不执行，不知哪里错了。客商档案_主表下的datarowadding事件

Dim dr As DataRow = e.DataRow

Dim bh As String

Dim max As String

Dim idx As Integer

If dr.RowState <> DataRowState.Added Then '如果不是新增行

Return '那么返回

ElseIf dr.IsNull("客户分类") Then '如果没有输入日期

e.Cancel = True '取消保存此行

MessageBox.Show("必须输入客户分类!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Return

End If

If dr("客商分类") = "客户"

bh = "KH"

max = DataTables("客商档案_主表").Compute("Max(客商编码)","客商编码 like '" & bh & "%'")

If max > "" Then '如果存在最大客户编码

idx = CInt(max.Substring(bh.Length+1)) + 1 '获得最大客户编码的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

e.DataRow("客商编码") = bh & Format(idx,"000")

End If

If dr("客商分类") = "供应商"

bh = "GYS"

max = DataTables("客商档案_主表").Compute("Max(客商编码)","客商编码 like '" & bh & "%'")

If max > "" Then '如果存在最大供应商编码

idx = CInt(max.Substring(bh.Length+1)) + 1 '获得最大供应商编码的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

e.DataRow("客商编码") = bh & Format(idx,"000")

End If

If dr("客商分类") = "个人"

bh = "GR"

max = DataTables("客商档案_主表").Compute("Max(客商编码)","客商编码 like '" & bh & "%'")

If max > "" Then '如果存在最大个人编码

idx = CInt(max.Substring(bh.Length+2)) + 1 '获得最大个人编码的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

e.DataRow("客商编码") = bh & Format(idx,"0000")

End If

甜版，您说的没错。但先麻烦帮我解决一下这个吧，把这块弄好就可以先用着了。

附件

下载信息 [文件大小：下载次数： ]
点击浏览该文件:出入库台账（甜版修改）.rar

甜版，增加煤种信息出现以下提示是什么原因啊？
图片点击可在新窗口打开查看

此主题相关图片如下：错误信息8.jpg

找出来了，可能与我表属性中写的一些有冲突。

甜版，客商生成的编码供应商的和个人的都没有问题，但是客户的生成的有问题。因为我的数据库里面原来都有信息。我想在原来基础上增加，但客户编码生成的有问题。像这种情况一般都是什么原因造成的呢？

我原来用勤哲做的有客户编号：KH001-KH118，现在我用狐表增加客户自动生成的编号为：KH017。但是供应商和个人的核对过，里面也有原来的供应商和个人，生成的编号没有问题。

[此贴子已经被作者于2015-1-7 18:50:13编辑过]

应该是和100有关系吧，100以内的没有问题，100以上的就不行。供应商和个人都在100以内。

甜版，为什么在我电脑上做好的发布后在局域网其他电脑登陆后，涉及文字的部分都不显示，而数字却能够显示呢？

主题：[求助]客商表编码问题？