Foxtable(狐表) → 用户栏目 → 专家坐堂 → 点选下拉列表选项后，其他控件未定现自动录入数据


  共有2993人关注过本帖树形打印复制链接

主题：点选下拉列表选项后，其他控件未定现自动录入数据
美女呀，离线，留言给我吧！
采菊东篱下
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/11/4 21:11:00 [显示全部帖子]

查出原因了。

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/11/5 22:25:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:排版.foxdb


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20211105221649.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20211105221119.png
图片点击可在新窗口打开查看
我想把基本信息表中的棋赛名称、棋赛副名、编号、姓名安图上的排版效果顺序显示，我这样做报错，请教应怎么改？
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/11/6 12:14:00 [显示全部帖子]

Dim doc As New PrintDoc '定义一个报表
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式
If e.Form.Controls("RadioButton1").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(0) Then
    doc.PageSetting.Width = 297 'A3纸张宽度,单位为毫米
    doc.PageSetting.Height = 420  'A3纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(1) Then
    doc.PageSetting.Width = 210 'A4纸张宽度,单位为毫米
    doc.PageSetting.Height = 297  'A4纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(2) Then
    doc.PageSetting.Width = 148.5 'A5纸张宽度,单位为毫米
    doc.PageSetting.Height = 210  'A5纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(3) Then
    doc.PageSetting.Width = 257 'B4纸张宽度,单位为毫米
    doc.PageSetting.Height = 364  'B4纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(4) Then
    doc.PageSetting.Width = 176 'B5纸张宽度,单位为毫米
    doc.PageSetting.Height = 250  'B5纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(5) Then
    doc.PageSetting.Width = 420 'A2纸张宽度,单位为毫米
    doc.PageSetting.Height = 594  'A2纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(6) Then
    doc.PageSetting.Width = 105 'A6纸张宽度,单位为毫米
    doc.PageSetting.Height = 148  'A6纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton1").Checked = True Then
    doc.PageSetting.Width = e.Form.Controls("TextBox1").Value '自定义纸张宽度,单位为毫米
    doc.PageSetting.Height = e.Form.Controls("TextBox2").Value  '自定义纸张高度,单位为毫米
End If
Dim c1 As Double = e.Form.Controls("TextBox4").Value
Dim c2 As Double = e.Form.Controls("TextBox5").Value
Dim c3 As Double = Val(doc.PageSetting.Width)
Dim c4 As Double = Val(doc.PageSetting.Height)
Doc.PageSetting.LeftMargin = (c3 - c1*(Math.Floor(c3/c1)))/2 '设置左边距
Doc.PageSetting.RightMargin = (c3 - c1*(Math.Floor(c3/c1)))/2 '设置右边距
Doc.PageSetting.TopMargin = (c4 - c2*(Math.Floor(c4/c2)))/2 '设置上边距
Doc.PageSetting.BottomMargin = (c4 - c2*(Math.Floor(c4/c2)))/2 '设置下边距
For i As Integer = 1 To 100
    Dim rt As New prt.RenderTable() '定义一个表格对象
    Dim Min0 As String = DataTables("基本信息").SQLCompute("Min(编号)","[棋赛名称] = '" & e.Form.Controls("ComboBox2").text & "'")
    Dim dr As DataRow = DataTables("基本信息").SQLFind("[棋赛名称] = '" & e.Form.Controls("ComboBox2").text & "' And [编号] = '" & Min0 & "'")
    If dr IsNot Nothing Then
        rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
        rt.Width = c1 '表格宽度为
        rt.Height = c2
        rt.Style.Spacing.All = 2 '和其他对象之间的间隔为2mm
        rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '避免垂直换页的时候,表格被分割成两部分.
        rt.Rows.Count = 6 '设置总行数
        rt.Cols.Count = 5 '设置总列数
        rt.Cols(0).Width = 20
        rt.cells(0,0).SpanCols = 5
        rt.cells(0,0).Text = e.Form.Controls("ComboBox2").text
        rt.Cells(1,0).SpanCols = 5
        If dr(i)("棋赛副名") = Nothing Then
            rt.Cells(1,0).Text = Nothing
        Else
            rt.Cells(1,0).Text = dr(i)("棋赛副名")
        End If
        rt.Cells(4,3).Text = dr(i)("编号")
        rt.cells(6,2).SpanCols = 3
        rt.Cells(6,2).Text= dr(i)("姓名")
    Else
        msgbox("没有符合条件的数据")
    End If
    doc.Body.Children.Add(rt) '将表格对象加入到报表中
Next
Doc.Preview() '预览报表

