主题：帮忙看看事件那写错了

If e.DataCol.Name = "已结帐" Then '如果是已结帐列的内容变动
    If e.NewValue = True Then '而且变动后的值是True(已勾选)
       只执行有功走字=有功起码-有功止码代码

else

    就执行后面的代码
    End If
End If