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