MSHFlexGrid 问题????

Question

Dim db As Connection
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\db1.mdb;"
    Set adoPrimaryRS = New Recordset
    adoPrimaryRS.Open "select * from 缴费 , db, adOpenStatic, adLockOptimistic"
    adoPrimaryRS.MoveFirst
Set MSHFlexGrid1.DataSource = adoPrimaryRS
adoPrimaryRS.Close
Set adoPrimaryRS = Nothing怎么加个条件??
如根据text1.text来判断MSHFlexGrid1显示值???select * from 缴费 , db, adOpenStatic, adLockOptimistic 这里怎么加呢??

Answer 1

select * from 缴费 where ***='" & text1.text & "'

Answer 2

select * from 缴费 where 字段名='"& text1.text &"', db, adOpenStatic, adLockOptimistic

Answer 3

还有怎么修改查找完MSHFlexGrid的内容??

Answer 4

select * from 缴费 where 字段名='"& text1.text &"', db, adOpenStatic, adLockOptimistic
这样不行!!还是错误!!!

Answer 5

如果没有查找的内容，怎么写呢
=========
可以去掉adoPrimaryRS.MoveFirst这句或者改为：
If Not (adoPrimaryRS.Bof And adoPrimaryRS.Eof) Then adoPrimaryRS.MoveFirst

Answer 6

改成这样：
select * from 缴费 where 字段名='"& text1.text &"'", db, adOpenStatic, adLockOptimistic

Answer 7

Dim db As Connection
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\db1.mdb;"
    Set adoPrimaryRS = New Recordset
'如果字段名是字符：
    adoPrimaryRS.Open "select * from 缴费 where 字段名='" & text1.text &"'", db, adOpenStatic, adLockOptimistic"
'如果字段名是数字：
    adoPrimaryRS.Open "select * from 缴费 where 字段名=" & text1.text , db, adOpenStatic, adLockOptimistic"
    adoPrimaryRS.MoveFirst
Set MSHFlexGrid1.DataSource = adoPrimaryRS
adoPrimaryRS.Close
Set adoPrimaryRS = NothingMSHFlexGrid1是只读的，要修改，得自己放一些TEXTBOX上去。

Answer 8

恩!!
就是怎么选择MSHFlexGrid1一个内容,然后点一个修改的按钮后,把选择一条内容传到对应的text1,然后
再保存!!

Answer 9

If Trim(Me.MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)) = "" Then
                  MsgBox "你还没有选择记录！", vbOKOnly + vbExclamation, "警告"
                   Else
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\db1.mdb;"
    Set adoPrimaryRS = New Recordset
    adoPrimaryRS.Open "select * from 缴费 where 用户编号='" & Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)) & "'", db, adOpenStatic, adLockOptimistic
    
        adoPrimaryRS.MoveFirst
  
  For j = 0 To 7
    
  Text1(j).Text = adoPrimaryRS.Fields(j)
  Next
  
  
               End If
只能显示第一条的记录.如何显示选择数据??也就是我选择那条记录,text1就对应那条记录??

Answer 10

你选择哪条记录，MSHFlexGrid1.Row就指向哪条记录。

Answer 11

text1.text=MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel,MSHFlexGrid1.ColSel)