专家坐堂-查询窗口怎么设计好？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dtb1 As New DataTableBuilder("历史自查统计")

dtb1.AddDef("编码", Gettype(String), 32)

dtb1.AddDef("名称", Gettype(String), 32)

dtb1.AddDef("地点", Gettype(String), 32)

dtb1.AddDef("管理员", Gettype(String), 32)

dtb1.AddDef("检查时间", Gettype(Date), 32)

dtb1.AddDef("检查结果", Gettype(String), 32)

dtb1.AddDef("检查人员", Gettype(String), 32)

dtb1.AddDef("照片", Gettype(String), 255)

dtb1.Build()

然后在窗口中加入table控件，绑定历史自查统计表。并在窗口中加入年、月选择和查询按钮，在按钮事件中加入代码

For Each dr As DataRow In DataTables("灭火器表").DataRows

Dim dr1 As DataRow = DataTables("历史自查统计").AddNew()

dr1("编码") = dr("编码")

dr1("名称") = dr("名称")

dr1("地点") = dr("放置地点")

dr1("管理员") = dr("管理员")

Dim y As Integer = e.Form.Controls("NumericComboBox1").value

Dim m As Integer = e.Form.Controls("NumericComboBox2").value

Dim dt1 As New Date(y, m, 1)

Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天

Dim Filter As String

Filter = "检查日期 >= #" & dt1 & "# And 检查日期 <= #" & dt2 & "# And 编号 = \'" & dr("编码") & "\'"

Dim dr2 As DataRow

dr2 = DataTables("灭火器检查表").Find(Filter,"检查日期 Desc")

If dr2 IsNot Nothing Then \'如果找到符合条件的行

dr1("检查时间") = dr2("检查日期")

dr1("检查结果") = dr2("检查结果")

dr1("检查人员") = dr2("检查人")

dr1("照片") = dr2("指针图片")

End If