主题：工作流

老师好，请问在加入的Page里需要加入webbrowser，请问怎么写代码？谢谢

请教老师，我要导入access数据库，和内部表是一样的，两者冲突，怎样写代码覆盖原有的内部数据表？谢谢！

 

1、如果要合并数据，参考 http://www.foxtable.com/webhelp/scr/0685.htm

 

http://www.foxtable.com/webhelp/scr/2137.htm

 

2、如果要把内部数据源转成外部，参考 http://www.foxtable.com/webhelp/scr/2297.htm

 

请教老师，请看附件，不知道为何Text部分的字数越多，生成的报表就多出Title部分数据行，如果减少Text部分的数据，这个现象就没有，请问老师如何更改代码。谢谢。

 

 

 

 

 

 

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

点击浏览该文件:管理项目26.zip

把这行代码删除

 

rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All '利用行组,将第一行设为表头

 

代码改成你这样

 

Dim doc As New PrintDoc '定义一个新报表
Dim rt As New prt.RenderTable '定义一个新表格
rt.width=200
rt.Cols.Count = 2 '设置列数
rt.Cols(0).width=40
rt.Cols(1).width=160
Dim tb As Table = Tables("Note1")
rt.Width =200 ' "Auto" '表格宽度为自动,也就是等于各列设置宽度之和
rt.Height="Auto"
'rt.SplitHorzBehavior = prt.SplitBehaviorEnum.SplitIfNeeded '表格宽度超出页宽时,可以水平换页
rt.Style.Font = tb.Font
Dim i As Integer = 0
For Each r As Row In tb.Rows
    For Each c As Col In tb.Cols
        rt.Cells(i,0).Text = c.Caption '列名作为标题
        rt.Cells(i,0).Style.textcolor =Color.Black
        rt.Cells(i,1).Text = r(c)
        i+=1
    Next
Next
rt.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Left '数据水平居中

rt.Style.Font = New Font("宋体", 12, FontStyle.Bold)
rt.cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Left
For c As Integer = 0 To rt.Rows.Count
    rt.Cells(c,0).Style.BackColor = Color.LightCyan
    rt.Cells(c,0).Style.textcolor =Color.Black
    rt.Cells(c,0).Style.TextAlignVert = prt.AlignHorzEnum.Center
Next

rt.Style.Gridlines.All = New prt.Linedef(Color.DeepSkyBlue) '灰色网格线
rt.CellStyle.Spacing.All = 0.5 '单元格内距设为0.5毫米
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中

doc.Body.Children.Add(rt) '将表格加入到报表

doc.Preview()

谢谢老师。

您的代码是将所有列都输出，我的需求是从第一列开始输出，我试了改您的代码都不行，请问怎么改您的代码？

 

你本来的代码，去掉这句代码

 

rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All '利用行组,将第一行设为表头

 

去掉了，还是不行。我的意思是不输出第0列的数据，数据表有5列，只是输出1，2，3，4列。

可以用你本来的代码

 

Dim doc As New PrintDoc '定义一个新报表
Dim rt As New prt.RenderTable '定义一个新表格
rt.width=200
rt.Cols.Count = 2 '设置列数
rt.Cols(0).width=40
rt.Cols(1).width=160
Dim tb As Table = Tables("Note1")
rt.Width =200 ' "Auto" '表格宽度为自动,也就是等于各列设置宽度之和
rt.Height="Auto"
'rt.SplitHorzBehavior = prt.SplitBehaviorEnum.SplitIfNeeded '表格宽度超出页宽时,可以水平换页
rt.Style.Font = tb.Font
Dim ID1 As String
Dim c1,r,xx As Integer
c1=0
r=0
rt.Rows.Count = (tb.Cols.Count-1)*(tb.rows.Count)
For c As Integer = 0 To rt.Rows.Count-1
    If c1>3 Then
        c1=0
        r=r+1
    End If
    rt.Cells(c,0).Text = tb.Cols(c1+1).Caption '列名作为标题
    rt.Cells(c,0).Style.textcolor =Color.Black
    rt.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Left '数据水平居中
   
    rt.Cells(c,1).Text = tb(r,c1+1)
    rt.Style.Font = New Font("宋体", 12, FontStyle.Bold)
    rt.Cells(c,1).Style.TextAlignHorz = prt.AlignHorzEnum.Left
    c1=c1+1
Next
For c As Integer = 0 To rt.Rows.Count
    rt.Cells(c,0).Style.BackColor = Color.LightCyan
    rt.Cells(c,0).Style.textcolor =Color.Black
    rt.Cells(c,0).Style.TextAlignVert = prt.AlignHorzEnum.Center
Next

rt.Style.Gridlines.All = New prt.Linedef(Color.DeepSkyBlue) '灰色网格线
rt.CellStyle.Spacing.All = 0.5 '单元格内距设为0.5毫米
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中

doc.Body.Children.Add(rt) '将表格加入到报表

doc.Preview()