主题：错误对话框

此主题相关图片如下：12356.png

这是什么意思？在文本框中输入完内容，只要按回车键再次单击击保存按扭就会弹出这个错误对话框

此主题相关图片如下：huiche.png


此主题相关图片如下：chuangti.png


此主题相关图片如下：djshijian.png

 

这个窗体就一个添加数据按钮单击事件和文本框输入完后按回车执行添加数据按钮单击事件

如果不按回车键输入完后一直按添加数据键不会报错，只要输入完文本框按回车键，第一次不会报错，等第二次输入完单击添加数据键就会报错

请指点

 

单击机具入库按钮代码如下：

Dim tbx As WinForm.TextBox=e.Form.controls("jijutiaomaText")
Dim str As String=tbx.text
Dim t As Table= Tables("机具库存资料")
Dim idx As Integer=t.findrow("机具条码 = '" & str & "'")
If tbx.text=  Nothing Then
    MessageBox.Show("机具条码不能为空!", "提示")
Else
       If idx>=0 Then
        MessageBox.Show("机具已存在,机具不能入库!", "提示")
    Else
        Tables("机具库存资料").AddNew
        Dim Result As DialogResult
        Result = MessageBox.Show("是否添加数据?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            Tables("机具库存资料").Current("机具条码") =tbx.text
            Tables("机具库存资料").Current("所属仓库") = e.Form.Controls("suoshucangkuCombo").Value
            Tables("机具库存资料").Current("机具型号") = e.Form.Controls("jijuxinghaoCombo").Value
            Tables("机具库存资料").Current("机具类型") = e.Form.Controls("jijuleixingCombo").Value
            Tables("机具库存资料").Current("厂家名称") = e.Form.Controls("changjiamingchengCombo").Value
            Tables("机具库存资料").Current("机具来源") = e.Form.Controls("jijulaiyuanCombo").Value
            Tables("机具库存资料").Current("机具所属机构") = e.Form.Controls("jijusuoshujigouCombo").Value
            Tables("机具库存资料").Current("机具所属机构负责人") = e.Form.Controls("jijufuzerencombo").Value
            Tables("机具库存资料").Current("所属机构级别") = e.Form.Controls("suoshujigoujibieCombo").Value
            DataTables("机具库存资料").save
            e.Form.Controls("jijutiaomaText").Value=  Nothing
        Else
            DataTables("机具库存资料").RejectChanges
            DataTables("机具库存资料").save
            e.Form.Controls("jijutiaomaText").Value=  Nothing
        End If
    End If
End If

 

文本框回车事件

If e.keyCode = 13 Then
    e.Cancel = True
    e.Form.Controls("jijuruku").PerformClick
   End If

 

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.table

已经传上麻烦测试测试