以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  错误对话框  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102504)

--  作者:peibaomin
--  发布时间:2017/6/21 14:01:00
--  错误对话框


图片点击可在新窗口打开查看此主题相关图片如下:12356.png
图片点击可在新窗口打开查看

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


--  作者:有点色
--  发布时间:2017/6/21 14:03:00
--  
 具体实例上传上来说明。
--  作者:peibaomin
--  发布时间:2017/6/21 15:25:00
--  


图片点击可在新窗口打开查看此主题相关图片如下: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

 

 

 

[此贴子已经被作者于2017/6/21 15:27:26编辑过]

--  作者:有点色
--  发布时间:2017/6/21 15:36:00
--  
 看了下,代码不会有问题,做个具体例子上传上来测试。
--  作者:裴保民
--  发布时间:2017/6/21 16:23:00
--  
只要把文本框的回车事件删了就不会出错了,加上这个事件就出错!麻烦给查查哪的事!
--  作者:有点色
--  发布时间:2017/6/21 16:28:00
--  
 测试没问题,请上传具体实例。
--  作者:裴保民
--  发布时间:2017/6/21 16:50:00
--  
表和窗体怎么导出?


--  作者:有点色
--  发布时间:2017/6/21 16:58:00
--  
以下是引用裴保民在2017/6/21 16:50:00的发言:
表和窗体怎么导出?

 

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

 

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

 

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

 

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

 


--  作者:peibaomin
--  发布时间:2017/6/21 19:53:00
--  

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.table


已经传上麻烦测试测试

[此贴子已经被作者于2017/6/21 20:32:11编辑过]

--  作者:有点色
--  发布时间:2017/6/21 23:27:00
--  
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