如何将ListView内容导出到Crystal Report 8.5

问题描述

Dim comp1, item1 as string
report1.EnableParameterPrompting = False
For i = 1 To lvwDisplayCompStok.ListItems.Count
Set codeitem = lvwDisplayCompStok.ListItems(i)
comp = codeitem.Text
item = codeitem.SubItems(1)
report1.ParameterFields.GetItemByName("comp").AddCurrentValue comp1
report1.ParameterFields.GetItemByName("item").AddCurrentValue item1
Next i

上面的编码给出了如下错误消息:

运行时错误"2147189553(80047ccf)":
您要添加的值/范围已经存在.

我在哪里犯错！还是不正确?

请按照适当的指南进行操作

谢谢

Above coding gives an error message as follows :

Run-time error ‘2147189553(80047ccf)’:
The value/range you are adding has already existed.

Where I am making mistake! or is it incorrect?

Please HELP with proper guidelines

Thanks

推荐答案

这篇关于如何将ListView内容导出到Crystal Report 8.5的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！