在我为做好的窗口添加代码之后，预览时会出现错误，而且直接卡死掉，连错误详细信息都点不开，不知道是什么原因。新建一个项目同样的代码又没有问题。我都不知道是哪儿出错了。

If Tables("辅助生产材料入库").Current.DataRow.RowState <> DataRowState.Unchanged Then
Dim Result As DialogResult
Result = MessageBox.Show("数据未保存,是否仍然关闭?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
If  Tables("辅助生产材料入库").Rows.Count > 0 Then
    Tables("辅助生产材料入库").Current.Reject()
End If
    e.cancel = False
Else e.cancel = True
End If
End If

这段代码得位置是窗口的按钮控件“取消”的beforeclose里的。请大家看看有问题没？又会有什么引起错误呢？

有例子但传了好多次传不上来。。可能网速太慢了吧。

只能简单说一说情况附上点图。所有combobox都是绑定到表相应列的，材料类别选择是自定义项目里面添加的，

1，材料名称填写的代码是

Dim leibie As WinForm.ComboBox = e.Form.Controls("辅助生产材料入库材料类别填写")
Dim mingcheng As WinForm.ComboBox = e.Form.Controls("辅助生产材料入库材料名称填写")
If leibie.Text <> "" Then
    mingcheng.ComboList = DataTables("辅助生产材料").GetComboListString("材料名称","[材料类别] = \'" & leibie.text & "\'")
End If

2，有一个按钮，是取消键，里面的代码是

If  Tables("辅助生产材料入库").Rows.Count > 0 Then
    Tables("辅助生产材料入库").Current.Reject()
End If
forms("辅助生产材料入库单").close()

3，在窗口beforeclose里的代码是

If Tables("辅助生产材料入库").Current.DataRow.RowState <> DataRowState.Unchanged Then
Dim Result As DialogResult
Result = MessageBox.Show("数据未保存,是否仍然关闭?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
If  Tables("辅助生产材料入库").Rows.Count > 0 Then
    Tables("辅助生产材料入库").Current.Reject()
End If
    e.cancel = False
Else e.cancel = True
End If
End If

本来测试没有什么问题的，在完成了第三个代码之后，再次预览，就出现了这个问题。不知道怎么回事。弹出以下对话框，而且卡死了，显示详细信息也点不开

是在我点击材料类别的下拉菜单，并且选择其中的项目的时候，还有是在我什么都不输入直接点击取消的情况下，弹出错误对话框。

最郁闷的事，这是一份入库单，同样有一份一模一样的出库单，除了名称不同，都是一样的，代码那些也差不多，

预览没有任何问题，就这个单子有问题。