access数据库自动编号的一些问题

小吉哥

  

记录集1.打开 (“单据管理”, #数据表名, )
记录集1.到尾记录 ()
判断循环首 (记录集1.尾记录后 ＝ 假)
记录集1.读整数 (“单号”, 自动编码)
编辑框_单号.内容 ＝ 时间_到文本 (, 3, 1) ＋ 到文本 (自动编码 ＋ 1)
记录集1.到下一条 ()
判断循环尾 ()

i支持库列表	支持库注释
eDB	数据库操作支持库

.版本 2<br /> .支持库 eDB<br /> <br />     记录集1.打开 (“单据管理”, #数据表名, )<br />     记录集1.到尾记录 ()<br />     .判断循环首 (记录集1.尾记录后 ＝ 假)<br />         记录集1.读整数 (“单号”, 自动编码)<br /> <br />         编辑框_单号.内容 ＝ 时间_到文本 (, 3, 1) ＋ 到文本 (自动编码 ＋ 1)<br /> <br />         记录集1.到下一条 ()<br />     .判断循环尾 ()

Access数据库里数据类型设置的是 自动编号  格式是 "GYSA1"0000


比如现在Access数据库里的编号是  "GYSA1"0013
结果是 2023081514 ，前面的"GYSA1"00 应该怎么读取出来那？  求解

tw1

你看是不是这样的。

冬夏

记录集1.读文本 (“单号”, 自动编码)

小吉哥

冬夏 发表于 2023-8-15 17:08
记录集1.读文本 (“单号”, 自动编码)

试过了 不得行

afu45

数据类型是 整数型， 只能是数字  自动编号 只是会自动+1

冬夏

模块有个命令是 文本_自动补零，你自己用局部文本变量读出来后自动补零就可以了

kingtt

换个思路，Access数据库里的是  "GYSA1"0013，这个“00”是你自己加上去的吧？数据库的自动编号是不会自己补零的，那你肯定知道这里的编号有几位数，读取时再用 文本_自动补零（） 再次补零

afu45

https://bbs.125.la/forum.php?mod ... 10&pid=20380428
自动编号的本质实际还是整数型


编辑框1.内容 ＝ “GYSA1” ＋ 文本_自动补零 (自动编码, 4)

zangchao

.版本 2
.支持库 eDB

.子程序 自动生成带前缀编号, 文本型
.参数 表名, 文本型
.参数 编号列, 文本型
.参数 起始编号, 文本型
.参数 前缀, 文本型
.局部变量 sql, 文本型
.局部变量 记录集
.局部变量 code, 文本型, , , 最后一个编号
.局部变量 newcode, 文本型, , , 生成的新编号
.局部变量 数值长度

sql ＝ “select ” ＋ 编号列 ＋ “ from ” ＋ 表名 ＋ “ where ” ＋ 编号列 ＋ “ like '” ＋ 前缀 ＋ “%' order by ” ＋ 编号列
输出调试文本 (前缀)
输出调试文本 (sql)
_启动窗口.记录集1.打开 (sql, #SQL语句, )
_启动窗口.记录集1.到尾记录 ()
_启动窗口.记录集1.读文本 (0, code)
_启动窗口.记录集1.关闭 ()
输出调试文本 (code)
.如果 (code ＝ “”)
    newcode ＝ 前缀 ＋ 起始编号
.否则
    数值长度 ＝ 取文本长度 (code) － 取文本长度 (前缀)
    newcode ＝ 前缀 ＋ 取文本右边 (取重复文本 (数值长度, “0”) ＋ 到文本 (到数值 (取文本右边 (code, 数值长度)) ＋ 1), 数值长度)
.如果结束
返回 (newcode)

tw1

解决没有，正需要这方面的资料，搜了很多，都不满意。