以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  移动开发删除表问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105186)
--  作者：刘林
--  发布时间：2017/8/13 18:23:00
--  移动开发删除表问题

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

 请问老师，在手机上生成的表能点着某行记录选择进行修改或删除吗，怎么办？
--  作者：有点甜
--  发布时间：2017/8/13 19:02:00
--  

 无法直接修改，参考 http://www.foxtable.com/mobilehelp/scr/0124.htm

 
--  作者：刘林
--  发布时间：2017/8/14 13:58:00
--  
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是什么意思这个不懂，请老师写个示范，谢谢
--  作者：有点甜
--  发布时间：2017/8/14 14:11:00
--  

你不需要做成分页的方式，你只需要参考人家的思路。

 

选择某一行以后，点击编辑，就跳转到编辑页面去。

 

关键是你看懂帮助文档的代码。
--  作者：有点甜
--  发布时间：2017/8/14 14:16:00
--  

也就是你可以直接改成

 

cmd.CommandText = "Select * From {表A}"
--  作者：刘林
--  发布时间：2017/8/14 14:24:00
--  
可否双击某行就跳到编辑，像表的doubleclic事件一样
--  作者：刘林
--  发布时间：2017/8/14 14:31:00
--  

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

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

 
--  作者：有点甜
--  发布时间：2017/8/14 14:42:00
--  

1、手机浏览器的双击，一般是【放大、缩小】的操作，所以很可能不响应双击事件；

 

2、如果要绑定双击事件，把onclick改成ondblclick即可。
--  作者：刘林
--  发布时间：2017/8/14 15:33:00
--  
我是想双击用With wb.AddTable("","Table2")的table2的行，弹出对话框然后选删除或编辑，该怎么做呀，主要是删除的话如何提示取选定行的值，比如选定行能提出当前行的_intenty值不，这样可以删除后台数据了吧
--  作者：有点甜
--  发布时间：2017/8/14 17:26:00
--  

1、你照着做了吗？

 

http://www.foxtable.com/mobilehelp/scr/0128.htm

 

2、选定行的值，要在js里面获取，如

 

alert(table1.primarykey);

alert(table1.rows[table1.rowSel].cells[0].innerHTML);