Private Sub MSFlexGrid1_Click()
'MsgBox MSFlexGrid1.Text
dim strsql as string
strsql="select * from table1 where bh='"& MSFlexGrid1.Text &"'"
Call frm1.Search(sql)
End Sub
在frm1中,你就可以进行修改了
Public Sub Search(sql As String)
Dim rssearch As New adodb.Recordset
Set rssearch = New adodb.Recordset
Dim fld As Field
Dim RItem As ListItem
Dim nFieldCount As Integer
rssearch.Open sql, conn, adOpenDynamic, adLockBatchOptimistic
With rssearch
ListView1.ListItems.Clear
While (Not .EOF)
Set RItem = ListView1.ListItems.Add(, , CStr(.Fields(0)))
For nFieldCount = 1 To .Fields.Count - 1
RItem.SubItems(nFieldCount) = .Fields(nFieldCount)
Next nFieldCount
.MoveNext
Wend
End With
Set RItem = Nothing
End Sub