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

有年级表,班级表,成绩表，在年级中的班级数更改的时候自动把班级表的班数录入，现想同理在年级中录入参考人数时自动在成绩表中将考号录入，录入原则是在年级表的年级其础上后缀４位代码，如年级为32120182　(３表示区县，２１代表学校，2018代表级，２代表第２期，＊＊＊＊后四位为其考试号)

If e.DataCol.name = "班级数" Then

DataTables("班级表").DeleteFor("班级 Like '" & e.DataRow("年级") & "-" & "%'")

For i As Integer = 1 To e.DataRow("班级数")

Dim str As String = e.DataRow("年级") & "-" & i & "班"

'Dim fdr As DataRow = DataTables("表B").find("班号 = '" & str & "'")

'If fdr IsNot Nothing Then

Dim nr As DataRow = DataTables("班级表").AddNew

nr("班级") = str

'Next

End If

If e.DataCol.name = "参考人数" Then

DataTables("成绩").DeleteFor("考号 Like '" & e.DataRow("年级")*1000)

For i As Integer = 1 To e.DataRow("参考人数")

Dim str As Integer = e.DataRow("年级")*1000 + i

'Dim fdr As DataRow = DataTables("表g").find("班号 = '" & str & "'")

''If fdr IsNot Nothing Then

Dim nr As DataRow = DataTables("成绩").AddNew

nr("学校班级") = str

''Next

我改了下，改不对，请帮忙看下，谢谢

If e.DataCol.name = "参考人数" Then
    DataTables("成绩").DeleteFor("考号 Like '" & e.DataRow("年级") & "%'")
    For i As Integer = 1 To e.DataRow("参考人数")
        Dim str As Integer = e.DataRow("年级") & format(i, "0000")
        Dim nr As DataRow = DataTables("成绩").AddNew
        nr("学校班级") = str
    Next
End if

.NET Framework 版本：2.0.50727.8689

Foxtable 版本：2014.11.11.1

错误所在事件：表，年级表，DataColChanged

详细错误信息：

调用的目标发生了异常。

无法在 System.Int32 和 System.String 上执行“Like”操作。

If e.DataCol.name = "参考人数" Then
    DataTables("成绩").DeleteFor("convert(考号, 'System.String') Like '" & e.DataRow("年级") & "%'")
    For i As Integer = 1 To e.DataRow("参考人数")
        Dim str As Integer = e.DataRow("年级") & format(i, "0000")
        Dim nr As DataRow = DataTables("成绩").AddNew
        nr("学校班级") = str
    Next
End if

.NET Framework 版本：2.0.50727.8689

Foxtable 版本：2014.11.11.1

错误所在事件：表，年级表，DataColChanged

详细错误信息：

调用的目标发生了异常。

算术运算导致溢出。

考号列为整数型，我估计是这行为误，不晓得该怎么改，请帮忙指点

Dim str As Integer = e.DataRow("年级") & format(i, "0000")

1、考号列改成字符列

2、代码

If e.DataCol.name = "参考人数" Then
    DataTables("成绩").DeleteFor("考号 Like '" & e.DataRow("年级") & "%'")
    For i As Integer = 1 To e.DataRow("参考人数")
        Dim str As String= e.DataRow("年级") & format(i, "0000")
        Dim nr As DataRow = DataTables("成绩").AddNew
        nr("考号") = str
    Next
End if

对了，谢谢指导

主题：自动编考号