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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 集合的应用

共有2349人关注过本帖树形打印复制链接主题：集合的应用

cd_tdh

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

加好友

发短信

等级：狐精帖子：3191 积分：21219 威望：0 精华：0 注册：2016/3/28 16:57:00

集合的应用

Post By：2018/1/5 15:09:00 [只看该作者]

老师，没研究过集合，我单独有个审核窗口，意见汇总是绑定到列“审批意见”本级审批意见需要增加到审批意见列的集合去，每一级审批需要换行，怎么写呢。

做了个示例，麻烦帮忙看看。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

y2287958

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

加好友

发短信

等级：狐神帖子：4733 积分：34458 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2018/1/5 16:00:00 [只看该作者]

vbcrlf

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/5 16:16:00 [只看该作者]

如代码

Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
t1.text = t1.text & vbcrlf & t2.text
t1.WriteValue

cd_tdh

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

加好友

发短信

等级：狐精帖子：3191 积分：21219 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2018/1/5 17:06:00 [只看该作者]

以下是引用有点甜在2018/1/5 16:16:00的发言：

如代码

Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
t1.text = t1.text & vbcrlf & t2.text
t1.WriteValue

集合部门、姓名、日期、t1到t2运算符号

---------------------------
编译错误:没有为类型“WinForm.TextBox”和“String”定义运算符“&”。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/5 17:17:00 [只看该作者]

3楼代码我测试没问题，贴出你写的代码。

cd_tdh

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

加好友

发短信

等级：狐精帖子：3191 积分：21219 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2018/1/5 18:37:00 [只看该作者]

3楼的没问题，我是在合成所有的字符串(部门-姓名-日期-意见)的时候提示的，部门（_usergroup）和姓名(_username)都是全局变量，现在在家了，只有上班在看了。

[此贴子已经被作者于2018/1/5 18:37:41编辑过]

cd_tdh

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

加好友

发短信

等级：狐精帖子：3191 积分：21219 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2018/1/25 21:39:00 [只看该作者]

以下是引用有点甜在2018/1/5 16:16:00的发言：

如代码

Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
t1.text = t1.text & vbcrlf & t2.text
t1.WriteValue

老师，合成的字符串怎么分部门提取到excel报表里面呢？

比如报表里面:工程部审批意见，提取工程部的