部分代码为什么不执行？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 部分代码为什么不执行？

共有15525人关注过本帖树形打印复制链接主题：部分代码为什么不执行？

exonjee

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

加好友

发短信

等级：小狐帖子：352 积分：3192 威望：0 精华：0 注册：2008/9/1 9:38:00

部分代码为什么不执行？ 发帖心情

Post By：2009/9/7 13:55:00 [显示全部帖子]

请帮助检查红色字体代码为何不执行？是不是逻辑上有问题？

          If Result = DialogResult.Yes Then
             DataTables("衬底").ReplaceFor("投片",false,"[序号] = '" & currenttable.current("衬底编号") & "'")
             Dim dr as row = Tables("片号").Current
             Dim drr as Datarow = dst.Current
             dr("衬底编号") = drr("序号")
             drr("投片") = true
             Tables("片号").select(Tables("片号").Position + 1, 4)
           End if

[此贴子已经被作者于2009-9-7 16:56:29编辑过]

exonjee

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

加好友

发短信

等级：小狐帖子：352 积分：3192 威望：0 精华：0 注册：2008/9/1 9:38:00

Post By：2009/9/7 14:01:00 [显示全部帖子]

刚才应该贴错代码了，是没有楼上那句的，但是还是不执行的

exonjee

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

加好友

发短信

等级：小狐帖子：352 积分：3192 威望：0 精华：0 注册：2008/9/1 9:38:00

Post By：2009/9/7 14:24:00 [显示全部帖子]

Dim dst as WinForm.datalist = e.form.Controls("datalist1")
DataTables("衬底").ReplaceFor("投片",false,"[序号] = '" & currenttable.current("衬底编号") & "'")
             Dim dr as row = Tables("片号").Current
             Dim drr as Datarow = dst.Current
             dr("衬底编号") = drr("序号")
             drr("投片") = true
             Tables("片号").select(Tables("片号").Position + 1, 4)

上面代码单独执行没问题。

exonjee

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

加好友

发短信

等级：小狐帖子：352 积分：3192 威望：0 精华：0 注册：2008/9/1 9:38:00

Post By：2009/9/7 14:41:00 [显示全部帖子]

谢谢5楼，可以了

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

主题：部分代码为什么不执行？