- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于输出字符窜的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85640)
-- 发布时间：2016/5/30 19:19:00
-- 关于输出字符窜的问题
红袍老师，我能否通过窗口的按钮，实现将表中的一行记录输出为一个文本内容，比如说表的标题行有A,B,C,D,F，记录有5行，要实现选择一行后，点击窗口的“输出“按钮，将行记录的内容输入到”窗口2“的Textbox1中，这样便于复制，并通过飞信进行发送。
[此贴子已经被作者于2016/5/30 19:19:18编辑过]
-- 发布时间：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
-- 发布时间：2016/5/30 20:16:00
--
红袍老师，这个提示未将对象引用到实例啊？
-- 发布时间：2016/5/30 20:16:00
--
我要那个窗口1弹出来，便于我复制数据哦
-- 发布时间：2016/5/30 20:17:00
--
你要选中表A的一行数据啊。
-- 发布时间：2016/5/30 20:17:00
--
不会做，直接上传foxtable例子
-- 发布时间：2016/5/30 20:27:00
--
红袍老师，我做了个简单的例子，你看怎么解决？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2016/5/30 20:31:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2016/5/30 21:05:00
--
谢谢红袍老师，问题基本解决。这个能实现换行吗？
-- 发布时间：2016/5/30 21:06:00
--
Dim str As String = t.Current("第一列") & vbcrlf & t.Current("第二列")