老师，

我认为语法和逻辑没问题呀，怎么会报错呢？

请问正确的代码应该怎么写才能得到  输入创建日期、客户编码和部门编码得到 ：

客户编码（4位）-部门编号（2位）-年号（2位）-顺序号（2位）

弄了好久，实在着急，麻烦老师帮忙解决下，十分感激！

此主题相关图片如下：微信图片_20200718044710.png

老师，我反复测试了下，不知道多余再了那里，能具体告诉我吗？

谢谢

问题1，不知道双引号多余在哪里？

问题2，我截取的是年的后2位，是不是后面的创建日期不需要这样写的？

Dim d As Date = e.DataRow("创建日期")

            Dim y As Integer = d.Year
            Dim m As Integer = d.Month
            Dim Days As Integer = Date.DaysInMonth(y,m)
            Dim fd As Date = New Date(y,m,1) \'获得该月的第一天
            Dim ld As Date = New Date(y,m,Days) \'获得该月的最后一天
            Dim bh As String = e.DataRow("客户编号") & "-" & e.DataRow("部门代号") & "-" & Format(d,"yy")        \'生成编号的前缀
            If e.DataRow("项目编号").StartsWith(bh) = False \'如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "客户编号 = \'" & e.DataRow("客户编号") & " \'And "部门代号 = \'" & e.DataRow("部门代号") & " \'And 创建日期 >= #" & fd & "# And 创建日期 <= #" & ld & "#  And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(项目编号)",flt)

自己弹出结果看看就知道了，另外要注意空格的位置

msgbox(flt)

--------

问题1 了解了，谢谢

问题2 我截取的是年的后2位，是不是后面的创建日期不需要这样写的？

老师，

下面这段代码不出错了，但是自动编号的顺序号没有变化，请问是什么原因？

Select e.DataCol.Name