以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何加代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91078)
--  作者：刘林
--  发布时间：2016/9/28 20:19:00
--  如何加代码
Dim com3 As String =  e.Form.Controls("combobox3").text
Dim com4 As String =  e.Form.Controls("combobox4").text
If com3 <> "" And com4 <> ""
Dim Cols1() As String = {"学校名称","年级","班级","学生姓名","身份证件号"}
Dim Cols2() As String = {"单位名称","年级代码","班级","姓名","身份证件号"}
Dim su As Integer =1
For Each dr1 As DataRow In DataTables("学生信息").DataRows
Dim dr2 As DataRow = DataTables("成绩").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        Select Case i        
            \'Case 0
             \'\'   dr2(Cols2(i)) = dr1(Cols1(i)).Substring(6,7) 
            Case 1
                dr2(Cols2(i)) = dr1(Cols1(i)).Substring(4,2)
            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).PadLeft(2,"0")
            Case 3,4
                dr2(Cols2(i)) = dr1(Cols1(i))                     
    End Select  
Next
dr2("单位名称") = e.Form.Controls("combobox3").text
dr2("考试名称") = e.Form.controls("combobox4").text
 Dim dw As DataRow = DataTables("学校信息").Find("单位 = \'" & e.Form.Controls("combobox3").text & "\'") 
dr2("学校代码") = dw("学校代码")
su = su +1
Next
Dim sux As String = "本次共导入学生" & su & "人"
MessageBox.show(sux,"导入总计",MessageBoxButtons.OK)
Else
MessageBox.show("学校代码和考试名称不能为空","提示",MessageBoxButtons.OK)
End If

学生信息导入成绩表时，判断是否已存在身份证件号相号，且考试名称=e.Form.Controls("combobox4").text的记录，存在则覆盖，否则新增，请帮写下，谢谢！
--  作者：有点蓝
--  发布时间：2016/9/28 20:48:00
--  

Dim com3 As String =  e.Form.Controls("combobox3").text
Dim com4 As String =  e.Form.Controls("combobox4").text
If com3 > "" And com4 > ""
    Dim Cols1() As String = {"学校名称","年级","班级","学生姓名","身份证件号"}
    Dim Cols2() As String = {"单位名称","年级代码","班级","姓名","身份证件号"}
    Dim su As Integer =1
    Dim dr2 As DataRow
    For Each dr1 As DataRow In DataTables("学生信息").DataRows
        dr2 = DataTables("成绩").Find("身份证件号=\'" & dr1("身份证件号") & "\' and 考试名称=\'" & com4 & "\'")
        If dr2 Is Nothing Then dr2 = DataTables("成绩").AddNew()
        
        For i As Integer = 0 To Cols1.Length -1
            Select Case i
                \'Case 0
                    \'\'   dr2(Cols2(i)) = dr1(Cols1(i)).Substring(6,7)
                Case 1
                    dr2(Cols2(i)) = dr1(Cols1(i)).Substring(4,2)
                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).PadLeft(2,"0")
                Case 3,4
                    dr2(Cols2(i)) = dr1(Cols1(i))
            End Select
        Next
        dr2("单位名称") = com3
        dr2("考试名称") = com4
        Dim dw As DataRow = DataTables("学校信息").Find("单位 = \'" & com3 & "\'")
        dr2("学校代码") = dw("学校代码")
        su = su +1
    Next
    Dim sux As String = "本次共导入学生" & su & "人"
    MessageBox.show(sux,"导入总计",MessageBoxButtons.OK)
Else
    MessageBox.show("学校代码和考试名称不能为空","提示",MessageBoxButtons.OK)
End If
--  作者：刘林
--  发布时间：2016/9/28 20:58:00
--  
谢谢