1,451
社区成员
发帖
与我相关
我的任务
分享删除MSFLEXGRID中的一行后的数据上移
删除MSFLEXGRID中的一行数据后，怎么让之后的数据全部上移。各位有没有直接可使用的函数或者比较通用的代码。谢谢！我没有采用数据库绑定。
...全文
请发表友善的回复…
发表回复
rainstormmaster 2006-01-22
- 打赏
- 举报
还是你是其它的什么意思?
rainstormmaster 2006-01-22
- 打赏
- 举报
你把数据库中相应记录删除掉不行吗?
penghongjie 2006-01-22
- 打赏
- 举报
re:暴风雨
没有使用数据绑定，新增时将flexgrid中的数据循环插入到数据库中。
修改时从数据库中读出来循环填入到flexgrid。程序早就做好了，不想改用数据绑定。
没有使用数据绑定，新增时将flexgrid中的数据循环插入到数据库中。
修改时从数据库中读出来循环填入到flexgrid。程序早就做好了，不想改用数据绑定。
myjsy 2006-01-22
- 打赏
- 举报
数据库表的内容改了后，clear表格后重新填充最好。因为表格就是实际的反映吗。
vbman2003 2006-01-22
- 打赏
- 举报
MSFlexGrid的RemoveItem方法啊
faysky2 2006-01-22
- 打赏
- 举报
不绑定数据，看来需要用循环来更新了
Private Sub Command1_Click()
Dim rowMark As Long
rowMark = MSFlexGrid1.Row '记录被删除的行号
'......删除某行的代码
Dim i As Long, j As Integer
For i = rowMark To MSFlexGrid1.Rows - 2
For j = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.TextMatrix(i, j) = MSFlexGrid1(i + 1, j)
Next
Next
MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1
End Sub
Private Sub Command1_Click()
Dim rowMark As Long
rowMark = MSFlexGrid1.Row '记录被删除的行号
'......删除某行的代码
Dim i As Long, j As Integer
For i = rowMark To MSFlexGrid1.Rows - 2
For j = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.TextMatrix(i, j) = MSFlexGrid1(i + 1, j)
Next
Next
MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1
End Sub
rainstormmaster 2006-01-22
- 打赏
- 举报
//没有使用数据绑定，新增时将flexgrid中的数据循环插入到数据库中。
修改时从数据库中读出来循环填入到flexgrid。程序早就做好了，不想改用数据绑定
这个和数据绑定与否无关,你先定位到你打算删除的记录,然后删除就行了
修改时从数据库中读出来循环填入到flexgrid。程序早就做好了，不想改用数据绑定
这个和数据绑定与否无关,你先定位到你打算删除的记录,然后删除就行了
