主题：[求助]练习(成績管理系統)怎么比较导入?

If cdate(Name)= Forms("窗口2").controls("DateTimePicker1").value Then

end if

谢谢阿!

还有点问题,我改 if嵌套代码改了一天都还是这样.一次会执行两个条件.

Dim n As Integer = Tables("表B").Rows.Count  '判断表是否为空
If n = 0 Then
Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim mg As New Merger
    mg.Format = "Excel"
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = book.Sheets(0).Name & "$"   '指定数据来源
    mg.Fields = "姓名,语文" '指定数据来源列
    mg.DataTableName = "表B" '指定数据接收表
    mg.Merge() '填充数据
End If
Else
Dim Names As List(Of String) = Tables("表B").DataTable.GetUniqueValues("","考试期数")    '提取不重复日期
For Each Name As String In Names                                                    ' 遍历日期                                    
 If cdate(Name)= Forms("窗口2").controls("DateTimePicker1").value Then
    Dim dlg As New OpenFileDialog
    dlg.Filter= "Excel文件|*.xls"
    If dlg.ShowDialog = DialogResult.Ok Then
    Dim Book As New XLS.Book(dlg.Filename)
    Dim Sheet As XLS.Sheet = book.Sheets(0)
    For r As Integer = 0 To Sheet.Rows.Count
        Dim dr As DataRow = DataTables("表B").Find("[考试期数]= '" & Forms("窗口2").controls("DateTimePicker1").value & "' And [姓名] = '" & sheet(r,0).Value & "'")
        If dr IsNot Nothing Then
            dr("语文") = sheet(r,1).Value
        End If
    Next
    End If
Else
Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim mg As New Merger
    mg.Format = "Excel"
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = book.Sheets(0).Name & "$"   '指定数据来源
    mg.Fields = "姓名,语文" '指定数据来源列
    mg.DataTableName = "表B" '指定数据接收表
    mg.Merge() '填充数据
End If
End If
 Next
End If

想出来了第二个其它因为，也有其他情况也执行了．在帮助下找到了怎么再写个判断代码．狐表的帮助的确很强大