Foxtable(狐表)用户栏目专家坐堂 → 关于输出字符窜的问题


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

主题:关于输出字符窜的问题

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


加好友 发短信
等级:二尾狐 帖子:564 积分:4561 威望:0 精华:0 注册:2016/4/17 20:05:00
关于输出字符窜的问题  发帖心情 Post By:2016/5/30 19:19:00 [只看该作者]

红袍老师,我能否通过窗口的按钮,实现将表中的一行记录输出为一个文本内容,比如说表的标题行有A,B,C,D,F,记录有5行,要实现选择一行后,点击窗口的“输出“按钮,将行记录的内容输入到”窗口2“的Textbox1中,这样便于复制,并通过飞信进行发送。
[此贴子已经被作者于2016/5/30 19:19:18编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/30 19:39:00 [只看该作者]

这个意思?

 

dim t as table = Tables("表a")
Dim str As String = t.Current("第一列") & "," & t.Current("第二列")
msgbox(str)
Forms("窗口2").Controls("TextBox1").Text = str


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


加好友 发短信
等级:二尾狐 帖子:564 积分:4561 威望:0 精华:0 注册:2016/4/17 20:05:00
  发帖心情 Post By:2016/5/30 20:16:00 [只看该作者]

红袍老师,这个提示未将对象引用到实例啊?

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


加好友 发短信
等级:二尾狐 帖子:564 积分:4561 威望:0 精华:0 注册:2016/4/17 20:05:00
  发帖心情 Post By:2016/5/30 20:16:00 [只看该作者]

我要那个窗口1弹出来,便于我复制数据哦

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/30 20:17:00 [只看该作者]

你要选中表A的一行数据啊。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/30 20:17:00 [只看该作者]

 不会做,直接上传foxtable例子

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


加好友 发短信
等级:二尾狐 帖子:564 积分:4561 威望:0 精华:0 注册:2016/4/17 20:05:00
  发帖心情 Post By:2016/5/30 20:27:00 [只看该作者]

红袍老师,我做了个简单的例子,你看怎么解决?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/30 20:31:00 [只看该作者]

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


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


加好友 发短信
等级:二尾狐 帖子:564 积分:4561 威望:0 精华:0 注册:2016/4/17 20:05:00
  发帖心情 Post By:2016/5/30 21:05:00 [只看该作者]

谢谢红袍老师,问题基本解决。这个能实现换行吗?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/30 21:06:00 [只看该作者]

 

Dim str As String = t.Current("第一列") & vbcrlf & t.Current("第二列")


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