Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查询窗口怎么设计好？


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

主题：查询窗口怎么设计好？
帅哥哟，离线，有人找我吗？
yuweijie
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：188 积分：1904 威望：0 精华：0 注册：2017/12/20 20:41:00 		查询窗口怎么设计好？  发帖心情 Post By：2019/1/25 15:46:00 [只看该作者]

想做个查询窗口，但感觉好像不是这么弄，请教一下怎么做好。
目前是在窗口页控制click事件中加入
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
    
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/25 18:48:00 [只看该作者]

参考

 

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

 

具体问题，做个例子说明。
 回到顶部
帅哥哟，离线，有人找我吗？
yuweijie
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：188 积分：1904 威望：0 精华：0 注册：2017/12/20 20:41:00 		  发帖心情 Post By：2019/1/26 16:26:00 [只看该作者]

涉及两个表的，比如设计一个查询所有客户在2018年10月最后一次订货情况，查询表列包括    客户id    客户名称     订单日期    订单数量    金额。查询表包括客户表中的所有客户

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/1/26 17:01:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
yuweijie
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：188 积分：1904 威望：0 精华：0 注册：2017/12/20 20:41:00 		  发帖心情 Post By：2019/1/27 9:12:00 [只看该作者]

这个代码放哪个事件下，则么和窗口结合？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/27 10:48:00 [只看该作者]

以下是引用yuweijie在2019/1/27 9:12:00的发言：
这个代码放哪个事件下，则么和窗口结合？

 

你这种直接用sql语句处理即可。请上传具体实例测试。

 
 回到顶部
帅哥哟，离线，有人找我吗？
yuweijie
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：188 积分：1904 威望：0 精华：0 注册：2017/12/20 20:41:00 		  发帖心情 Post By：2019/1/28 18:24:00 [只看该作者]

谢谢
[此贴子已经被作者于2019/1/28 18:39:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/29 10:17:00 [只看该作者]

以下是引用yuweijie在2019/1/28 18:24:00的发言：
谢谢
[此贴子已经被作者于2019/1/28 18:39:19编辑过]

 

你这种直接用sql语句处理即可。请上传具体实例测试。

 

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询