[已解决]老版本的源程序重构 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [已解决]老版本的源程序重构

共有1940人关注过本帖树形打印复制链接主题：[已解决]老版本的源程序重构

有点蓝

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

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

Post By：2016/10/25 14:42:00 [显示全部帖子]

新版本C1的控件和一些用法有所改变。最好是逐一测试窗口的运行和代码，没有什么方便的办法

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

有点蓝

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

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

Post By：2016/10/25 15:34:00 [显示全部帖子]

如果不是写在表事件里，代码不会有问题。除非代码循环触发了其它事件

可以加上SystemReady试试

SystemReady = false

DataTables("基本信息").RemoveFor("IC密 = '" & KaMi & "'")

DataTables("基本信息").AppendLoad("IC密 = '" & KaMi & "'")

Dim DrTruck As DataRow = DataTables("基本信息").Find("IC密 = '" & KaMi & "'")

'对table当前行内部定位,以便审核按钮操作,此窗口必须是模式窗口,不然定位可能会由于用户单击列表而改变

'Dim wz As Integer = Tables("基本信息").FindRow(DrTruck)

'If wz >= 0 Then

' Tables("基本信息").Position = wz

'End If

SystemReady = true

有点蓝

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

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

Post By：2016/10/25 16:43:00 [显示全部帖子]

可能是旧项目的bin目录引起的，删除掉

主题：[已解决]老版本的源程序重构