删除回复 2007-8-2 9:17:30
删除一条得分回复,扣除结贴人信誉分2分,贴子ID:5506792;回复内容:1、VB.NET示例
'创建ATGridServer WEB服务器端组件对象
Dim ATGrid1 As New ATGridServer
'打开报表模板文件,其中testDBF.et是有WinTable报表设计器制作完成
If Not ATGrid1.OpenDocEx( "ETFiles/testDBF.et ") Then
Response.Write( "不能装载报表模板 ")
Response.End()
End If
'通过行列获得单元格对象
Dim ppCell As New Cell
ppCell = ATGrid1.GetCell(3, 2)
If Not (ppCell Is Nothing) Then
Response.Write( "单元格的别名: " & ppCell.Name)
Response.Write( "单元格的别名: " & ppCell.AliasName)
Response.Write( "单元格所在的别名集合的名字: " & ppCell.AliasSetName)
Response.Write( "单元格所在的ETSet数据集名字: " & ppCell.ETSetName)
Response.Write( "单元格所在的ETSet数据集字段的名字: " & ppCell.FieldName)
End If
'输出为html页面
ATGrid1.ResponseHtml(false)
'释放ATGridServer WEB服务器端组件对象
ATGrid1.Close()
2、ASP示例
'创建ATGridServer WEB服务器端组件对象
Set ATGrid1 = new ATGridServer
'打开报表模板文件,其中testDBF.et是有WinTable报表设计器制作完成
If Not ATGrid1.OpenDocEx( "ETFiles/testDBF.et ") Then
Response.Write "不能装载报表模板 "
Response.End
End If
'通过行列获得单元格对象
Set ppCell = New Cell
ppCell = ATGrid1.GetCell(3, 2)
If Not (ppCell Is Nothing) Then
Response.Write "单元格的别名: " & ppCell.Name
Response.Write "单元格的别名: " & ppCell.AliasName
Response.Write "单元格所在的别名集合的名字: " & ppCell.AliasSetName
Response.Write "单元格所在的ETSet数据集名字: " & ppCell.ETSetName
Response.Write "单元格所在的ETSet数据集字段的名字: " & ppCell.FieldName
End If
'输出为html页面
ATGrid1.ResponseHtml False
'释放ATGridServer WEB服务器端组件对象
ATGrid1.Close
Set ATGrid1=Nothing
3、C#.NET示例
//创建ATGridServer WEB服务器端组件对象
ATGridServer ATGrid1 = new ATGridServer();