改这这样报错：
.NET Framework 版本：4.0.30319.18063
Foxtable 版本：2021.11.4.1
错误所在事件：窗口,胸牌排版,Button1,Click
详细错误信息：
Column '1' does not belong to table .
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/11/6 12:27:00 [显示全部帖子]

我要这样的效果

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20211106122620.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/11/6 14:51:00 [显示全部帖子]

Dim doc As New PrintDoc '定义一个报表
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式
If e.Form.Controls("RadioButton1").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(0) Then
    doc.PageSetting.Width = 297 'A3纸张宽度,单位为毫米
    doc.PageSetting.Height = 420  'A3纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(1) Then
    doc.PageSetting.Width = 210 'A4纸张宽度,单位为毫米
    doc.PageSetting.Height = 297  'A4纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(2) Then
    doc.PageSetting.Width = 148.5 'A5纸张宽度,单位为毫米
    doc.PageSetting.Height = 210  'A5纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(3) Then
    doc.PageSetting.Width = 257 'B4纸张宽度,单位为毫米
    doc.PageSetting.Height = 364  'B4纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(4) Then
    doc.PageSetting.Width = 176 'B5纸张宽度,单位为毫米
    doc.PageSetting.Height = 250  'B5纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(5) Then
    doc.PageSetting.Width = 420 'A2纸张宽度,单位为毫米
    doc.PageSetting.Height = 594  'A2纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(6) Then
    doc.PageSetting.Width = 105 'A6纸张宽度,单位为毫米
    doc.PageSetting.Height = 148  'A6纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton1").Checked = True Then
    doc.PageSetting.Width = e.Form.Controls("TextBox1").Value '自定义纸张宽度,单位为毫米
    doc.PageSetting.Height = e.Form.Controls("TextBox2").Value  '自定义纸张高度,单位为毫米
End If
Dim c1 As Double = e.Form.Controls("TextBox4").Value
Dim c2 As Double = e.Form.Controls("TextBox5").Value
Dim c3 As Double = Val(doc.PageSetting.Width)
Dim c4 As Double = Val(doc.PageSetting.Height)
Doc.PageSetting.LeftMargin = (c3 - c1*(Math.Floor(c3/c1)))/2 '设置左边距
Doc.PageSetting.RightMargin = (c3 - c1*(Math.Floor(c3/c1)))/2 '设置右边距
Doc.PageSetting.TopMargin = (c4 - c2*(Math.Floor(c4/c2)))/2 '设置上边距
Doc.PageSetting.BottomMargin = (c4 - c2*(Math.Floor(c4/c2)))/2 '设置下边距
Dim Min0 As String = DataTables("基本信息").SQLCompute("Min(编号)","[棋赛名称] = '" & e.Form.Controls("ComboBox2").text & "'")
For i As Integer = 1 To DataTables("基本信息").Compute("Count(姓名)","[棋赛名称] = '" & e.Form.Controls("ComboBox2").text & "'")
    Dim rt As New prt.RenderTable() '定义一个表格对象
    Dim dr As DataRow = DataTables("基本信息").SQLFind("[棋赛名称] = '" & e.Form.Controls("ComboBox2").text & "' And [编号] = '" & Min0 & "'")
    If dr IsNot Nothing Then
        rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
        rt.Width = c1 '表格宽度为
        rt.Height = c2
        rt.Style.Spacing.All = 2 '和其他对象之间的间隔为2mm
        rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '避免垂直换页的时候,表格被分割成两部分.
        rt.Rows.Count = 6 '设置总行数
        rt.Cols.Count = 5 '设置总列数
        rt.Cols(0).Width = 20
        rt.cells(0,0).SpanCols = 5
        rt.cells(0,0).Text = e.Form.Controls("ComboBox2").text
        rt.Cells(1,0).SpanCols = 5
        If dr("棋赛副名") = Nothing Then
            rt.Cells(1,0).Text = Nothing
        Else
            rt.Cells(1,0).Text = dr("棋赛副名")
        End If
        rt.Cells(4,3).Text = dr("编号")
        rt.cells(6,2).SpanCols = 3
        rt.Cells(6,2).Text= dr("姓名")
    Else
        msgbox("没有符合条件的数据")
    End If
    doc.Body.Children.Add(rt) '将表格对象加入到报表中
    Min0 = CStr(CInt(Max0) + 1)
Next
Doc.Preview() '预览报表

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20211106145030.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/11/6 15:20:45编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/11/6 15:01:00 [显示全部帖子]

上面不是已经定义了这个变量吗？
Dim Min0 As String = DataTables("基本信息").SQLCompute("Min(编号)","[棋赛名称] = '" & e.Form.Controls("ComboBox2").text & "'")
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/11/6 15:19:00 [显示全部帖子]

Dim doc As New PrintDoc '定义一个报表
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式
If e.Form.Controls("RadioButton1").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(0) Then
    doc.PageSetting.Width = 297 'A3纸张宽度,单位为毫米
    doc.PageSetting.Height = 420  'A3纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(1) Then
    doc.PageSetting.Width = 210 'A4纸张宽度,单位为毫米
    doc.PageSetting.Height = 297  'A4纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(2) Then
    doc.PageSetting.Width = 148.5 'A5纸张宽度,单位为毫米
    doc.PageSetting.Height = 210  'A5纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(3) Then
    doc.PageSetting.Width = 257 'B4纸张宽度,单位为毫米
    doc.PageSetting.Height = 364  'B4纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(4) Then
    doc.PageSetting.Width = 176 'B5纸张宽度,单位为毫米
    doc.PageSetting.Height = 250  'B5纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(5) Then
    doc.PageSetting.Width = 420 'A2纸张宽度,单位为毫米
    doc.PageSetting.Height = 594  'A2纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(6) Then
    doc.PageSetting.Width = 105 'A6纸张宽度,单位为毫米
    doc.PageSetting.Height = 148  'A6纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton1").Checked = True Then
    doc.PageSetting.Width = e.Form.Controls("TextBox1").Value '自定义纸张宽度,单位为毫米
    doc.PageSetting.Height = e.Form.Controls("TextBox2").Value  '自定义纸张高度,单位为毫米
