Forms("报名表_报名").Open
MainTable = Tables("临时报名表")

If e.Form.Controls("竞赛名称").value = "" Then
    MessageBox.Show("请先选择竞赛名称!")
Else
    Dim jsmc  As WinForm.ComboBox = e.Form.Controls("竞赛名称")
    Dim xmdr As DataRow = DataTables("项目表"). Find ("竞赛名称 = \'" & jsmc.text & "\' and 报名开始日期.value <> """)
    Dim ks As Date = xmdr("报名开始日期")
    Dim js As Date = xmdr("报名结束日期")
    Dim dq As Date = today
    If dq < ks  Then
        MessageBox.Show( " & jsmc.text & " "报名还没有开始!")
        Return
    End If
    If dq > js  Then
        MessageBox.Show(" & jsmc.text & ""报名已经结束!")
        Return
    End If
   
    Static flag As Boolean = True
    If flag = True Then
        flag = False
        Dim drs As List(Of DataRow)
        drs = DataTables("用户信息表").Select("[姓名] = \'" & User.Name & "\'")
        Dim cnt As Integer = DataTables("用户信息表").Select("[姓名] = \'" & User.Name & "\'").Count
       
        For i As Integer = 0 To drs.Count - 1
            Dim tdr As DataRow = DataTables("临时报名表").AddNew()
            For Each dr As DataRow In drs
                tdr("竞赛名称") = "" & jsmc.text & ""
                tdr("区") = dr("区")
                tdr("中小学") = dr("中小学")
                tdr("学校") = dr("学校")
                tdr("辅导教师") = dr("姓名")
                \' tdr("区") = dr("区")
            Next
        Next
    End If
End If

谢谢!!!