- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 自动生成编码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138416)
-- 发布时间：2019/7/30 22:54:00
-- 自动生成编码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:微型餐饮备案.rar |
我想在窗体“备案申请维护”中，选择乡镇和经营品种后就自动生成通知书编号，请问DataColChanged事件代码如何设置？请指教，谢谢！！
通知书编号规则：
编号共15位：由WX（“微型”的汉语拼音字母缩写）和13位阿拉伯数字组成。
其中：
阿拉伯数字：前6位为：320682
第7-8位为乡镇代码（具体为：01城北街道、02如城街道、03城南街道、04长江、05东陈、06丁堰、07白蒲、08下原、09九华、10石庄、11磨头、12搬经、13江安、14吴窑）
第9位为经营品种编码（1热食类食品制售、2糕点制售、3自制饮品制售）、
最后4位为顺序码。
*乡镇代码表和经营品种编码表已经维护了
例如：搬经镇自制饮品的第12个经营者的编号为：WX3206821230012
-- 发布时间：2019/7/30 23:10:00
--
参考：http://www.foxtable.com/webhelp/topics/2403.htm
-- 发布时间：2019/7/31 9:16:00
--
我的设计这个要涉及两个表中代码的转换，自己水平有限，不会举一反三，请指教！谢谢！
-- 发布时间：2019/7/31 9:37:00
--
使用find到其它表查询得到代码即可,比如获取乡镇代码
……
Dim dr As DataRow = DataTables("镇别表").Find("镇名=\'" & e.DataRow("乡镇") & "\'")
Dim 乡镇代码 As String
If dr IsNot Nothing Then
乡镇代码 = dr("镇别代码")
End If
……
-- 发布时间：2019/8/2 0:53:00
--
我在窗体“备案申请维护”中，可以按照规则自动生成“通知书编码”；可在打开“设备登记维护”窗体后，选择不同的“通知书编码”，分别新增几组设备后，重新打开“备案申请表”后发现最后一条记录的“通知书编码”被修改过了，且该代码和第一条记录的“通知书编码”一样。不知代码哪里出了问题，请指教，谢谢！！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:微型餐饮备案.rar |
-- 发布时间：2019/8/2 9:58:00
--
把“设备登记维护”窗体组合框ComboBox1的列绑定去掉
-- 发布时间：2019/8/3 16:42:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:微型餐饮备案.rar |
我想在“卷内目录维护”窗体中输入“页数”后，自动生成“起号”和“讫号”，请问在“目录表”的datacolchanged事件中的代码如何修改？请指教，谢谢！！
-- 发布时间：2019/8/3 16:54:00
--
根据什么规则生成？举例说明
-- 发布时间：2019/8/4 22:32:00
--
例如：第一份资料有2页，则对应的“起号”=1；“讫号”=2；第二份资料有5页，则对应的“起号”=3；“讫号”=7；第三份资料有3份，则对应的“起号”=8；“讫号”=10；以此类推。谢谢！
-- 发布时间：2019/8/4 22:38:00
--
获取上一行的讫号+1就是本行的“起号”，“起号”+“页数”就是本行的讫号。