表格提取数据问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表格提取数据问题

共有10054人关注过本帖树形打印复制链接主题：表格提取数据问题

ycs5801

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：971 积分：6973 威望：0 精华：0 注册：2009/6/24 9:44:00

表格提取数据问题 发帖心情

Post By：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自动生成的表格，能否实现在表格中点击一下，则执行某函数？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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))

.body.AddRow(lst.ToArray).Attribute= "onclick= 'setvalues(""" & dr("出库单编号") & """)'"

End With

ycs5801

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：971 积分：6973 威望：0 精华：0 注册：2009/6/24 9:44:00

怎么设置

Post By：2022/7/4 14:46:00 [只看该作者]

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:7777.txt

[此贴子已经被作者于2022/7/4 14:46:05编辑过]

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/7/4 15:06:00 [只看该作者]

http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=152609

ycs5801

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：971 积分：6973 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：2022/7/4 20:59:00 [只看该作者]

你那个看不懂啊，能不能看看我这个，我这个思路是在list3函数里上边是表单，下边是表格，在表格中单击某行，则通过js函数调取ycsqz函数中的该行数据到list3的表单中。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:提取.rar

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：971 积分：6973 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：2022/7/4 23:24:00 [只看该作者]

上边的没问题了，现在有两个问题，1、怎样能获取到单击行的主键，因为我后续需要通过主键对该行数据进行修改后保存。2、怎样能给这个表格增加个竖向的滚动条，因为这个表格的数据较多，我不想拉动的时候把上边的表单也跟着上下移动。

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/7/4 23:28:00 [只看该作者]

1、table1.primarykey：http://www.foxtable.com/mobilehelp/topics/0119.htm

2、参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=149960&replyID=74034&skin=1

竖向需要指定高度

wb.InsertHTML("","<div id='div1' style='overflow-y:auto;height:600px'>")

ycs5801

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：971 积分：6973 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：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

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：971 积分：6973 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：2022/7/5 8:54:00 [只看该作者]

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

下一主题 >> << 上一主题

总数 93 1 2 3 4 5 6 7 8 9 10 下一页

主题：表格提取数据问题