- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论]表名汇总，夸表录入列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149226)
-- 发布时间：2020/4/26 21:39:00
-- [讨论]表名汇总，夸表录入列
表A行不为空时，第一列新增时自动录入 中国。假如表A行不为空时
求助表列汇总表，新增行时，表名列录入 表A 时，表列汇总表的第一列自动等于 表A 第一列值：中国
-- 发布时间：2020/4/26 22:17:00
--
没看懂。截图说明一下
-- 发布时间：2020/4/26 23:56:00
-- 回复：（有点蓝）没看懂。截图说明一下
表A 录入时，第一列 同步 表A的第一列值 中国
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:第一列同步.foxdb |
此主题相关图片如下：2222.png
此主题相关图片如下：111.png
-- 发布时间：2020/4/27 8:38:00
--
以上图为例，意思是假如汇总表第6行表名输入“表A”，汇总表第一列自动填入表A的第6行第一列的值？
-- 发布时间：2020/4/27 8:47:00
-- 回复：（有点蓝）以上图为例，意思是假如汇总表第6行表...
是的，假如表A 行不为空时，等于表A 第一列值
[此贴子已经被作者于2020/4/27 8:48:03编辑过]
-- 发布时间：2020/4/27 9:13:00
--
汇总表datacolchanged事件
If e.DataCol.Name = "表名" Then
If e.NewValue > "" AndAlso Tables.Contains(e.NewValue) Then
Dim idx As Integer = Tables("表列汇总表").FindRow(e.DataRow)
If idx < Tables(e.NewValue).Rows.Count
e.DataRow("第一列") = Tables(e.NewValue).Rows(idx)("第一列")
End If
End If
End If
-- 发布时间：2020/4/27 11:04:00
-- 回复：（有点蓝）汇总表datacolchanged事件If e.DataC...
此主题相关图片如下：c.png
此主题相关图片如下：b.png
有问题，坛主再看看了
此主题相关图片如下：a.png
[此贴子已经被作者于2020/4/27 11:16:39编辑过]
-- 发布时间：2020/4/27 11:16:00
--
手机已上传项目，网页没显示，是否上传成功？
-- 发布时间：2020/4/27 11:37:00
--
这种没有办法做。汇总表有多个表的数据，没有办法判断是第几行数据。详细使用文字具体说明一下要做的功能
-- 发布时间：2020/4/27 11:43:00
-- 回复：（有点蓝）这种没有办法做。汇总表有多个表的数...
每个表的所有行 表列显示 值都是一样的
录入表名，自动录入 该表名 的 表列显示 值应该可以实现吧？ 不要行对行取 表列显示的值，因为整列表列显示的值是一样的
也就是录入 表名 假如有1行存在，就录入第一行 表列显示 的值，即可
[此贴子已经被作者于2020/4/27 11:48:44编辑过]