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

 写给你的不是有两段代码么？理解什么意思，然后改写到按钮里面就行啊。

抱歉，甜版，我这人有点笨，请谅解！

 

那你就先去学基础

 

http://www.foxtable.com/help/topics/0207.htm

 

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

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

 代码写到DataCochanged事件。

 

 好好学一下基础啊。

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

附件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:出入库台账（甜版修改）.rar

If e.DataCol.Name = "客商分类" Then
    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
End If

甜版，增加煤种信息出现以下提示是什么原因啊？
此主题相关图片如下：错误信息8.jpg