2020-08-20 18:53发布
点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）嗨， 我正在使用 VB6 和C... 显示全部
加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）
嗨，
我正在使用 VB6 和Crystal Reports v.9
我在Crystal SDK中没有DatabaseFieldDefinition.UseCount属性
如何获取报告所使用的数据库字段的代码？
谢谢！
将iSectionCounter设置为整数
将iObjectCounter设置为整数
dim sUsedFields作为字符串
将水晶作为CRAXDRT.Application
设置oCrystal =新CRAXDRT.Application
将oReport视作CRAXDRT.Report
设置oReport = oCrystal.OpenReport（" C：\ myreport.rpt"）
对于iSectionCounter = 1到oReport.Sections.Count
带有oReport.Sections（iSectionCounter）
对于iObjectCounter = 1到.ReportObjects.Count
带有.ReportObjects
If .Item（iObjectCounter）.Kind = crFieldObject 然后
Dim sF as CRAXDRT.FieldObject
设置sF = .Item（iObjectCounter）
如果sF.Field.UsedCount> 0，那么（我找不到UsedCount属性或其他内容）
fFieldUsed = True
如果结束
结束于
结尾为
下一个iObjectCounter
下一个iSectionCounter
最多设置5个标签!
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','http://www.easysap.com/data/attach/logo/logo.png', '推荐 南山jay 的问题《报告使用哪些数据库字段？》','https://www.easysap.com/answer/19933/55892.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
将iSectionCounter设置为整数
将iObjectCounter设置为整数
dim sUsedFields作为字符串
将水晶作为CRAXDRT.Application
设置oCrystal =新CRAXDRT.Application
将oReport视作CRAXDRT.Report
设置oReport = oCrystal.OpenReport（" C：\ myreport.rpt"）
对于iSectionCounter = 1到oReport.Sections.Count
带有oReport.Sections（iSectionCounter）
对于iObjectCounter = 1到.ReportObjects.Count
带有.ReportObjects
If .Item（iObjectCounter）.Kind = crFieldObject 然后
Dim sF as CRAXDRT.FieldObject
设置sF = .Item（iObjectCounter）
如果sF.Field.UsedCount> 0，那么（我找不到UsedCount属性或其他内容）
fFieldUsed = True
如果结束
结束于
结尾为
下一个iObjectCounter
结尾为
下一个iSectionCounter
一周热门 更多>