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

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

          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
   

          If Result = DialogResult.Yes and e.KeyCode = Keys.Enter Then  中：

         and e.KeyCode = Keys.Enter 多余了吧？

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

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)



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

Dim Result As DialogResult
Result =  Messagebox.Show("当前行已有衬底编号,点""是""将更新衬底编号!点""否""则不更新衬底编号!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
 ...
End If

谢谢5楼，可以了