'计算客户编号
If mc <> Nothing Then
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 & "'"
flt = "渠道来源 = '"& r1("渠道名称") & "' And (创建时间 > '" & fd & "' Or 创建时间 = '" & fd & "') And (创建时间 < '" & ld & "' Or 创建时间 = '" & ld & "')"
max = DataTables("客户信息").Compute("Max(客户编号)",flt) '取得该月的相同工程代码的最大单据编号
If max > "" Then '如果存在最大单据编号
idx = CInt(max.SubString(bh.Length ,5)) + 1 '获得最大单据编号的后四位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
xybh.Value = bh & Format(idx,"00000")
End If
End If
老师，这是我的全部代码，按照你说的改完还是没有效果，老师帮我再看看吧，我老觉得是flt里面的条件出了问题了，但是这样改完也没戏，有点儿懵了
加好友 
发短信
Post By：2019/7/15 12:03:00 [显示全部帖子]
