Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口中自动编号问题


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

主题：[求助]窗口中自动编号问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/3 15:17:00 [显示全部帖子]

手动更改编号会不会破坏原来的自动编号的生成规则，如果没有那就直接在textbox中直接手动更改编号就行了，和原来的自动编号没有冲突的。不需要更改

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


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/3 15:56:00 [显示全部帖子]

没看懂。

如果编号都还没有，怎么判断C表编码是否相同？截图或者上传实例说明一下
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/3 16:11:00 [显示全部帖子]

如果是绑定的，直接在datacolchanged事件就是1楼的代码就行了。datacolchanged事件处理完后，文本框就会有值的。直接使用datacolchanged事件会有什么问题？

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


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/3 16:34:00 [显示全部帖子]

那么提问的时候就应该直接说明无法绑定的情况下应该怎么做

日期控件valuechanged事件

If e.sender.Value = Nothing  Then
    e.Form.Controls("textbox1").text = Nothing
Else
    Dim bh As String = Format(e.sender.Value,"yyyyMMdd") '取得编号的8位前缀
    Dim max As String
    Dim idx As Integer
    max = DataTables("").Compute("Max(资金申请编号)","业务日期 = #" & e.sender.Value & "# ") '取得该天的最大编号
    If max > "" Then '如果存在最大编号
        idx = CInt(max.Substring(9,3)) + 1 '获得最大编号的后三位顺序号,并加1
    Else
        idx = 1 '否则顺序号等于1
    End If
    e.Form.Controls("textbox1").text ="Z" & bh & Format(idx,"000")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/3 17:16:00 [显示全部帖子]

代码是日期控件valuechanged事件里的额，选择日期后才会生成。新增按钮时日期还没有值，如何生成编号？

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


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/3 17:31:00 [显示全部帖子]

我测试没有问题，代码放到业务日期的valuechanged事件。

或者直接在按钮里处理把

e.form.controls("业务日期").value = Date.today

    Dim bh As String = Format(Date.today,"yyyyMMdd") '取得编号的8位前缀
    Dim max As String
    Dim idx As Integer
    max = DataTables("某表").Compute("Max(资金申请编号)","业务日期 = #" & Date.today & "# ") '取得该天的最大编号
    If max > "" Then '如果存在最大编号
        idx = CInt(max.Substring(9,3)) + 1 '获得最大编号的后三位顺序号,并加1
    Else
        idx = 1 '否则顺序号等于1
    End If
    e.Form.Controls("textbox1").text ="Z" & bh & Format(idx,"000")
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询