主题：编译通不过

Case "addsjjl.htm"
        Dim dr As DataRow = DataTables("送教记录").AddNew() 这里是新增，也就是不会有任何数据
        If e.PostValues.Count = 0 Then
            wb.AddForm("","form1","addnew.htm")
            With wb.AddInputGroup("form1","ipg1","送教信息")
                .AddSelect("学生姓名","学生姓名","|靳晓飞|鲁宁|王瑞玉|康龙|马瑞|耿佳乐|潘慧|黄哲|冯婷婷|田彦学|白明花|白振辉|俞鑫") '前一个"姓名"是ID,后一个"姓名"是标题
                .AddInput("送教日期","送教日期","date")
                .AddInput("送教地点","送教地点","text")
                .AddInput("送教内容","送教内容","text")
                .AddInput("送教人","送教人","text")
                
                With wb.AddInputGroup("form1","ipg21","送教资料")
                    With .AddUploader("up1","资料",True)    'True表示可上传多个文件
                        .Accept = "image/*"   '允许使用相册和相机
                        .AllowDelete = True '允许删除
                        .Incremental = True '允许重复选择文件或连续拍照
                        For Each s1 As String In dr.Lines("资料")同理新增的行不会有任何数据，就算有数据也未必能够显示，请仔细看看：http://www.foxtable.com/mobilehelp/topics/0044.htm
                            .AddImage("./学校档案/送教记录/" & s1)
                        Next
                    End With
                End With
            End With
            
            With wb.AddButtonGroup("form1","btg1",False)
                .Add("btn1", "确定", "submit").Attribute= "" 
                .Add("btn2", "放弃", "button", "default.htm").Kind = 2
            End With
            wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
            e.WriteString(wb.Build)
            Return
            
            
        Else '保存编辑结果
            ' If dr IsNot Nothing Then
            Dim nms() As String = {"学生姓名","送教日期","送教时间","送教地点","送教内容","送教人"}
            For Each nm As String In nms
                dr(nm) = e.PostValues(nm)
            Next
            
            
            For Each key As String In e.Files.Keys
                If key = "up1" Then
                    Dim lst As List(of String) = dr.Lines("资料")
                    
                    For Each fln As String In e.Files(key)
                        e.SaveFile(key, fln,"D:\xxsjk(学校数据库)\web\学校档案\送教记录\" & fln)       'ftp和web尽量共用一个图片目录,否则页面无法正常显示图片，同理，请仔细看看：http://www.foxtable.com/mobilehelp/topics/0044.htm
                        lst.Add(fln)
                    Next
                    dr.Lines("资料") = lst 这样用法会完全覆盖旧数据
                End If
            Next
            
            ''' '保存并生成增加成功提示页面
            dr.save()
            With wb.AddMsgPage("","msgpage","增加成功", "谢谢您的支持!") '生成成功提示页
                .AddButton("btn1","继续增加","xxlr.htm")
                .AddButton("btn2","返回首页","default.htm").kind = 2
            End With
            e.WriteString(wb.Build) 这里必须返回OK，因为js里是通过OK判断是否成功。
            Return
        End If