MailSsender怎么提取子表中的信息，最好可以像表格一样展示出来 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

父表提取子天的信息，通过邮件发送出去，最好能像表格一样展示。请各位仁兄指导。

用GetChildRows可以取得父表某行数据在子表对应的行。

你要有具体的问题，别人才能具体的答案，泛泛而问，也只能泛泛而答。

你好，主要就是想实现这个功能，父表一行发一封邮件，邮件内容中有一个表，把子表中的所有行的数据选取其中几列放入邮件中，然后发出去。

mailSender不是可以发送任意内容么？

你自己去获取子表的内容，然后合并成一个文本内容，然后发送不就行了？

还是简单弄一个。

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

感谢你的指导，但我想问下，这个只能弄成一个防表格，如果表格内容中有些长有些短会变得很乱，没有办法弄成标准的表格吗

发送html格式的邮件代码。你需要在管理项目 -> 添加引用那里引用一下System.Net.Dll

代码

Dim client As New System.Net.Mail.SmtpClient()
client.Host = "smtp.126.com"
client.Credentials = New System.Net.NetworkCredential("lin_hailun@126.com", "6849338.")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage("lin_hailun@126.com", "spring.me@qq.com")
message.Subject = "主题测试"
message.BodyEncoding = System.Text.Encoding.UTF8
message.IsBodyHtml = True

Dim body As String = "<html><body><table border='1'>单元格内容</table></body></html>"
Dim content As String = "<tr><th>第一列</th><th>第二列</th></tr>"
For Each dr As DataRow In Tables("表A").Current.DataRow.GetChildRows("表B")
    content &= "<tr><td>" & dr("第二列") & "</td><td>" & dr("第三列") & "</td></tr>"
Next

message.Body = body.Replace("单元格内容", content)

Try
    client.Send(message)
    msgbox("发送成功")
Catch ex As Exception
    msgbox("发送失败:" & ex.message)
End Try

下载信息 [文件大小：下载次数： ]
点击浏览该文件:邮件_发送html.zip

主题：MailSsender怎么提取子表中的信息，最好可以像表格一样展示出来