- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 麻烦大侠帮帮忙，我确实做不出来了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90838)
-- 发布时间：2016/9/22 16:22:00
-- 麻烦大侠帮帮忙，我确实做不出来了
麻烦大侠帮帮忙，我确实做不出来想要得效果，例子在二楼。
[此贴子已经被作者于2016/9/22 17:20:48编辑过]
-- 发布时间：2016/9/22 16:25:00
--
如图
此主题相关图片如下：qq截图20160922162233.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:web.foxdb |
麻烦大师们帮帮忙，脑壳做大了，
-- 发布时间：2016/9/22 17:32:00
--
Dim web As new windows.forms.webbrowser
web.ScriptErrorsSuppressed = True
web.Navigate("http://weidian.eallcn.com/232621561/mmfy/mmfydetail/id=3603988")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim dr As Row = Tables("表A").addnew
Dim idx = 1
For Each dl As object In web.Document.GetElementsByTagName("li")
Dim url = dl.GetAttribute("data-background")
If url > "" Then
Dim c As String = "图片" & idx
If Tables("表A").Cols.Contains(c) Then
dr(c) = url
End If
idx += 1
End If
Next
-- 发布时间：2016/9/22 19:16:00
--
此主题相关图片如下：qq截图20160922185648.png
蓝老师你好，我模仿做弄成现在这种结果了，请问如何将“备注1”列的数据分别填在售价 面积 户型列里面去呢 注：关键是“备注1”列的数据换成了4排，不像“备注2345”列那样简单，是这样子的
售价
75万 面积
120.68平米 户型
3室2厅
不在一行上面
此主题相关图片如下：qq截图20160922190844.png
还有我想在“TextBox1”里面输入网址，然后点击“获取数据”请问如何写web.Navigate（？？？），写 txb 不得行
Dim txb As WinForm.TextBox = Forms("获取数据").Controls("TextBox1")
Dim web As new windows.forms.webbrowser
web.ScriptErrorsSuppressed = True
web.Navigate("http://weidian.eallcn.com/232621561/mmfy/mmfydetail/id=3603988")
麻烦老师了，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:web.foxdb |
-- 发布时间：2016/9/22 20:32:00
--
花时间自己学习下帮助的【编程基础】，【Foxtable编程】和视频教程。没有基础，后面还继续有N个问题等着。
-- 发布时间：2016/9/22 21:13:00
--
可是帮助里面没有备注1列这样的多行数据提取案例，论坛里也找遍了，没找到
-- 发布时间：2016/9/22 21:46:00
--
当然有
-- 发布时间：2016/9/23 7:51:00
--
http://www.foxtable.com/webhelp/scr/2717.htm
-- 发布时间：2016/9/23 10:06:00
--
Dim txb As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim web As new windows.forms.webbrowser
web.ScriptErrorsSuppressed = True
web.Navigate(txb)
老师，我之前提的问题都解决了，但这点红色的部分使用变量怎么不得行呢
-- 发布时间：2016/9/23 10:22:00
--
web.Navigate(txb.Text)