加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 百科 > 正文

用vb6.0编写的修改程序没有反应,求指点

发布时间:2020-12-17 08:03:01 所属栏目:百科 来源:网络整理
导读:我试着编写了一段修改程序,如下; Private Sub Command4_Click() On Error GoTo errorhandler: If Text1.Text "" Then Adodc1.RecordSource = "select*from 库存 where 货物编号 =" Text1.Text Adodc1.Refresh Adodc1.Recordset.Fields("货物编号") = Text1.Te
我试着编写了一段修改程序,如下; Private Sub Command4_Click() On Error GoTo errorhandler: If Text1.Text <> "" Then Adodc1.RecordSource = "select*from 库存 where 货物编号 =" & Text1.Text Adodc1.Refresh Adodc1.Recordset.Fields("货物编号") = Text1.Text Adodc1.Recordset.Fields("货物名称") = Text2.Text Adodc1.Recordset.Fields("库存量") = Text3.Text Adodc1.Recordset.Fields("单位") = Text4.Text Else MsgBox "货物编号是主索引字段,不能为空","错误提示" End If Exit Sub errorhandler: MsgBox "货物编号是主索引,不能重复","错误提示" End Sub 但是运行后,对内容修改后怎么没反应啊,还是原来的内容,这个程序好像没反应似的,哪位大侠帮忙解释一下啊!不胜感激

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读