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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 邮件发送

共有5063人关注过本帖树形打印复制链接主题：邮件发送

有点甜

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

加好友

发短信

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

Post By：2019/3/29 19:45:00 [只看该作者]

以下是引用cglsg5076在2019/3/29 17:00:00的发言：
请问老师，我想遍历所有窗体里的table，并设置这些窗体里的table的字体大小，请问如何写代码？谢谢

窗口里面的table，必须打开窗口才能访问的。所以，你只能在每个窗口的afterLoad事件写代码处理。或者是，做一个【定时器】定时循环每一个tables，然后设置。

设置table字体，参考 http://www.foxtable.com/webhelp/scr/0497.htm

熊正义

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

加好友

发短信

等级：婴狐帖子：19 积分：311 威望：0 精华：0 注册：2016/3/29 16:35:00

Post By：2019/4/4 9:27:00 [只看该作者]

按帮助操作要求，我设置了如下代码，为什么邮件发送不出去了？也没有报错：截图如下：
图片点击可在新窗口打开查看

此主题相关图片如下：2.png

有点甜

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

加好友

发短信

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

Post By：2019/4/4 11:19:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=133022&skin=0

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1018 积分：6642 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2019/9/3 8:11:00 [只看该作者]

老师好，我的项目在附件。问题是如何从OList表的数据拷贝到OList2表里，两个表的结构不一样，数据是一样的，请问如何写代码？感谢您的帮助。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:copydata.zip

有点蓝

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

加好友

发短信

等级：超级版主帖子：109713 积分：558275 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/3 8:56:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/1533.htm

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1018 积分：6642 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2019/9/4 10:21:00 [只看该作者]

老师好，我的项目在附件，按照帮助的提示，我写了代码但是程序报错，不知道如何修改代码，请问如何修改代码？，（表OList2和表OList3是一样的，Olist2是手工拷贝的）。程序的目的是：OList表的数据拷贝到OList3表里，两个表的结构不一样，数据是一样。

感谢您的帮助。

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1018 积分：6642 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2019/9/4 10:22:00 [只看该作者]

感谢您的帮助。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:copydata2.zip

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1018 积分：6642 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2019/9/4 14:31:00 [只看该作者]

感谢您的帮助。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:copydata2.zip

有点蓝

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

加好友

发短信

等级：超级版主帖子：109713 积分：558275 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/4 15:07:00 [只看该作者]

代码中两个表的列必须一一对应，并且个数一样，列的类型也要一致，比如不能把字符串列数据导入整数列：

Dim Cols1() As String = {"pn","ln","ODate","Bl","px","py","vn"}

Dim Cols2() As String = {"spn","ln","ODate","spx","spy","vn","Bl"}

pn对应spn，......，vn对应Bl

For Each dr1 As DataRow In DataTables("OList").DataRows

Dim dr2 As DataRow = DataTables("OList3").AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

[此贴子已经被作者于2019/9/4 15:08:36编辑过]

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1018 积分：6642 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2019/9/4 18:51:00 [只看该作者]

老师好，您说的办法无法满足我的要求，能否提供其他的办法解决我的问题。谢谢。

下一主题 >> << 上一主题

总数 35 上一页 1 2 3 4 下一页

主题：邮件发送