科目末级判断 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 科目末级判断

共有6359人关注过本帖树形打印复制链接主题：科目末级判断

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/8/4 16:26:00 [显示全部帖子]

我测试没有问题，请上传实例说明

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/8/4 21:46:00 [显示全部帖子]

测试没有问题。添加datacolchanged事件代码有，已有数据要重置一下列：

选中科目代码列，“日常工作”功能区“数据”功能组，单击下面的“重置列”按钮即可：

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/8/4 23:25:00 [显示全部帖子]

如果更改代码后对原有的上级自动刷新的话，参考：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:会计科目1.zip

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/8/5 16:33:00 [显示全部帖子]

If e.DataTable.Find("科目代码 like '" & e.DataRow("科目代码") & "%' and 科目代码 <> '" & e.DataRow("科目代码") & "'") Is Nothing Then

查找有没有以编辑数据的行（e.DataRow("科目代码")）的科目代码开头的科目代码，比如录入“01”。这句就是查询有没有“0101”，"010201"这种以01开头的编码。Is Nothing表示找不到，也就是没有以01开头的其它编码

Dim s As String = Left(e.NewValue, e.NewValue.length - 2)表示取单元格更改的数据去掉右边2个字符后的数据，比如，单元格输入“010203”，s变量就等于“0102”

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/8/6 8:57:00 [显示全部帖子]

要保证代码的长度是一致的，子码比父码多2位。不然就改为使用like判断，

主题：科目末级判断