以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表格提取数据问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178431)
--  作者：ycs5801
--  发布时间：2022/7/4 14:02:00
--  表格提取数据问题

 With wb.AddTable("", "Table1")
            .PageNumber = page\'设置页码
            .ActiveSheet = "menu" \'指定菜单
            .Primarykey = "_Identify" \'指定主键,主表编号设为主键.
            .CreateFromDataTable(dt, False, "", "", "tankno", "次数", "obvd", "tovcubmeter", "weightmetricton")
        End With

 

利用CreateFromDataTable自动生成的表格，能否实现在表格中点击一下，则执行某函数？
--  作者：有点蓝
--  发布时间：2022/7/4 14:17:00
--  
不能使用CreateFromDataTable，需手工添加行，大概

       With wb.AddTable("","Table1")
            Dim lst As new List(of String)
            .head.AddRow("出库日期","出库单编号","出库用途","领用部门","领料人")
            For Each dr As DataRow In DataTables("出库").DataRows
                lst.Clear
                For Each s As String In {"出库日期","出库单编号","出库用途","领用部门","领料人"}
                    lst.Add(dr(s))
                Next
                .body.AddRow(lst.ToArray).Attribute= "onclick= \'setvalues(""" & dr("出库单编号") & """)\'"
            Next
        End With
--  作者：ycs5801
--  发布时间：2022/7/4 14:46:00
--  怎么设置

现在想实现在表格中点击某行，则将某行的数据发送到form1中的空格内，应该怎么设置？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:7777.txt

[此贴子已经被作者于2022/7/4 14:46:05编辑过]
--  作者：有点蓝
--  发布时间：2022/7/4 15:06:00
--  
http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=152609
--  作者：ycs5801
--  发布时间：2022/7/4 20:59:00
--  
你那个看不懂啊，能不能看看我这个，我这个思路是在list3函数里上边是表单，下边是表格，在表格中单击某行，则通过js函数调取ycsqz函数中的该行数据到list3的表单中。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:提取.rar
--  作者：有点蓝
--  发布时间：2022/7/4 21:49:00
--  
什么地方看不懂？看4楼链接里11楼代码，就那么2步

1、添加行并绑定点击事件：
.body.AddRow(lst.ToArray).Attribute= "onclick= \'setvalues()\'"

2、js函数里给前端框架赋值
function setvalues(){
    document.getElementById("xm1").value = table1.rows[table1.rowSel].cells[0].innerHTML; //红色表示选中的行，蓝色表示第一列
    document.getElementById("xm2").value = table1.rows[table1.rowSel].cells[1].innerHTML;
}
--  作者：ycs5801
--  发布时间：2022/7/4 23:24:00
--  
上边的没问题了，现在有两个问题，1、怎样能获取到单击行的主键，因为我后续需要通过主键对该行数据进行修改后保存。2、怎样能给这个表格增加个竖向的滚动条，因为这个表格的数据较多，我不想拉动的时候把上边的表单也跟着上下移动。
--  作者：有点蓝
--  发布时间：2022/7/4 23:28:00
--  
1、table1.primarykey：http://www.foxtable.com/mobilehelp/topics/0119.htm

竖向需要指定高度
wb.InsertHTML("","<div id=\'div1\' style=\'overflow-y:auto;height:600px\'>")
--  作者：ycs5801
--  发布时间：2022/7/5 8:49:00
--  

这个js怎么传送呢？function myfunction1(){
    submitAjaxForm(\'form1\',\'\',false);
    }

 

  wb.AddForm("", "form1", "list3save.htm”)
        With wb.AddInputGroup("form1", "ipg1", "编辑压舱水")
            With .AddInput("tankno", "舱号tankno", "text")

...

With .body.AddRow(lst.ToArray)
                    .Attribute = ""
                   .Primarykey = dr("_Identify") \'设置主键
                End With

...
--  作者：ycs5801
--  发布时间：2022/7/5 8:54:00
--  

按照这个方法加的滚动条，是整个屏幕都上下滚动，能不能只滚动表格部分？