主题：[求助]写入单元格数据出错，如何解决

写了如下一句代码

rt.cells(0,1).text = Tables("产品").cols("产品编号")

运行时提示：

编译错误：类型“col"的值无法转换为”string“

错误代码：rt.cells(0,1).text = tables("”产品“).cols("产品编号")

请问各位高手，如何改正呢

bin老师和有点甜老师，你们指出的都非常正常，我想实现的功能是，在产品表中，任意选取几个产品，，比如：A,B,C三个产品，A产品标签要打印2份，B产品标签打印3份，C产品标签打印1份，如何实现这个功能呢，代码我也编出，就是实现不了这个功能，请指正，例子如下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

 呃

Dim doc As New PrintDoc '定义一个报表
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式
For Each r As  Row In Tables("产品表").GetCheckedRows()
    For i As Integer = 1 To r("份数")
        Dim rt As New prt.RenderTable() '定义一个表格对象
        rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
        rt.Width = 80 '表格宽度为80mm
        rt.Style.Spacing.All = 3 '和其他对象之间的间隔为2mm
        rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '避免垂直换页的时候,表格被分割成两部分.
        rt.Cols(0).Width = 15
        rt.cells(0,0).Text = "产品编号"
        rt.cells(0,1).text = r("产品编号")
        rt.Cells(1,0).Text = "产品成份"
        rt.cells(1,1).text = r("产品成份")
        rt.Cells(7,0).SpanCols =2
              
        doc.Body.Children.Add(rt) '将表格对象加入到报表中
    Next
Next
Doc.Preview() '预览报表

非常感谢有点甜老师，给你跪了！

上例中，如果要在A４纸上显示两列，如何编码，现在预览时只显一列