以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  将表中的数据写到网页的指定位置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57726)
--  作者：Bin
--  发布时间：2014/9/30 8:23:00
--  
可以.参考http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=32808&skin=0
--  作者：菲舍尔
--  发布时间：2014/9/30 9:20:00
--  

可以的
--  作者：Bin
--  发布时间：2014/9/30 10:39:00
--  
Dim heca As System.Windows.Forms.HtmlElementCollection = e.Form.controls("WebBrowser1").basecontrol.Document.Window.Document.GetElementsByTagName("input")
                For i As Integer = 0 To heca.Count-1
                    If heca(i).OuterHtml.Contains("UserName") Then
                        heca(i).SetAttribute("Value","test138") 
                        Exit For
                    End If
                Next

看2楼的例子参考着做.
--  作者：有点甜
--  发布时间：2014/9/30 10:42:00
--  
 登陆参考7楼，具体填充内容，代码也差不多，照着例子做。
--  作者：有点甜
--  发布时间：2014/9/30 14:51:00
--  

 同样这样写。好像这个是无关紧要的，不影响登陆。

 

Dim heca As System.Windows.Forms.HtmlElementCollection = e.Form.controls("WebBrowser1").basecontrol.Document.Window.Document.GetElementsByTagName("select")
For i As Integer = 0 To heca.Count-1
    If heca(i).OuterHtml.Contains("UserType") Then
        heca(i).SetAttribute("Value","管理员")
        Exit For
    End If
Next
--  作者：有点甜
--  发布时间：2014/9/30 15:07:00
--  
 是否设置这个，跟你登陆是没有任何影响的，是页面编写得不规范。
--  作者：有点甜
--  发布时间：2014/10/4 9:59:00
--  

 回复15楼，例子之前已经给你了，你用户名，密码什么的又不说，别人怎么做啊。

 

 不会做就加QQ2450314695

 
--  作者：有点甜
--  发布时间：2014/10/4 14:05:00
--  
以下是引用mytian在2014-10-4 13:31:00的发言：

变量如何引用？

 

 

什么意思？

 

基础语法，请学习 http://www.foxtable.com/help/topics/0213.htm

 
--  作者：有点甜
--  发布时间：2014/10/4 14:17:00
--  
With CurrentTable
    Dim r As Integer
    r = .FindRow("[公司名称] Like \'%" & xj & "%\'", .Position + 1, True ) \'从当前行的下一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
    End If
End With