- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 自动编号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82520)
-- 发布时间：2016/3/19 16:22:00
-- 自动编号
有两个表，一个是缴学费信息，一个是退费信息，当退费信息表每增加一个发票号时，就会把缴学费信息表，同发票号
删除，比如：退费信息表增加一个发票号 2016130020，那么缴学费信息 2016130020就会被删除，缴学费信息下一个发票号应该是2016130021开始，也就是两个表的最大数。
请指点代码？谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:学生信息.zip |
[此贴子已经被作者于2016/3/19 16:22:28编辑过]
-- 发布时间：2016/3/19 16:58:00
--
max = e.DataTable.SqlCompute("Max(发票号)","发票号 Like \'" & bh & "%\'")
Dim max2 As String = DataTables("退费信息").SqlCompute("Max(发票号)","发票号 Like \'" & bh & "%\'")
If max > "" OrElse max2 > "" Then
Dim m As String = IIF(max > max2,max,max2)
Dim v As Integer = m.SubString(6,4)
e.DataRow("发票号") = bh & format(v +1,"0000")
Else
e.DataRow("发票号") = bh & "0001"
End If
-- 发布时间：2016/3/19 17:30:00
--
谢谢