主题：错误对话框

 具体实例上传上来说明。

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

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

 

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

 

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

 

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

 

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

 

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