主题：[求助]数据行筛选问题

此主题相关图片如下：捕获.png

数据表“生存认证”，其中有列[年度]与[归属时期]需要对进行筛选。

以下是现有窗口代码： 

 

窗口与控件事件

 

认证资料打印_Button1_Click

 

Dim nd As String = e.Form.Controls("ComboBox1").Text    '定义认证年度

Dim sd As String = e.Form.Controls("ComboBox2").Text    '定义归属时期

Dim Doc As New  PrintDoc          '定义一个报表对象

Dim rt As prt.RenderText          '定义一个文本对象

Dim rm As new  prt.RenderImage       '定义一个图片对象

For Each r As DataRow In DataTables("生存认证").Select("年度 = '" & nd & "' or 归属时期 = '" & sd & "'")              '条件定义图片

    rt = new prt.RenderText           '确认定义一个文本对象

    rt.text = "生存认证资料_" &"姓名:" & r("姓名") & "    认证年度:" & r("年度") & "    归属时期:" & r("归属时期")   '设置文本对象内容

    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center                   '设置文本对象水平居中

    rt.Style.Fontsize = 16        '设置字体大小为16号

    Doc.Body.Children.Add(rt)

    rm = new prt.RenderImage              '确认定义一个图片对象

    rm.Width = "100%Parent"         '设置图片尺寸为容器(页面)尺寸

    rm.Height = "85%Parent"

    rm.image = getimage(ProjectPath & "attachments/" & r("生存认证图片"))   '设置图片

    rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center                '图片居中显示

    rm.Style.Borders.All = new prt.LineDef(0.3,Color.red)           '设置红色边框线

    rm.Style.Spacing.Bottom = 8         '设置图片垂直对齐位置为靠底8mm

    rm.BreakAfter = prt.BreakEnum.Page

    Doc.Body.Children.Add(rm)      '将图片对象加入报表

Next

Doc.Preview()        '预览报表内容

 

认证资料打印_Button2_Click

 

Dim nd As String = e.Form.Controls("ComboBox1").Text

Dim sd As String = e.Form.Controls("ComboBox2").Text

DataTables("生存认证").GetComboListString("居民身份号码", "年度 = '" & nd & "' Or 归属时期 = '" & sd & "'").replace("|", "','")

'==========================以上是筛选已经认证的人员==============================

Dim Book As New XLS.Book(ProjectPath & "attachments\生存认证表.xls")

Book.Build()

Book.Save(ProjectPath & "Reports\生存认证表.xls")

Dim Proc As New Process

Proc.File = ProjectPath & "reports\生存认证表.xls"

Proc.Start()

'==============================以上是认证报表打印=================================

Tables("生存认证").Filter = ""

e.Form.Close

 

认证资料打印_Button3_Click

 

e.Form.Close

 

认证资料打印_ComboBox1_Enter

 

e.Sender.ComboList = DataTables("生存认证").GetComboListString("年度",,"_Identify")

 

认证资料打印_ComboBox1_TextChanged

 

Vars("ndz") = e.Sender.text

 

认证资料打印_ComboBox2_Enter

 

e.Sender.ComboList = DataTables("生存认证").GetComboListString("归属时期",,"_Identify")

 

认证资料打印_ComboBox2_TextChanged

 

Vars("sdz") = e.Sender.Text

 

请各位老师给予指正。

错误问题：1、无法筛选或筛选结果不对；2、报表打印报错；3、ComboBox2与ComboBox1是空值时，没有提示筛选条件不满足。

此主题相关图片如下：捕获1.png


此主题相关图片如下：捕获2.png