Question

vb MSHFlexGrid1控件 删除行

我有两个MSHFlexGrid控件 分别是a b
双击 a 后 循环 查找是否在b内有同样的数据 如果没有 b添加a的选择行 如果有 就直接退出sub
双击 b 后 删除选择行 我用的是RemoveItem 而且后面 还加了Refresh了

好了问题出来了
当我再次双击 a 添加刚刚在 b 内删除的信息时 循环结果却是 b 内有同样的信息 直接就退出了 感觉就是 没有删除彻底 只不过是在表面上看不见 但是 数据还是存在

能不能在双击 b 后 完全删除选择行？ 谢谢大家 我需要代码
Private Sub MS1_DblClick()
MS2.Refresh
For j = 1 To MS2.Rows - 1
If MS2.TextMatrix(j, 1) = MS1.TextMatrix(MS1.RowSel, 1) Then
Exit Sub
End If
Next j
MS2.Rows = MS2.Rows + 1
For i = 0 To MS2.Rows - 1
If MS2.TextMatrix(i, 2) = "" Then
MS2.TextMatrix(i, 1) = MS1.TextMatrix(MS1.RowSel, 1)
MS2.TextMatrix(i, 2) = MS1.TextMatrix(MS1.RowSel, 2)
MS2.TextMatrix(i, 3) = MS1.TextMatrix(MS1.RowSel, 3)
MS2.TextMatrix(i, 4) = MS1.TextMatrix(MS1.RowSel, 4)
MS2.TextMatrix(i, 5) = MS1.TextMatrix(MS1.RowSel, 5)
MS2.TextMatrix(i, 6) = MS1.TextMatrix(MS1.RowSel, 6)
Exit For
End If
Next i
End Sub

Private Sub MS2_DblClick()
MS2.RemoveItem (MS2.RowSel)
MS2.Refresh
End Sub

Adodc.Recordset.Delete ?
我没有在ms2上使用这个控件

adodc 我用在ms1上了 ms2只不过是空表 如果删除adodc 等于吧ms1里的内容删除吧

Answer 1

Adodc.Recordset.Delete
先将数据库删除
再MS2.RemoveItem (MS2.row)

那你的数据源 是哪个 就del那个。

你可以删除数据库的单条信息。没叫你全删

Answer 2

Adodc.Recordset.Delete 先将数据库删除 再MS2.RemoveItem (MS2.row)

Answer 3

z