主题：错误对话框

此主题相关图片如下：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

 

 

 

 看了下，代码不会有问题，做个具体例子上传上来测试。

只要把文本框的回车事件删了就不会出错了，加上这个事件就出错！麻烦给查查哪的事！

 测试没问题，请上传具体实例。

表和窗体怎么导出?

 

新建一个项目，上传上来测试后。

 

1、窗口的话，可以导出导入

 

http://www.foxtable.com/webhelp/scr/2413.htm

 

2、数据表的话，也要用高速导出、高速导入。

 

 

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

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

已经传上麻烦测试测试

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