这个功能是如何实现的，为什么我用他网站提供的代码取不到数据

2008-06-08 07:19:49 161 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

从excel文件中获得数据，实现网站的批量查询数据功能直接上代码和解析，代码应该都是比较简单的，基本每行都加了注释希望看的亲们如果有更加简便严谨的代码，欢迎贴出来一起参考 1.有搜索结果的截图，判断所用的定位元素 2.无搜索结果的截图，判断布局正确的定位元素 3.无搜索结果且布局错误的截图 4.excel文件中数据，以行为单位 5.结果截图阅读详情

这里不会上传图片，我把它放到盒子论坛上了
http://bbs.2ccc.com/topic.asp?topicid=291153

...全文

一个完整的网站数据代码 print("所需json中字典的个数，",len(jsonlist))print("截取所需json中所有数据，",jsonlist)print("获取起始索引，",startIndex)#在字符串中找到需去掉的内容："reccords"print("截取索引结束,",endIndex)#通过起始位置和结束位置找到[]之间的数据。#将获取的数据解析成json列表。#转换为数据框，展示所有行列数据。#循环方式，抓取所有页面数据。#找到最后一个”】“的位置。阅读详情

dacsd

数据库相关 2,508 成员 88,437 内容

+ 关注 + 加入社区

切换为时间正序

yudm1976 2009-03-15

打赏
举报

这是Ok的代码，经测试，very good：
在form中添加有关的控件，再使用如下的代码即可。
-----------------
以下是供参考的单元：
uses
... cxCustomData, cxGridTableView, ...

// This form contains the ExpressQuantumGrid with an unbound TableView.

TForm2 = class(TForm)
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGrid1TableView1: TcxGridTableView;
end;

// Creates a drilldown data source for a particular cross cell and displays its data in a form.
procedure cxShowDrillDownDataSource(ACrossCell: TcxPivotGridCrossCell);

// Creates columns in the cxGridTableView for all the pivot grid fields.
procedure CreateColumns(APivotGrid: TcxCustomPivotGrid; AGridView: TcxGridTableView);

var
I: Integer;
AField: TcxPivotGridField;
begin
for I := 0 to APivotGrid.FieldCount - 1 do
begin
AField := APivotGrid.Fields[I];
with AGridView.CreateColumn do
begin
Caption := AField.Caption;
Visible := AField.Visible;
Hidden := AField.Hidden;
end;
end;
end;

var
AForm: TForm2;

ADataSource: TcxCustomDataSource;
begin
AForm := TForm2.Create(nil);
try
CreateColumns(ACrossCell.PivotGrid, AForm.cxGrid1TableView1);
ADataSource := ACrossCell.CreateDrillDownDataSource;
try
// Links a drilldown data source to the grid抯 TableView.
AForm.cxGrid1TableView1.DataController.CustomDataSource := ADataSource;
AForm.ShowModal;
finally
ADataSource.Free;

end;
finally
AForm.Free;
end;
end;

// The pivot grid抯 OnDblClick event handler.
procedure TForm1.cxDBPivotGrid1DblClick(Sender: TObject);
var
ACrossCell: TcxPivotGridCrossCell;
begin
with cxDBPivotGrid1.HitTest do
begin
// Handles double-clicks on data cells
if HitAtDataCell then
begin
// Determines a cross cell which corresponds to the data cell being clicked.

ACrossCell := TcxPivotGridDataCellViewInfo(HitObject).CrossCell;
cxShowDrillDownDataSource(ACrossCell);
end;
end;
end;

dacsd 2008-06-15

打赏
举报

自己解决，谢谢各位参与

dh9450 2008-06-13

打赏
举报

好象你设置了数据源(DataSource)却没设置数据集(DataSet)

dacsd 2008-06-12

打赏
举报

我实现的出现这个问题，在Drill down form中取不到数据，请各位帮忙看看哪里有问题，源码如下：
procedure TForm1.PVGDblClick(Sender: TObject);
var
ACrossCell: TcxPivotGridCrossCell;
AForm: TFrmDrillDown;
ADataSource: TcxCustomDataSource;
begin
with PVG.HitTest do
begin
if HitAtDataCell then
ACrossCell := (HitObject as TcxPivotGridDataCellViewInfo).CrossCell;
end;
AForm := TFrmDrillDown.Create(nil);
try
ADataSource := ACrossCell.CreateDrillDownDataSource;
try
AForm.TableView.DataController.CustomDataSource := ADataSource;
AForm.ShowModal;
finally
ADataSource.Free;
end;
finally
AForm.Free;
end;
end;
----------------------------------------------

dh9450 2008-06-12

打赏
举报

什么代码

dacsd 2008-06-12

打赏
举报

就是利用cxDBPivotGrid做出的交叉表，通过鼠标双击交叉表的数据单元格，获取组成这些数据的详细记录，也就是弹出窗口的GRID，现在的问题是，双击交叉表的数据单元格后，弹出的窗口中的GRID中无数据，代码是官方网站上提供的，不知道为何实现不了。
谢谢关注

dacsd 2008-06-11

打赏
举报

请大家快来看看。

dacsd 2008-06-09

打赏
举报

shuihan20e 2008-06-08

打赏
举报

啥意思

大大怪老张 2008-06-08

打赏
举报

没看懂

这个功能是如何实现的，为什么我用他网站提供的代码取不到数据

相关推荐