Foxtable(狐表)用户栏目专家坐堂 → [求助]关于窗口能否以表格形式进行录入


  共有2392人关注过本帖树形打印复制链接

主题:[求助]关于窗口能否以表格形式进行录入

帅哥哟,离线,有人找我吗?
洮沙
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:7120 威望:0 精华:0 注册:2017/8/31 12:07:00
[求助]关于窗口能否以表格形式进行录入  发帖心情 Post By:2017/12/2 10:08:00 [只看该作者]

假设有“表A”一张,各列名为下表中左边“项目”,内容为“金额”;

        “表B”一张,各列名为下表中左边“项目”,内容为“税额”;

数据各自关联。

 

 

麻烦问一下:如何能够做到像下表一样的格式(界面),进行窗口录入?

 


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

 

好像Foxtable没有此类控件啊!

 

难道是通过线条和其他控件一样一样慢慢组合成的吗?

 

建议狐爸增加一个类似表格一样的控件!

 

 

请老师们帮忙给予答复,谢谢!



 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/2 10:13:00 [只看该作者]

上面标题/汇总部分使用控件

下面录入数值部分使用表格控件即可

 回到顶部
帅哥哟,离线,有人找我吗?
洮沙
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:7120 威望:0 精华:0 注册:2017/8/31 12:07:00
回复:(有点蓝)上面标题/汇总部分使用控件下面录入数...  发帖心情 Post By:2017/12/2 10:33:00 [只看该作者]

蓝老师,上部分能够理解,关键是下部分是用“Table控件”吗?没有“表格”啊?!


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/2 10:43:00 [只看该作者]

嗯,“Table控件”

 回到顶部
帅哥哟,离线,有人找我吗?
洮沙
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:7120 威望:0 精华:0 注册:2017/8/31 12:07:00
回复:(有点蓝)嗯,“Table控件”  发帖心情 Post By:2017/12/2 10:47:00 [只看该作者]

Table控件无法实现以上功能啊?!且只能绑定一张表,而且对于列的数据录入只能是横向,无法安装实例图片中的进行纵向录入?!

 

 

也许是自己思路未开,烦请详细说明一下,此问题困扰好长时间了!万分感谢!!

[此贴子已经被作者于2017/12/2 10:47:08编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/2 10:53:00 [只看该作者]

专门创建一个和1楼一样的表格,左边2列锁定,做成竖向的录入。窗口保存时再把数据转入其它表中

 回到顶部
帅哥哟,离线,有人找我吗?
洮沙
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:7120 威望:0 精华:0 注册:2017/8/31 12:07:00
[求助]回复:(有点蓝)专门创建一个和1楼一样的表格,左边2...  发帖心情 Post By:2017/12/2 11:40:00 [只看该作者]

豁然开朗了,谢谢!

 

不过如何能够写进去呢?主要是判断当前表中的行和目标表中的列的语法方面,自己能力有限,不会做了,烦请老师不吝指教!

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

就是“项目”中“窗口1”中的保存按钮,如何实现在“金额”“税额”中同时新增一行数据。


 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/2 11:44:00 [只看该作者]

数据库文件请上传

 回到顶部
帅哥哟,离线,有人找我吗?
洮沙
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:7120 威望:0 精华:0 注册:2017/8/31 12:07:00
回复:(有点蓝)数据库文件请上传  发帖心情 Post By:2017/12/2 11:49:00 [只看该作者]

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


 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/2 12:07:00 [只看该作者]

保存按钮

Dim dr As DataRow
Dim str() As String = {"金额","税额"}
For Each r As Row In e.Form.Controls("Table1").Table.Rows
    Dim arr() As String = r("项目").split("%")
    For Each s As String In str
    If r.IsNull(s) = False
        dr = DataTables(s).AddNew
        dr(s & "_" & arr(0)) = r(s)
    End If
    Next
Next

 回到顶部
总数 14 1 2 下一页