按钮代码参考
Dim s As String
s = "<html> <head>" & _
"<meta http-equiv=""Content-Language"" c">" & _
"<meta http-equiv=""Content-Type"" c">" & _
"<title>测试页页面</title> </head> <body>"
For Each dr As DataRow In DataTables("回复表").datarows
s =s & "<p><font size=""2"" color=""#0000FF"">标题:" & dr("任务编号") & "</font></p>"
s =s & "<p><font size=""2"" color=""#0000FF"">内容:" & dr("回复人") & "</font></p>"
s =s & "<p><font size=""2"" color=""#FF0000"">收件人:" & dr("回复内容") & "</font></p>"
s =s & "<p><font size=""2"" color=""#FF0000"">发件人:" & dr("回复时间") & "</font></p>"
s = s & "<p><button value='修改'>修改</button><button value='删除'>删除</button></p>"
s = s & "<p>----------------</p>"
Next
s = s &" <p> </p> <p> </p> </body> </html>"
Dim fl As String = ProjectPath & "smd.htm"
FileSys.WriteAllText(fl,s,False)
e.Form.Controls("WebBrowser1").Address = fl
Webbrowser和foxtable交互，参考例子
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=51086&replyID=335028&skin=1
加好友 
发短信
Post By：2014/9/17 16:58:00 [只看该作者]
