主题：将表中的数据写到网页的指定位置

 登陆参考7楼，具体填充内容，代码也差不多，照着例子做。

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

 

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

 是否设置这个，跟你登陆是没有任何影响的，是页面编写得不规范。

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

 

 不会做就加QQ2450314695

 

 

什么意思？

 

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

 

With CurrentTable
    Dim r As Integer
    r = .FindRow("[公司名称] Like '%" & xj & "%'", .Position + 1, True ) '从当前行的下一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    End If
End With