主题：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

If e.PostValues ("课内阅读") <> "" Then

up1\up2是附件，附件不是必传项目。保存按钮全部代码如下：

Dim e As object = args(0)
Dim wb As New weui
wb.InsertHTML("<style>.exui-navbar {height:40px;}</style>")
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
If e.PostValues.Count = 0 Then
    wb.AddForm("","form1","Yuwen_Clock_add.htm")
    '设置导航条并添加标题栏名称
    With ExWeUI.WebUI.AddNavBar("form1","navbar01")
        .Attribute = "style='background-color: #FBF9FC;color:#000000'" '设置导航条背景色和标题文字颜色
        With .LeftGroup.AddItem("nvi01","")                            '左导航栏添加一个项目
            .image = "./images/返回.png"                               '添加图标
            '.Attribute = """          '浏览器后退功能
            .Attribute = ""   '回退到首页指定页面
        End With
        With .RightGroup.AddItem("nvi02","")      '右导航栏添加一个空项目
        End With
        .CenterGroup.Text = "语文打卡登记信息" '标题栏名称
        wb.InsertHTML("form1",.BuildHtml) '添加到TabBar的page1中
    End With
    '添加学生信息分组
    With wb.AddInputGroup("form1","id1","学生信息") 'ParentID 父容器的ID,如果是顶层对象,设置为""即可. ID 分组ID. Text 可选参数,用于指定分组标题.
        With .AddInput("班级","班&emsp;&emsp;级","text")
            .Value = _UserGroup
            .Readonly= True
        End With
        With .AddInput("姓名","姓&emsp;&emsp;名","text")
            .Value = _UserXingMing
            .Readonly= True
        End With
        With .AddInput("打卡日期","打卡日期","data")
            .Value = Date.Today
            .Readonly= True
        End With
       
    End With
   
    '添加打卡项目
    With wb.AddInputGroup("form1","打卡项目","打卡项目")
        With .AddInputCell("ic1") '通过InputCell增加输入框
            .AddLabel("ls1","课内阅读",0)  '增加标签,0显示在左边
            .AddInput("课内阅读","number",1).Placeholder ="课内阅读时间" '增加输入框,1表示显示在中间
            .AddLabel("ls2","(分钟)",2)     '增加标签,2表示显示在右边
        End With
        With .AddUploader("up1","",True)
            .Accept = "image/*"
            .Capture = "camera" '拍照上传
            .AllowDelete = True '允许删除
            .Incremental = True '允许重复选择文件或连续拍照
            .ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
        End With
       
        With .AddInputCell("ic1") '通过InputCell增加输入框
            .AddLabel("ls1","课外阅读",0)  '增加标签,0显示在左边
            .AddInput("课外阅读","number",1).Placeholder ="课外阅读时间" '增加输入框,1表示显示在中间
            .AddLabel("ls2","(分钟)",2)     '增加标签,2表示显示在右边
        End With
        With .AddUploader("up2","",True)
            .Accept = "image/*"
            .Capture = "camera" '拍照上传
            .AllowDelete = True '允许删除
            .Incremental = True '允许重复选择文件或连续拍照
            .ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
        End With
    End With
   
    With wb.AddPreview("","pv1","","")
        .AddButton("保&emsp;&emsp;存","", 1,"submit")
    End With
    wb.InsertHTML("<style>.weui-form-preview {margin-top:5px;}</style>")                      '设置AddPreview1与上边间距
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.Files.containskey("up1")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("打卡项目") = "课内阅读"
        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
            dr.Save
    End If
   
    If e.Files.containskey("up2")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("打卡项目") = "课外阅读"
        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
    ds.Save
    End If

    '保存并生成增加成功提示页面
    With wb.AddMsgPage("","msgpage","打卡成功", "好好学习,天天向上!") '生成成功提示页
        .AddButton("btn1","返回").Attribute = ""
    End With
    e.WriteString(wb.Build)
End If

e.WriteString(wb.Build)

现在有什么问题？

保存没成功，保存成功的弹窗也没出来

1楼说的是【保存时，如果只有课内阅读有数据，就新增一行数据，如果课内阅读、课外阅读都有数据，就新增两行数据】，3楼又说的是【up1\up2是附件，附件不是必传项目】。逻辑混乱呀，先理清思路吧

对的啊，应该是已通过红色这个控件来判断啊？

With .AddInputCell("ic1") '通过InputCell增加输入框
            .AddLabel("ls1","课内阅读",0)  '增加标签,0显示在左边
            .AddInput("课内阅读","number",1).Placeholder ="课内阅读时间" '增加输入框,1表示显示在中间
            .AddLabel("ls2","(分钟)",2)     '增加标签,2表示显示在右边
        End With

....

With .AddInputCell("ic1") '通过InputCell增加输入框
            .AddLabel("ls1","课外阅读",0)  '增加标签,0显示在左边
            .AddInput("课外阅读","number",1).Placeholder ="课外阅读时间" '增加输入框,1表示显示在中间
            .AddLabel("ls2","(分钟)",2)     '增加标签,2表示显示在右边
        End With

哦，我以为“ 课内阅读”这些是附件的标题，哈哈。

点保存没反应，调试else后面一个弹窗都不出来

 加代码调试看看各种值都是怎么样的