主题：弹出错误提示！急救啊！求解？

      小弟在制作程序的时候，发现一个很让我疑惑的问题。

我制作了一个窗口，其写入的数据存入相应的表中。如图。

      之前刚制作完成的时候一切都能正常运行，我便进行下一步工作。

当我回过头来整理的时候，却发现该窗口无法正常运行了。错误提示如图。

      该错误提示有时候是我一点开材料类别的下拉菜单就弹出，有时候是能正常选择类别，

选择完成后点开名称的下拉菜单就弹出。

      而且弹出此错误提示后，整个软件就卡死了，什么也点不了，连详细错误提示信息都看不了。只能打开任务管理器关闭。

      不知道这是为什么，希望大家帮忙解决一下。

      1，窗口中的材料类别控件，enter代码如下：

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，表事件中的datacolchanged代码如下：

Select Case e.DataCol.Name
    Case "材料名称","材料类别"
        If e.NewValue > "" Then
            If e.DataRow.IsNull("材料名称") OrElse e.DataRow.IsNull("材料类别") Then
                e.DataRow("型号规格") = Nothing
                e.DataRow("单位") = Nothing
                e.DataRow("单价") = Nothing
            Else
                Dim dr As DataRow = DataTables("辅助生产材料").Find("材料名称= '" & e.DataRow("材料名称")  & "'")
                e.DataRow("型号规格") =  dr("规格型号")
                Dim dt As DataRow = DataTables("辅助生产材料").Find("材料名称= '" & e.DataRow("材料名称")  & "'")
                e.DataRow("单位") =  dt("单位")
                Dim dy As DataRow = DataTables("辅助生产材料").Find("材料名称= '" & e.DataRow("材料名称")  & "'")
                e.DataRow("单价") =  dy("单价")
            End If
        End If
End Select

         3，材料类别的下来选项因为固定并且不多，所以我用得属性中的自定义项目。

 

此主题相关图片如下：1.jpg


此主题相关图片如下：2.jpg

把文件发出来.

数据超过2M了，发不上来啊！要不加我QQ，185903609 我传给你吧？

压缩一下即可.

把项目复制，删成一个简化版，再传上来。

else

 

Dim dr As DataRow = DataTables("辅助生产材料").Find("材料名称= '" & e.DataRow("材料名称") & "'")

if dr innot nothing then
e.DataRow("型号规格") = dr("规格型号")

end if

Dim dt As DataRow = DataTables("辅助生产材料").Find("材料名称= '" & e.DataRow("材料名称") & "'")

if dt isnot nothing then
e.DataRow("单位") = dt("单位")

end if
Dim dy As DataRow = DataTables("辅助生产材料").Find("材料名称= '" & e.DataRow("材料名称") & "'")
if dy isnot nothing then

e.DataRow("单价") = dy("单价")

end if

if dr innot nothing then
这里错了

分卷压缩，做成多个压缩包后上传。