主题：web保存

老师，给自己出了个难题，请老师指导，web界面如下：

 
此主题相关图片如下：11.jpg

保存时，如果只有课内阅读有数据，就新增一行数据，如果课内阅读、课外阅读都有数据，就新增两行数据，该怎么保存？

If e.PostValues.Count = 0 Then

........

else

    Dim nms() As String = {"班级","姓名"} '不能为空的列名数组
    For Each nm As String In nms
        If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
            With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
                .icon = "Warn" '改变图标
                .AddButton("btn1","返回").Attribute = ""
            End With
            e.WriteString(wb.Build)
            Return  Nothing '必须返回
        End If
    Next
    If e.PostValues ("课内阅读") <> "" Then
        nms = New String() {"班级","姓名","打卡用时"}  '重新定义了nms数组,增加了两列.
        Dim dr As DataRow = DataTables("语文打卡记录").AddNew()
        For Each nm As String In nms
            If e.PostValues.ContainsKey(nm) Then
                dr(nm) = e.PostValues(nm)
            End If
        Next
        dr("打卡日期") = Date.Today
        dr("打卡项目") = "课内阅读"
        dr("登记状态") = True
        dr("登记人") = _UserXingMing
        dr("登记日期") = Date.Today
       
        Dim lst As  List(of String) = dr.Lines("附件")
        For Each key As String In e.Files.Keys
            If key = "up1" Then
                For Each fln As String In e.Files(key)
                    e.SaveFile(key,fln, ProjectPath & "web\images\语文打开记录\" & fln) '保存接收到的文件
                    lst.add("/images/语文打开记录/" &  "/" & fln)
                Next
                dr.Lines("附件") = lst
            End If
        Next
       
    End If
    'dr.Save
   
    If e.PostValues("课外阅读") <> "" Then
        nms = New String() {"班级","姓名","打卡用时"}  '重新定义了nms数组,增加了两列.
        Dim ds As DataRow = DataTables("语文打卡记录").AddNew()
        For Each nm As String In nms
            If e.PostValues.ContainsKey(nm) Then
                ds(nm) = e.PostValues(nm)
            End If
        Next
        ds("打卡日期") = Date.Today
        ds("打卡项目") = "课外阅读"
        ds("登记状态") = True
        ds("登记人") = _UserXingMing
        ds("登记日期") = Date.Today
        Dim lst As List(of String) = ds.Lines("附件")
        For Each key As String In e.Files.Keys
            If key = "up2" Then
                For Each fln As String In e.Files(key)
                    e.SaveFile(key,fln, ProjectPath & "web\images\语文打开记录\" & fln) '保存接收到的文件
                    lst.add("/images/语文打开记录/" &  "/" & fln)
                Next
                ds.Lines("附件") = lst
            End If
        Next
    End If
   
    'ds.Save
    '保存并生成增加成功提示页面
    With wb.AddMsgPage("","msgpage","打卡成功", "好好学习,天天向上!") '生成成功提示页
        .AddButton("btn1","继续增加","Yuwen_Clock_add.htm")
    End With
    e.WriteString(wb.Build)
End If