- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 部分代码为什么不执行？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4254)
-- 发布时间：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编辑过]
-- 发布时间：2009/9/7 13:57:00
--
If Result = DialogResult.Yes and e.KeyCode = Keys.Enter Then 中：
and e.KeyCode = Keys.Enter 多余了吧？
-- 发布时间：2009/9/7 14:01:00
--
刚才应该贴错代码了，是没有楼上那句的，但是还是不执行的
-- 发布时间：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)
上面代码单独执行没问题。
-- 发布时间：2009/9/7 14:37:00
--
Dim Result As DialogResult
Result = Messagebox.Show("当前行已有衬底编号,点""是""将更新衬底编号!点""否""则不更新衬底编号!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
...
End If
-- 发布时间：2009/9/7 14:41:00
--
谢谢5楼，可以了