编号不能归1，请大神帮忙修改一下 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

现代码如下：

Dim m As Integer

m = DataTables("出纳记帐").DataRows.Count-1

DataTables("出纳记帐").datarows(m)("年月")=DataTables("出纳记帐").datarows(m-1)("年月")

DataTables("出纳记帐").datarows(m)("编号")=DataTables("出纳记帐").datarows(m-1)("编号")+1

Dim d As Date = Date.Today

DataTables("出纳记帐").datarows(m)("日")=d.day

此主题相关图片如下：搜狗截图16年09月09日1458_1.png

理想效果为下边的右侧

此主题相关图片如下：搜狗截图16年09月09日1505_2.png

[此贴子已经被作者于2016/9/9 15:25:03编辑过]

主题：编号不能归1，请大神帮忙修改一下