- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]自动编号 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=137280)
-- 发布时间：2019/7/2 15:32:00
-- [求助]自动编号
老师，你好！
以下是我打算做的一个新增物料的窗口，不会编程真的觉得是困难重重，好没信心~~~只能来救助了。。。。麻烦了，谢谢！
希望实现功能：
在窗口按新增后，选择“成本类别”“类别名称”，当鼠标离开“类别名称”，物料编号自动生成，生成规则：“类别缩写&物料缩写+0001”，根据《物料信息表》的“物料编号”列对应“物料缩写”中最大的编号+1。。。
此主题相关图片如下：微信图片_20190702152146.png
-- 发布时间：2019/7/2 15:42:00
--
这种到表事件处理即可，参考：http://www.foxtable.com/webhelp/topics/2403.htm
-- 发布时间：2019/7/2 17:11:00
--
老师，修修改改代码如下，并不成功~~~而且在出现以下问题~~~
此主题相关图片如下：微信图片_20190702170933.png
Select e.DataCol.Name
Case "名称缩写","类别缩写"
If e.DataRow.IsNull("名称缩写") OrElse e.DataRow.IsNull("类别缩写") Then
e.DataRow("物料编号") = Nothing
Else
Dim bh As String = e.DataRow("类别缩写") & "名称缩写" \'生成编号的前缀
If e.DataRow("物料编号").StartsWith(bh) = False \'如果单据编号前缀不符
Dim max As String
Dim idx As Integer
Dim flt As String
flt = "类别缩写 = \'"& e.DataRow("类别缩写") & "名称缩写 = \'"& e.DataRow("名称缩写") & "# And [_Identify] <> " & e.DataRow("_Identify")
max = e.DataTable.Compute("Max(物料编号)",flt) \'取得该月的相同工程代码的最大单据编号
If max > "" Then \'如果存在最大单据编号
idx = CInt(max.Substring(12,4)) + 1 \'获得最大单据编号的后四位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("物料编号") = bh & Format(idx,"0000")
End If
End If
End Select
-- 发布时间：2019/7/2 17:24:00
--
Select e.DataCol.Name
Case "名称缩写","类别缩写"
If e.DataRow.IsNull("名称缩写") OrElse e.DataRow.IsNull("类别缩写") Then
e.DataRow("物料编号") = Nothing
Else
Dim bh As String = e.DataRow("类别缩写") & e.DataRow("名称缩写") \'生成编号的前缀
If e.DataRow("物料编号").StartsWith(bh) = False \'如果单据编号前缀不符
Dim max As String
Dim idx As Integer
Dim flt As String
flt = "类别缩写 = \'" & e.DataRow("类别缩写") & "名称缩写 = \'" & e.DataRow("名称缩写") & "\' And [_Identify] <> " & e.DataRow("_Identify")
max = e.DataTable.Compute("Max(物料编号)",flt) \'取得该月的相同工程代码的最大单据编号
If max > "" Then \'如果存在最大单据编号
idx = CInt(max.Substring(bh.Length,4)) + 1 \'获得最大单据编号的后四位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("物料编号") = bh & Format(idx,"0000")
End If
End If
End Select
-- 发布时间：2019/7/2 18:58:00
--
摆弄了好久，两个问题都没有解决~~~
-- 发布时间：2019/7/2 20:35:00
--
Select e.DataCol.Name
Case "成本类别"
If e.DataRow.IsNull("成本类别") Then
e.DataRow("类别缩写") = Nothing
Else
Dim dr As DataRow = DataTables("物料编码规则").Find("成本类别=\'" & e.DataRow("成本类别") & "\'")
If dr IsNot Nothing Then
e.DataRow("类别缩写") = dr("类别缩写")
Else
e.DataRow("类别缩写") = Nothing
End If
End If
Case "类别名称"
\'参考上面用法自己写
Case "名称缩写","类别缩写"
If e.DataRow.IsNull("名称缩写") OrElse e.DataRow.IsNull("类别缩写") Then
e.DataRow("物料编号") = Nothing
Else
Dim bh As String = e.DataRow("类别缩写") & e.DataRow("名称缩写") \'生成编号的前缀
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 [_Identify] <> " & e.DataRow("_Identify")
max = e.DataTable.Compute("Max(物料编号)",flt) \'取得该月的相同工程代码的最大单据编号
If max > "" Then \'如果存在最大单据编号
idx = CInt(max.Substring(bh.Length,4)) + 1 \'获得最大单据编号的后四位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("物料编号") = bh & Format(idx,"0000")
End If
End If
End Select
-- 发布时间：2019/7/3 8:45:00
--
谢谢老师！！！
-- 发布时间：2019/7/15 12:03:00
--
Dim d As Date = e.Form.Controls("创建时间").Value
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 r1 As DataRow = DataTables("市场渠道管理").SQLFind("渠道名称 = \'" & mc & "\'")
Dim xybh As WinForm.TextBox = e.Form.Controls("客户编号")
Dim bh As String = r1("市场渠道代码") & "-" & Format(d,"yyyyMM") & "-" \'生成编号的前缀
If xybh.Text.StartsWith(bh) = False \'如果单据编号前缀不符
Dim max As String
Dim idx As Integer
Dim flt As String
flt = "渠道来源 = \'"& r1("渠道名称") & "\' And 创建时间 >= #" & fd & "# And 创建时间 <= #" & ld & "#"
max = DataTables("客户信息").Compute("Max(客户编号)",flt) \'取得该月的相同工程代码的最大单据编号
If max > "" Then \'如果存在最大单据编号
idx = CInt(max.SubString(flt.Length,5)) + 1 \'获得最大单据编号的后四位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
xybh.Value = bh & Format(idx,"00000")
End If
大神帮忙看看我这个咋回事，编号都能成功添加，但是没有+1，万分感谢求解答
-- 发布时间：2019/7/15 12:10:00
--
idx = CInt(max.SubString(max.Length - 5,5)) + 1
或者
idx = CInt(max.SubString(bh.Length ,5)) + 1
-- 发布时间：2019/7/15 16:49:00
--
flt = "渠道来源 = \'"& r1("渠道名称") & "\' And 创建时间 >= #" & fd & "# And 创建时间 <= #" & ld & "#"
max = DataTables("客户信息").Compute("Max(客户编号)",flt) \'取得该月的相同工程代码的最大单据编号
蓝老师，还是不行，没有+1，是不是上面这段代码有问题呢？我用的是SQL数据库