以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  前单后单查询按钮  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128439)

--  作者:zhuxinhui
--  发布时间:2018/12/7 10:22:00
--  前单后单查询按钮

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20181207102135.gif
图片点击可在新窗口打开查看

--  作者:zhuxinhui
--  发布时间:2018/12/7 10:23:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:有点甜
--  发布时间:2018/12/7 10:23:00
--  

参考

 

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

 


--  作者:zhuxinhui
--  发布时间:2018/12/7 10:24:00
--  
前单后单查询按钮不知怎样写好,根据单号的大小顺序查询
--  作者:有点甜
--  发布时间:2018/12/7 10:26:00
--  

认认真真看看 http://www.foxtable.com/webhelp/scr/2263.htm

 

不会做上传具体实例测试。


--  作者:zhuxinhui
--  发布时间:2018/12/7 14:04:00
--  
已上传案例,你的连接是绑定表及关联表的,与我的案例有些差别


--  作者:zhuxinhui
--  发布时间:2018/12/7 14:05:00
--  
有点甜老师反应很快
--  作者:有点甜
--  发布时间:2018/12/7 14:37:00
--  

1、你这样做表有问题,销售表,应该做成一个主表、一个明细表的形式才对。

 

2、查找前后,参考代码

 

Dim str As String = "PK-2017-05-11620"
Dim fdr As DataRow = DataTables("销售表").find("单号>\'" & str & "\'", "单号")
If fdr IsNot Nothing Then
    msgbox(fdr("单号"))
Else
    msgbox("没有了")
End If

 

--------------

 

Dim str As String = "PK-2017-05-11620"
Dim fdr As DataRow = DataTables("销售表").find("单号<\'" & str & "\'", "单号 desc")
If fdr IsNot Nothing Then
    msgbox(fdr("单号"))
Else
    msgbox("没有了")
End If


--  作者:zhuxinhui
--  发布时间:2018/12/7 15:12:00
--  
是,这样做表各方面都比较麻烦,我是想几种方式都试试,从中找个哪个好用,同时感觉这样做一个共用窗口,以后其他窗口都可以复制或自动修改下编码就可以使用OK,不知这样想对不对


--  作者:有点甜
--  发布时间:2018/12/7 16:33:00
--  

一个主表、一个明细表,是传统的做法,也是省力的做法。

 

当然你也可以坚持自己的。你这样做也有这样做的好处。