第一次来，请帮帮忙，有个关于graph数据窗口的问题不明白，急着做毕业论文，郁闷
我刚自学不久，请问一个问题哦：
在折线图中怎么生成两条折线啊？
横轴是日期，纵轴是产量，一条折线表示计划产量，一条表示实际产量。
各位好心人发发慈悲吧！
问题点数：0、回复次数：3Top
1 楼cjc79（岁月无痕）回复于 2003-06-01 11:03:49 得分 0
参考一下：
PB中统计图数值显示及分裂。
---- 在此应用的是数据窗口统计图对象D_graph：
---- 在显示窗口中放置一DataWindow Control 命名为Dw_graph连接对象D_graph.。放置一Static Text命名为St_1（显示鼠标点击统计图中统计项的数值,背景色可设为亮灰色,字体色可设为黑色，设置St_1.visible = false）
---- 数据窗口Dw_graph.DoubleClicked! 事件中编写脚本：（双击时分裂点击项并显示统计数值）
integer Li_SeriesNbr, Li_ItemNbr,Li_no,Li_percent
double data_value=0
grObjectType object_type
string SeriesName=""
string CategoryName=""
/********************************************************
Find out where the user clicked in the graph
*******************************************************/
object_type = this.ObjectAtPointer
("gr_1",Li_SeriesNbr, Li_ItemNbr)
/********************************************************
If user clicked on data or category, find out which one
*******************************************************/
IF object_type = TypeSeries! THEN
SeriesName = this.SeriesName("gr_1",Li_SeriesNbr)
if SeriesName <> '' then
st_1.text = '第 ' + string
(Li_SeriesNbr) + ' 组 ---___ ' + string(SeriesName)
st_1.x = parent.PointerX()
st_1.y = parent.PointerY() - 65
st_1.visible = true
end if
ELSEIF object_type = TypeData! then//
or object_type = TypeCategory!
data_value = this.GetData("gr_1",Li_SeriesNbr, Li_ItemNbr)
CategoryName = this.CategoryName("gr_1",Li_ItemNbr)
SeriesName = this.SeriesName("gr_1",Li_SeriesNbr)
st_1.text = string(SeriesName) +"组 :
" + string(data_value) +" 间 ' "+ CategoryName + " '."
st_1.x = parent.PointerX()
st_1.y = parent.PointerY() - 65
st_1.visible = true
ELSEIF ISNULL(object_type) THEN
return
ElSE
MessageBox (Parent.Title, "请双击图形区查看信息")
END IF
if (Li_SeriesNbr > 0 and Li_ItemNbr > 0 ) then
IF (This.object.gr_1.GraphType <> '13' and &
This.object.gr_1.GraphType <> '17' ) THEN RETURN
Li_percent = 30
li_no = this.setDataPieExplode
("gr_1",Li_SeriesNbr,Li_ItemNbr,Li_percent)
li_no = this.GetDataPieExplode
("gr_1",Li_SeriesNbr,Li_ItemNbr,Li_percent)
end if
Top
2 楼fanglotus（fanglotus）回复于 2003-06-01 11:10:05 得分 0
好感动哦，多谢多谢！Top
3 楼fanglotus（fanglotus）回复于 2003-06-01 12:49:31 得分 0
可是刚才试了一下,还是一条啊
Top
