Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]邮箱


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

主题：[求助]邮箱
帅哥哟，离线，有人找我吗？
江南小城
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/7/22 21:29:00 [显示全部帖子]

老师，窗口打开后隐藏算是打开吗？当我在通讯录窗口编辑姓名、邮件地址时希望能触发事件打开编辑收件人窗口编辑结束能自动关闭此窗口。多谢老师。

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/7/24 8:33:00 [显示全部帖子]


    Forms("通讯录窗口").Controls("个人_邮箱").Text = Forms("编辑收件人窗口").Controls("TextBox1").Text

老师，我在通讯录窗口页面集合（个人信息）中打开编辑收件人窗口在“TextBox1"操作确认后希望把数据发送到通讯录窗口"个人_邮箱"列中



    Forms("通讯录窗口").Controls("企业_邮箱").Text = Forms("编辑收件人窗口").Controls("TextBox1").Text

我在通讯录窗口页面集合（企业信息）中打开编辑收件人窗口在“TextBox1"操作确认后希望把数据发送到通讯录窗口"企业_邮箱"列中



                                                                                                      谢谢





[此贴子已经被作者于2015/7/24 8:34:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/7/24 9:59:00 [显示全部帖子]

老师，通讯录表有个人_邮箱列和企业_邮箱列他们分别在不同页面集合中打开。我在个人信息页签中打开编辑收件人窗口就输入个人邮箱地址，在企业信息页签中打开编辑收件人窗口就输入企业邮箱地址。

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/7/24 10:29:00 [显示全部帖子]

老师，我不懂，vars("变量") = "企业_邮箱"。今后学习

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/7/24 10:42:00 [显示全部帖子]

老师，我看了不太懂，这次麻烦你帮我好吗？让我慢慢研究。谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/7/24 11:05:00 [显示全部帖子]

以下是引用大红袍在2015/7/24 10:05:00的发言：

 

打开之前用变量记录

 

vars("变量") = "企业_邮箱"

 

关闭窗口前赋值

 

Forms("通讯录窗口").Controls(vars("变量")).Text = Forms("编辑收件人窗口").Controls("TextBox1").Text

Tables("表A").Current(vars("变量")) = Forms("编辑收件人窗口").Controls("TextBox1").Text

[此贴子已经被作者于2015/7/24 10:04:59编辑过]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:邮箱.table
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/7/24 12:22:00 [显示全部帖子]

If e.Form.Controls("TextBox1").Value <> "" And e.Form.Controls("TextBox2").Value <> ""
    Dim txt As String = e.Form.Controls("TextBox1").Value & "," & e.Form.Controls("TextBox2").Value '编辑的信息
    Functions.Execute("MailEdit","ToMailList.Txt",txt)
    Tables("通讯录").Current(vars("变量")) = e.form.Controls("TextBox2").Text

    e.Form.Close()
Else
    MessageBox.Show("邮件信息不完整, 请重新设置! ","信息提示",MessageBoxButtons.OK)
End If


老师，我上传的例子编辑收件人窗口确定按钮里面有一段引用内部函数的代码被我删除了。编辑收件人窗口邮件文本框输入数据确认后两个接收文本框全部有数据
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/7/24 17:46:00 [显示全部帖子]

以下是引用江南小城在2015/7/24 12:22:00的发言：
If e.Form.Controls("TextBox1").Value <> "" And e.Form.Controls("TextBox2").Value <> ""
    Dim txt As String = e.Form.Controls("TextBox1").Value & "," & e.Form.Controls("TextBox2").Value '编辑的信息
    Functions.Execute("MailEdit","ToMailList.Txt",txt)
    Tables("通讯录").Current(vars("变量")) = e.form.Controls("TextBox2").Text

    e.Form.Close()
Else
    MessageBox.Show("邮件信息不完整, 请重新设置! ","信息提示",MessageBoxButtons.OK)
End If


老师，我上传的例子编辑收件人窗口确定按钮里面有一段引用内部函数的代码被我删除了。编辑收件人窗口邮件文本框输入数据确认后两个接收文本框全部有数据


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


老师，原文件上传不了，编辑收件人窗口原件不报错。

[此贴子已经被作者于2015/7/24 17:46:42编辑过]
 回到顶部
总数 19 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 7 次数据查询