| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 415 人关注过本帖
标题:大家来讨论一下
只看楼主 加入收藏
随风的故事
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2005-10-8
收藏
 问题点数:0 回复次数:0 
大家来讨论一下
怎么设置表格Grdmain的删除啊,我要在文本框中输号码,就可以删掉啊请大家帮我改一下
Private Sub cmdFrist_Click()
If txtFrist = "" Then
MsgBox "无信息无法查询"
Exit Sub
End If
Dim strSql As String
strSql = "Delete From T_READER Where reader_index=" & txtFrist
rstLocal.Delete
On Error GoTo errExcu
If grdMain.Row <> 0 Then
If txtFrist.Text = grdMain.TextMatrix(grdMain.Row, 1) Then
DeleteGrid grdMain.Row
cnnLocal.Execute strSql
End If
End If
Exit Sub
errExcu:
MsgBox Err.Number & vbCrLf & Err.Description
End Sub
搜索更多相关主题的帖子: 文本框 
2005-11-04 22:18
快速回复:大家来讨论一下
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.038182 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved