在SSDBGrid中选中一行,点击删除按钮删除这一行,怎么实现啊?
解决方案 »
- 计时器的小应用
- 高手请帮忙!!!!! PropertyBag RecordSet
- vb+access 求分数段的问题
- vb有什么好的方式快速判断出下载文件的类型?
- 谁能把VB这段代码转成PB的?
- SQL server 远程连接问题
- 鼠标移动显示点的坐标
- commondialog:怎样改变保存对话框的显示内容?
- 怎么吧ie作为一个子窗体打开
- 回答加分!!!!!用put更新随机文件中一个记录的字段,立即用combobox控件读出该字段,combobox中的原始内容仍然存在,但退出该工程后重新运行,新字段才可代替原字段。我怎么样才能使在更新后立即在combobox中显示更新后内容???
- vb6中 如何判断 variant变量“不”为空,急。。。。。。。
- vb6.0下post不成功,问题在哪
Dim vbMark As Variant
Dim Answer As String
db = SSDBGrid2.SelBooks.Count
If SSDBGrid2.Row = 0 Then
MsgBox "请至少选择一行记录"
End If
For k = 0 To db - 1
With SSDBGrid2
vbMark = SSDBGrid2.SelBooks.Item(k)
Answer = MsgBox("1 " & .Columns(2).Value & "删除数据!", vbYesNo, "提示:")
If Answer = vbYes Then
sqlstr = "delete from temp_answer where 1=1"
If .Columns(5).CellText(vbMark) <> "" Then
sqlstr = sqlstr & " and answerid='" & .Columns(5).CellText(vbMark) & "' "
Set rs = oratest.Execute(sqlstr)
End If
Else
Exit Sub
End If End With
Next k