Foxtable(狐表) → 用户栏目 → 专家坐堂 → 录入凭证设计


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

主题：录入凭证设计
帅哥，在线噢！
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106238 积分：540313 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/9 16:35:00 [显示全部帖子]

还是那句话，不需要判断，改为使用SqlCompute获取后台数据库最新的单号+1即可

至于"yz"，如果整个表都是"yz"，直接使用，如果不同行是不同的前缀，那么在窗口里添加一个前缀的录入
[此贴子已经被作者于2021/1/9 16:34:42编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106238 积分：540313 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/10 20:34:00 [显示全部帖子]

If d = "" Then
    messagebox.show("请选择日期")
    Return
ElseIf DataTables("缴费情况").Compute("Count([单号])","[前缀] = 'yz'") = 0 Then
    Dim y As Integer = d.Year
    Dim m As Integer = d.Month
    di = "yz-" & y & Format(m,"00") & "-0001" '编号前缀,2位前缀,4位年,2位月
Else
 回到顶部
帅哥，在线噢！
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106238 积分：540313 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/10 20:51:00 [显示全部帖子]

else后面这段代码明显是抄帮助的，但是却没有看帮助说明，这个是在服务器端的用法，却自以为是的用到客户端中。

改为12楼类似事件的用法获取最大单号+1即可
 回到顶部
帅哥，在线噢！
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106238 积分：540313 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/10 22:22:00 [显示全部帖子]

去掉红色的判断语句

 回到顶部
帅哥，在线噢！
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106238 积分：540313 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/11 8:41:00 [显示全部帖子]

flt = "[前缀] = 'yz' And [日期] >= #" & fd & "# And [日期] <= #" & ld & "#"

 回到顶部
帅哥，在线噢！
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106238 积分：540313 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/11 11:29:00 [显示全部帖子]

窗口刚打开的事件日期控件是没有值的，赋值后在执行其它代码，或者把对应的代码放到控件valuechange事件里

 回到顶部
帅哥，在线噢！
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106238 积分：540313 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/11 13:52:00 [显示全部帖子]

di = bh & Format(idx,"0000")
yzdh.Value = di

 回到顶部
帅哥，在线噢！
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106238 积分：540313 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/11 20:22:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106238 积分：540313 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/11 21:41:00 [显示全部帖子]

Select Case e.StripItem.Name
    Case "保存" '保存代码
        If e.Form.Controls("rq").text = "" Then
            messagebox.show("请选择日期")
            Return
        ElseIf Tables("月租收费_Table1").Compute("Count([车牌号码])") = 0 Then
            Return
        ElseIf e.Form.Controls("dh").text = "" Then
            Return '如果是,取消操作.
        Else
            For Each dt As Row In Tables("月租收费_Table1").Rows
                Dim r As DataRow = DataTables("缴费情况").addnew
                r("日期") = e.Form.Controls("rq").text
                r("单号") = e.Form.Controls("dh").text
                r("住址_巷") = dt("住址_巷")
                r("住址_号") = dt("住址_号")
……
            Next
        End If
        DataTables("缴费情况").Save()
    Case "取消" '取消代码
 回到顶部
帅哥，在线噢！
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106238 积分：540313 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/11 22:39:00 [显示全部帖子]

        Else
            For Each dt As dataRow In dataTables("月租收费_Table1").select("车牌号码 is not null")
                Dim r As DataRow = DataTables("缴费情况").find("[车牌号码]='" & dt("车牌号码") & "'")
if r is nothing then r = DataTables("缴费情况").addnew
                    r("日期") = e.Form.Controls("rq").text
                    r("单号") = e.Form.Controls("dh").text
                    r("住址_巷") = dt("住址_巷")
 回到顶部
总数 33 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 5 次数据查询