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

Dim com4 As String = trim(e.Form.Controls("combobox7").text)
If com4 > ""
    If User.IsRole("业务主管") Then
        Dim dt As Table = Tables("中考报名_table5")
        If dt.Rows.count>0
            Dim dr As DataRow
            dr = DataTables("学校信息").sqlFind("单位全称 = '" & user.group & "'and 学段 = '初中'" )
            If dr IsNot Nothing
                Dim bydm As String = left(dr("毕业学校代码"),8)
                Dim jm As String = dr("学校班级用简称")
                Dim p As WinForm.ProgressBar
                p = e.Form.Controls("ProgressBar1")
                p.Maximum = dt.Rows.Count '设置最大值
                p.Minimum = 0 '设置最小值
                p.Value = 0 '设置当前值
                Dim dwmc As String = user.group
                If com4 > ""
                    Dim Cols1() As String = {"学校名称","学生姓名","班级","年级","身份证件号","学籍号","性别","班级"}
                    Dim Cols2() As String = {"学校名称","姓名","班级","年级","身份证号","学籍号","性别","级"}
                    Dim su As Integer = 0
                    Dim dr2 As DataRow
                    Dim p1 As Integer = 0
                    For Each dr1 As Row In dt.Rows
                        If DataTables("生地报名库").sqlFind("身份证号 = '" & dr1("身份证件号") & "' and 姓名 = '" & dr1("学生姓名") & "'") Is Nothing Then
                            dr2 = DataTables("生地报名库").AddNew()
                            For i As Integer = 0 To Cols1.Length -1
                                Select Case i
                                    Case 0,1,5,4,6,7
                                        dr2(Cols2(i)) = dr1(Cols1(i))
                                    Case 2
                                        Dim c() As Char = {"级", "班"}
                                        Dim str As String = dr1(Cols1(i))
                                        Dim s1() As String = str.Split(c)
                                        dr2(Cols2(i)) = s1(1)
                                    Case 3
                                        Dim year As String = com4.Substring(0,2)
                                        Dim v As Integer = cint(year)
                                        Dim ji As String = com4.Substring(2,1)
                                        Dim j As Integer
                                        If ji = "春"
                                            j = 0
                                        End If
                                        If ji = "秋"
                                            j = 1
                                        End If
                                        dr2(Cols2(i)) = trim(str(v - val(dr1(Cols1(i)).Substring(4,2)) + j +6))
                                        If dr2(Cols2(i)) = "9"
                                            dr2("备注") ="补考"
                                        End If
                                End Select
                                dr2("考试名称") = com4

                        Next

                        P1 =P1+1
                        P.VALUE = P1
                        dr2("毕业中学代码") = bydm 'left(dr("毕业学校代码"),8)
                        dr2("学校班级") = jm & dr2("年级") & "." & dr2("班级")
                        'End If
                        Dim dr3 As DataRow
                        dr3 = DataTables("师表").Find("学校名称 = '" & dr2("学校名称") & "'and 班级 = '" & dr2("级") & "'" )
                        If dr3 IsNot Nothing
                            dr2("生物教师")= dr3("生物教师")
                            dr2("地理教师")= dr3("地理教师")
                        End If
                        dr2.save()
                       End If
                    Next
                    p.value=0
                End If
            Else
                messagebox.show("请选择勾选8年级和9年级在校学生","提示",MessageBoxButtons.OK)
            End If
        End If
    End If
Else
    messagebox.show("请选择好报考名称","提示",MessageBoxButtons.OK)
End If
Tables("中考报名_table4").sort = "学校班级,备注"

老师，上面代码是想查找有不有身份证号和姓名相同的记录有则跳过，无则增加并填充，但做出来结果是都要增加记录，没找到是什么地方错了，请指点，谢谢

主题：导入