- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何将狐表的内容填充到网页表单？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88059)
-- 发布时间：2016/7/26 10:09:00
-- 如何将狐表的内容填充到网页表单？
如何将狐表的内容填充到网页表单？有相关例子吗
-- 发布时间：2016/7/26 10:15:00
--
参考
Dim web = e.form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True
web.Navigate("http://www.baidu.com")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim pg = web.Document.GetElementById("kw")
pg.SetAttribute("Value", "foxtable")
-- 发布时间：2016/9/7 17:02:00
--
老师帮忙看看如果我想把狐表数据填充到网页的“纳税人识别号”、“电话” 、“纳税人名称”应该如何写？附件附上该网页的HTML代码
-- 发布时间：2016/9/7 17:14:00
--
以下是引用wh420在2016/9/7 17:02:00的发言：
老师帮忙看看如果我想把狐表数据填充到网页的“纳税人识别号”、“电话” 、“纳税人名称”应该如何写？附件附上该网页的HTML代码
已经点到这份儿上了，你还不会....老师帮忙看看如果我想把狐表数据填充到网页的“纳税人识别号”、“电话” 、“纳税人名称”应该如何写？附件附上该网页的HTML代码
-- 发布时间：2016/9/7 17:17:00
--
Dim web = e.form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True
web.Navigate("http://www.baidu.com")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim hec As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("input")
For i As Integer = 0 To hec.Count - 1 \'循环所有标签
If hec(i).Name = "r1c2" Then
hec(i).SetAttribute("Value", "纳税人识别号")
ElseIf hec(i).Name = "r2c2"
hec(i).SetAttribute("Value", "电话")
ElseIf hec(i).Name = "r1c1"
hec(i).SetAttribute("Value", "纳税人名称")
End If
Next
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#000000">
<tr>
<td rowspan="4" align="left" bgcolor="#FFFFFF">购货方、接收劳务或服务方纳税人</td>
<td align="left" nowrap bgcolor="#FFFFFF">纳税人识别号 <br></td>
<td align="left" bgcolor="#FFFFFF"><input name="r1c2" type="text" size="40"></td>
<td align="left" bgcolor="#FFFFFF">电话</td>
<td align="left" bgcolor="#FFFFFF"><input name="r2c2" type="text" size="35"></td>
</tr>
<tr>
<td align="left" nowrap bgcolor="#FFFFFF">纳税人名称</td>
<td align="left" bgcolor="#FFFFFF" colspan="3"><input name="r1c1" type="text" size="86" ></td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFFF"> 地址</td>
<td align="left" bgcolor="#FFFFFF" colspan="3"><input name="r2c1" type="text" size="86"></td>
</tr>
<tr>
<td align="left" nowrap bgcolor="#FFFFFF"> 银行名称</td>
<td align="left" bgcolor="#FFFFFF"><input name="r3c1" type="text" size="40"></td>
<td align="left" bgcolor="#FFFFFF" nowrap> 银行账户</td>
<td align="left" bgcolor="#FFFFFF"><input name="r3c2" type="text" size="35"></td>
</tr>
</table>