报错，另收款凭证无法删除单 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报错，另收款凭证无法删除单

共有3018人关注过本帖树形打印复制链接主题：报错，另收款凭证无法删除单

有点蓝

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

加好友

发短信

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

Post By：2021/6/5 8:43:00 [显示全部帖子]

菜单的名称是【删除已保存凭证】，代码却使用【Case "删除已保存单据"】

双击事件我测试没有问题：关闭项目文件，删除项目里的bin目录，然后重启项目试试

有点蓝

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

加好友

发短信

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

Post By：2021/6/5 10:38:00 [显示全部帖子]

1楼项目我测试没有问题。双击哪一行？列一下详细使用步骤

如果是其它项目测试有问题，请上传有问题的项目

有点蓝

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

加好友

发短信

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

Post By：2021/6/5 10:48:00 [显示全部帖子]

1楼项目我测试没有问题。所有收字的都测试了，没有问题

有点蓝

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

加好友

发短信

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

Post By：2021/6/5 11:33:00 [显示全部帖子]

我也不知道为什么，把项目文件复制到其它目录试试

东西不可能无缘无故多的。我天天坐在家里也没看到多一块馅饼出来。

至于导进导出这种情况是正常的，新窗口重新调整即可

有点蓝

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

加好友

发短信

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

Post By：2021/6/5 11:53:00 [显示全部帖子]

这种情况确实很讨厌。但是为什么我从来就没有碰到过！也没见其他用户反应经常多控件的问题？先把自己的开发状态稳定下来，再说别人的软件是否稳定吧。

看您窗口大部分都差不多，应该都是同一个窗口框模板导进来改的。估计是导进来前最早设计的窗口控件就已经多了

有点蓝

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

加好友

发短信

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

Post By：2021/6/8 10:58:00 [显示全部帖子]

提示索引超标，出现问题的时候先学会调试定位到错误的代码

看代码应该是【(e.Form.Controls("TextBox2").text).SubString(0,2) 】有问题，比如文本框没有输入内容，或者输入的内容长度不大于1，就会出错

还有就是【CInt(max1.Substring(10,5))】，如果返回的最大编号不足15位长度就会出错

有点蓝

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

加好友

发短信

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

Post By：2021/6/8 12:06:00 [显示全部帖子]

1、先取了值，再去判断，逻辑混乱

2、出错的是TextBox2控件，却去判断其它控件，有点饥不择食

……

Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天

Dim Max0 As String

Dim idx As Integer

dim s as string = e.Form.Controls("TextBox2").text

if s.length >2 then s = s.SubString(0,2)

Dim flt As String = "[字号] = '" & s & "' And [日期] >= #" & fd & "# And [日期] <= #" & ld & "#"

Dim dts As Integer = DataTables("财务数据源").Compute("Count([会计科目])","[字号] = '" & e.Form.Controls("TextBox2").text & "' And [日期] >= #" & fd & "# And [日期] <= #" & ld & "# And [凭证号] = '" & di & "'")

……

下一主题 >> << 上一主题

主题：报错，另收款凭证无法删除单