自动学号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

要用班级和班内编号取学生编号。

就4楼的项目，我测试没有问题。如果是搬到自己的项目，看懂代码逻辑，自行扩展

老师，我加了班级，请老师帮我改一下，谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.rar

老师，我加了班级，帮我代码改一下，谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.rar

Dim ary() As String = Functions.Execute("Xueqi")

Dim kjmc() As String = "学生编号,班级".Split(",")

For i As Integer = 0 To kjmc.Length - 1

If e.Form.Controls(kjmc(i)).Value Is Nothing Then

MessageBox.Show("【"& kjmc(i)&"】不能为空,请检查")

e.Form.Controls(kjmc(i)).Select

Return

End If

Dim dr1 As DataRow = DataTables("学生缴费").Find("学期 = '"& ary(0) &"' And 学生编号 = '" & e.Form.Controls("学生编号").Text & "'")

If dr1 Is Nothing Then

Dim lst As List(of String()) = DataTables("学生缴费").GetValues("学生编号|班内编号","学期 = '" & ary(0)-9 & "' And 班级 = '" & val(e.Form.Controls("班级").Text) -100 & "'")

Dim lst2 As List(of String) = DataTables("学生缴费").GetValues("学生编号","学期 ='" & ary(0) & "' And 班级 = '" & e.Form.Controls("班级").Text & "'")

Dim lst4 As List(of String) = DataTables("学生缴费").GetValues("班内编号","学期 ='" & ary(0) & "' And 班级 = '" & e.Form.Controls("班级").Text & "'")

Dim lst3 As new List(of String)

Dim dict As new Dictionary(of String,String)

For Each a1 As String() In lst

If lst2.Contains(a1(0)) = False Then

If lst4.Contains(a1(1)) = False Then lst3.Add(a1(1))

Else

dict.Add(a1(0),a1(1))

End If

Dim r As DataRow = DataTables("学生缴费").AddNew()

r("学期") = ary(0)

r("班级") = e.Form.Controls("班级").Text

r("学生编号") = e.Form.Controls("学生编号").Text

Dim max As Integer = val(DataTables("学生缴费").Compute("max(班内编号)","学期 = '"& ary(0) &"' And 班级 = '" & val(e.Form.Controls("班级").Text) & "'"))

If lst3.Count > 0 Then

r("班内编号") = lst3(0)

lst3.RemoveAt(0)

Else

max += 1

r("班内编号") = Format(max,"00")

End If

老师，如果有新生，比如：新增学期20191 班级201 学生编号 2019090010新生班内编号是01，那么新增学期20191 班级201 学生编号2019030001老生班内编号就变成02了，我要求，新增学期20191 班级201 学生编号2019090010新生班内编号是01，当新增学期20191 班级201 学生编号2019030001老生班内编号任然是01，这时学期20191 班级201 学生编号2019090010新生班内编号变成02，请老师指教，谢谢！
dvubb

此主题相关图片如下：qq截图20190926171559.png

这种不合理。而且会增加很多额外不必要的操作。个人觉得应该把老生和新生分开处理，先录入所有老生消息，再录入新生

主题：自动学号