End If
Dim c1 As Double = e.Form.Controls("TextBox4").Value
Dim c2 As Double = e.Form.Controls("TextBox5").Value
Dim c3 As Double = Val(doc.PageSetting.Width)
Dim c4 As Double = Val(doc.PageSetting.Height)
Doc.PageSetting.LeftMargin = (c3 - c1*(Math.Floor(c3/c1)))/2 '设置左边距
Doc.PageSetting.RightMargin = (c3 - c1*(Math.Floor(c3/c1)))/2 '设置右边距
Doc.PageSetting.TopMargin = (c4 - c2*(Math.Floor(c4/c2)))/2 '设置上边距
Doc.PageSetting.BottomMargin = (c4 - c2*(Math.Floor(c4/c2)))/2 '设置下边距
Dim Min0 As String = DataTables("基本信息").SQLCompute("Min(编号)","[棋赛名称] = '" & e.Form.Controls("ComboBox2").text & "'")
For i As Integer = 1 To DataTables("基本信息").Compute("Count(姓名)","[棋赛名称] = '" & e.Form.Controls("ComboBox2").text & "'")
    Dim rt As New prt.RenderTable() '定义一个表格对象
    Dim dr As DataRow = DataTables("基本信息").SQLFind("[棋赛名称] = '" & e.Form.Controls("ComboBox2").text & "' And [编号] = '" & Min0 & "'")
    If dr IsNot Nothing Then
        rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
        rt.Style.GridLines.Horz = new Prt.LineDef(Color.white)
        rt.Style.GridLines.Vert = new Prt.LineDef(Color.white)
        rt.Width = c1 '表格宽度为
        rt.Height = c2
        rt.Style.Spacing.All = 2 '和其他对象之间的间隔为2mm
        rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '避免垂直换页的时候,表格被分割成两部分.
        rt.Rows.Count = 8 '设置总行数
        rt.Cols.Count = 7 '设置总列数
        rt.Rows(0).Height = 7
        rt.Cols(0).Width = 3
        rt.cells(0,0).SpanCols = 7
        rt.cells(1,1).SpanCols = 5
        rt.Rows(1).Height = 10
        rt.Cells(1,1).Style.FontBold = True
        rt.Cells(1,1).Style.Font = New Font("华文楷体", 18, FontStyle.Bold)
        rt.cells(1,1).Text = e.Form.Controls("ComboBox2").text
        rt.cells(1,1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
        rt.cells(1,1).Style.TextAlignVert = prt.AlignHorzEnum.Center
        rt.Cells(2,1).SpanCols = 5
        rt.Rows(2).Height = 10
        If dr("棋赛副名") = Nothing Then
            rt.Cells(2,1).Text = Nothing
        Else
            rt.Cells(2,1).Text = dr("棋赛副名")
        End If
        rt.Cells(2,1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
        rt.cells(2,1).Style.TextAlignVert = prt.AlignHorzEnum.Center
        rt.Rows(3).Height = 1
        rt.Cols(3).Width = 37
        rt.Rows(4).Height = 30
        rt.Cells(4,3).Text = dr("编号")
        rt.Cells(4,3).Style.Font = New Font("华文楷体", 72, FontStyle.Bold)
        rt.Cells(4,3).Style.TextAlignHorz = prt.AlignHorzEnum.Center
        rt.cells(4,3).Style.TextAlignVert = prt.AlignHorzEnum.Center
        rt.Rows(5).Height = 1
        rt.cells(6,2).SpanCols = 3
        rt.Cells(6,2).Text= dr("姓名")
        rt.Cells(6,2).Style.Font = New Font("华文楷体", 28, FontStyle.Bold)
        rt.Cells(6,2).Style.TextAlignHorz = prt.AlignHorzEnum.Center
        rt.cells(6,2).Style.TextAlignVert = prt.AlignHorzEnum.Center
        rt.cells(7,0).SpanCols = 7
        rt.Rows(7).Height = 7
        rt.Cols(6).Width = 3
    Else
        msgbox("没有符合条件的数据")
    End If
    doc.Body.Children.Add(rt) '将表格对象加入到报表中
    Min0 = CStr(CInt(Min0) + 1)
Next
Doc.Preview() '预览报表

可以了。
[此贴子已经被作者于2021/11/6 19:51:29编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/11/6 17:20:00 [显示全部帖子]

上面的代码已经做出这样的效果，我想把网格不显示，另能不能在棋赛名称旁加个按钮弹出系统自带的字体窗口，随意选字体、字号，不要系统的字体窗口什么字体多大看不到效果啊。

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20211106171353.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/11/6 17:22:30编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/11/6 17:21:00 [显示全部帖子]

论坛回复中的上传图片，第一次上传肯定说错，第二次上传才成功，昨天发现每次都这样。

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/11/6 21:48:00 [显示全部帖子]

这样写弹出：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20211106214355.png
图片点击可在新窗口打开查看
选文字（如小五、小四）字号报错，选数字字号没问题，但系统中存在这种字号，怎么我在窗口中用组合框选就不行了？


Dim doc As New PrintDoc '定义一个报表
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式
If e.Form.Controls("TextBox4").Value Is Nothing OrElse e.Form.Controls("TextBox5").Value Is Nothing Then
    messagebox.show("模板长宽不能为空")
    Return
End If
If e.Form.Controls("RadioButton1").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(0) Then
    doc.PageSetting.Width = 297 'A3纸张宽度,单位为毫米
    doc.PageSetting.Height = 420  'A3纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(1) Then
    doc.PageSetting.Width = 210 'A4纸张宽度,单位为毫米
    doc.PageSetting.Height = 297  'A4纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(2) Then
    doc.PageSetting.Width = 148.5 'A5纸张宽度,单位为毫米
    doc.PageSetting.Height = 210  'A5纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(3) Then
    doc.PageSetting.Width = 257 'B4纸张宽度,单位为毫米
    doc.PageSetting.Height = 364  'B4纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(4) Then
    doc.PageSetting.Width = 176 'B5纸张宽度,单位为毫米
    doc.PageSetting.Height = 250  'B5纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(5) Then
    doc.PageSetting.Width = 420 'A2纸张宽度,单位为毫米
    doc.PageSetting.Height = 594  'A2纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton2").Checked = True And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(6) Then
    doc.PageSetting.Width = 105 'A6纸张宽度,单位为毫米
    doc.PageSetting.Height = 148  'A6纸张高度,单位为毫米
ElseIf e.Form.Controls("RadioButton1").Checked = True And e.Form.Controls("TextBox1").text IsNot Nothing And e.Form.Controls("TextBox2").text IsNot Nothing Then
    doc.PageSetting.Width = Val(e.Form.Controls("TextBox2").Value) '自定义纸张宽度,单位为毫米
    doc.PageSetting.Height = Val(e.Form.Controls("TextBox1").Value)  '自定义纸张高度,单位为毫米
Else
    messagebox.show("纸张规格不能为空")
    Return
End If
If e.Form.Controls("ComboBox2").Value Is Nothing Then
    messagebox.show("棋赛名称不能为空")
    Return
End If
Dim c1 As Double = e.Form.Controls("TextBox4").Value
Dim c2 As Double = e.Form.Controls("TextBox5").Value
Dim c3 As Double = Val(doc.PageSetting.Width)
Dim c4 As Double = Val(doc.PageSetting.Height)
Doc.PageSetting.LeftMargin = (c3 - c1*(Math.Floor(c3/c1)))/2 '设置左边距
Doc.PageSetting.RightMargin = (c3 - c1*(Math.Floor(c3/c1)))/2 '设置右边距
Doc.PageSetting.TopMargin = (c4 - c2*(Math.Floor(c4/c2)))/2 '设置上边距
Doc.PageSetting.BottomMargin = (c4 - c2*(Math.Floor(c4/c2)))/2 '设置下边距
Dim Min0 As String = DataTables("基本信息").SQLCompute("Min(编号)","[棋赛名称] = '" & e.Form.Controls("ComboBox2").text & "'")
For i As Integer = 1 To DataTables("基本信息").SQLCompute("Count(姓名)","[棋赛名称] = '" & e.Form.Controls("ComboBox2").text & "'")
    Dim rt As New prt.RenderTable() '定义一个表格对象
    Dim dr As DataRow = DataTables("基本信息").SQLFind("[棋赛名称] = '" & e.Form.Controls("ComboBox2").text & "' And [编号] = '" & Min0 & "'")
    If dr IsNot Nothing Then
        rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
        rt.Style.GridLines.Horz = new Prt.LineDef(Color.white)
        rt.Style.GridLines.Vert = new Prt.LineDef(Color.white)
        rt.Width = c1 '表格宽度为
        rt.Height = c2
        rt.Style.Spacing.All = 2 '和其他对象之间的间隔为2mm
        rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '避免垂直换页的时候,表格被分割成两部分.
        rt.Rows.Count = 8 '设置总行数
        rt.Cols.Count = 7 '设置总列数
        rt.Rows(0).Height = 7
        rt.Cols(0).Width = 3
        rt.cells(0,0).SpanCols = 7
        rt.cells(1,1).SpanCols = 5
        rt.Rows(1).Height = 10
        rt.Cells(1,1).Style.FontBold = True
        rt.Cells(1,1).Style.FontName = e.Form.Controls("FontPicker1").Value
        rt.Cells(1,1).Style.FontSize = e.Form.Controls("ComboBox3").Value
        rt.cells(1,1).Text = e.Form.Controls("ComboBox2").text
        rt.cells(1,1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
        rt.cells(1,1).Style.TextAlignVert = prt.AlignHorzEnum.Center
        rt.Cells(2,1).SpanCols = 5
        If dr("棋赛副名") = Nothing Then
            rt.Cells(2,1).Text = Nothing
            rt.Rows(2).Height = 0
        Else
            rt.Cells(2,1).Text = dr("棋赛副名")
        End If
        rt.Cells(2,1).Style.FontName = e.Form.Controls("FontPicker2").Value
        rt.Cells(2,1).Style.FontSize = e.Form.Controls("ComboBox4").Value
        rt.Cells(2,1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
        rt.cells(2,1).Style.TextAlignVert = prt.AlignHorzEnum.Center
        rt.Rows(3).Height = 2
        rt.Cols(3).Width = 37
        rt.Rows(4).Height = 30
        rt.Cells(4,3).Text = dr("编号")
        rt.Cells(4,3).Style.FontName = e.Form.Controls("FontPicker3").Value
        rt.Cells(4,3).Style.FontSize = e.Form.Controls("ComboBox5").Value
        rt.Cells(4,3).Style.TextAlignHorz = prt.AlignHorzEnum.Center
        rt.cells(4,3).Style.TextAlignVert = prt.AlignHorzEnum.Center
        rt.Rows(5).Height = 2
        rt.cells(6,2).SpanCols = 3
        rt.Cells(6,2).Text= dr("姓名")
        rt.Cells(6,2).Style.FontName = e.Form.Controls("FontPicker4").Value
        rt.Cells(6,2).Style.FontSize = e.Form.Controls("ComboBox6").Value
        rt.Cells(6,2).Style.TextAlignHorz = prt.AlignHorzEnum.Center
        rt.cells(6,2).Style.TextAlignVert = prt.AlignHorzEnum.Center
        rt.cells(7,0).SpanCols = 7
        rt.Rows(7).Height = 7
        rt.Cols(6).Width = 3
    ElseIf dr.IsNull("编号") Then
        Continue For
    End If
    doc.Body.Children.Add(rt) '将表格对象加入到报表中
    Min0 = CStr(CInt(Min0) + 1)
Next
'Dim rep As New prt.RenderEmpty '定义一个新的空对象
'rep.BreakBefore = prt.BreakEnum.Page '打印前换页
'doc.Body.Children.Add(rep )
Doc.Preview() '预览报表
[此贴子已经被作者于2021/11/7 15:27:33编辑过]
 回到顶部
总数 30 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 6 次数据查询