主题：移动开发删除表问题

Case "xsxx.htm"
        wb.AddPageTitle("","pageheader","学生信息")
        '  wb.InsertHTML("<div style='text-align:center'><img src='./images/backr.png' width=50 height=50 /></div>")
        With wb.AddTable("","Table2")
            .Alternate = 3
            .Attribute="style='text-align:center'"
            Dim nms() As String = {"学生姓名","身份证件号"}
            .Head.AddRow(nms)
            .ColWidth = "45px,65px"
            Dim dr As DataRow = DataTables("用户").sqlfind("身份证号 = '" & e.Cookies("username") & "'")
            For Each r As DataRow In DataTables("学生信息").sqlSelect("班级 = '" & dr("班级") & "' and 学校名称 = '" & dr("group") & "'","","学生姓名")
                With .Body.AddRow(r("学生姓名"),r("身份证件号"))
                End  With
            Next
        End With

 请问老师，在手机上生成的表能点着某行记录选择进行修改或删除吗，怎么办？

Dim cmd As New  SQLComand
Dim dr As DataRow = DataTables("用户").sqlfind("身份证号 = '" & e.Cookies("username") & "'")
 cmd.ConnectionName  '记得设置数据源名称
cmd.CommandText = "Sele Count(*) From {学生信息} where 班级 = '" & dr("班级") & "' and 学校名称 = '" & dr("group") & "'"
Dim Count As Integer =  cmd.ExecuteScalar()  '获取总的行数
Dim Pages As Integer =  Math.Ceiling(Count/PageRows) '计算出总页数
cmd.CommandText = "Selt * From (Sect  Row_Number() Over(Order by  订单.订单编号 desc ) As RowNum,订单.订单编号,日期,客户,Sum(数量) As  数量,sum(数量*单价) As  金额"
cmd.CommandText = cmd.CommandText &  " From  订单 Left JOIN  订单明细 ON  订单明细.订单编号 =  订单.订单编号 Group By {订单}.订单编号,日期,客户) As a "
 cmd.CommandText = cmd.CommandText & "  Where RowNum >= " & StartRow & " And RowNum <= " &  EndRow
 Dim dt As DataTable =  cmd.ExecuteReader
老师，我在试着改这段代码，红色的sele太复杂了，我现在想先从简单的测试起看，只需要学生信息表的身份证件号，姓名两列，rownum是什么意思这个不懂，请老师写个示范，谢谢

可否双击某行就跳到编辑，像表的doubleclic事件一样

Case "xsxx.htm"
        wb.AddPageTitle("","pageheader","学生信息")
        '  wb.InsertHTML("<div style='text-align:center'><img src='./images/backr.png' width=50 height=50 /></div>")
        With wb.AddTable("","Table2")
            .Alternate = 3
            .Attribute="style='text-align:center'"
            Dim nms() As String = {"学生姓名","身份证件号","状态"}
            .Head.AddRow(nms)
            .ColWidth = "45px,65px"
            Dim dr As DataRow = DataTables("用户").sqlfind("身份证号 = '" & e.Cookies("username") & "'")
            For Each r As DataRow In DataTables("学生信息").sqlSelect("班级 = '" & dr("班级") & "' and 学校名称 = '" & dr("group") & "'","","学生姓名")
                With .Body.AddRow(r("学生姓名"),r("身份证件号"),r("状态"))
                End  With
            Next
        End With

可否直接在当前页增加个删除键，删除当选定行，怎么做

 

我是想双击用With wb.AddTable("","Table2")的table2的行，弹出对话框然后选删除或编辑，该怎么做呀，主要是删除的话如何提示取选定行的值，比如选定行能提出当前行的_intenty值不，这样可以删除后台数据了吧

Dim e As RequestEventArgs = args(0)
Dim wb As New  weui
'删除订单明细
If e.GetValues.ContainsKey("deldid") Then
    DataTables("学生信息").SQLDeleteFor("[_Identify] = " &  e.GetValues("deldid"))
End If
'订单编辑
Dim pr As DataRow  '订单
Dim Page As Integer  '页码变量
If e.GetValues.ContainsKey("page") Then   '如果地址中有page参数
    Integer.TryParse(e.GetValues("page"), page)  '提取page参数
End If
If e.GetValues.ContainsKey("oid") = False Then '如果没有传递订单编号,则新增与一个订单
    pr =  DataTables("学生信息").SQLAddNew() '
Else '如果传递了订单编号,则找出此订单进行编辑
    pr = DataTables("学生信息").SQLFind("[_Identify]='" & e.GetValues("oid") & "'")
    If  pr Is  Nothing Then '多用户情况下,必须考虑其他用户删除订单的可能.
        wb.InSertHtml("此学生信息已被其他用户删除!")
        e.WriteString(wb.Build)
        Return  ""  '必须返回
    End  If
End  If
Dim url As String = "edit.htm?page=" & page &  "&oid=" & pr("[_Identify]")  '传递页码和订单编号
wb.AddForm("","form1",url)
With wb.AddInputGroup("form1","ipg1",iif(e.GetValues.ContainsKey("oid"),"编辑信息","新增信息"))
    With .AddInput("身份证件号","身份证件号","text")
        .Value = pr("身份证件号")
        .Readonly = True
    End  With
    .AddInput("学生姓名","学生姓名","text").Value = pr("学生姓名")
End With
With wb.AddButtonGroup("form1","btg1",False)
    .Add("btn2", "保存", "submit")  '正常提交,保存后进入编辑状态
End With
pr.Save() '必须保存,而且必须在最后保存,因为SQLAddNew增加的行,保存之后就会销毁,无法再调用
If e.PostValues.Count > 0 Then '如果是通过提交按钮访问,则给一个已经保存的提示给用户,时长500毫秒
    wb.AddToast("","t1", "已经保存",0).Msec= 500
End If
wb.AppendHTML("<script src='./lib/order.js'></script>")  '引入脚本文件
e.WriteString(wb.Build) '生成网页

 

 

老师我照着做了，list通过了，EDIT改成这样，现在我的想法是只在这里做学生信息记录增加和修改，改来不对，请帮改一下，谢谢

点list里的编辑时页面为空白没什么反应

http://127.0.0.1/edit.htm?page=0&oid=2305到这个地址后为空白页

老师，我现在list函数测试通过，研究了一下，没懂起，现在是想双击某行，可能存在删除该行，已可以了，如果编辑修改该行的其他字段，如学生姓名，家庭住址，学籍号等，如有就加input显示出来并可修改。修改后保存并反回list，该怎么写，请帮写一下，实在研究懂不起。