高手帮下!!!
rivate Sub Command6_Click()
Label2.Visible = True
Text2.Visible = True
Label2.Caption = Text1.Text & "话费为:"
cx2.Height = 6700
s = 0
SQL = "select * from phone2 where 手机='" & Trim(Text1.Text) & "'"
Data2.RecordSource = SQL
Data2.Refresh
DBGrid1.Refresh
n = Data2.Recordset.RecordCount
For i = 1 To n
c = Data2.Recordset(7)
Data2.Recordset.MoveNext
s = s + c
Next
Text2 = s
End Sub
老是 实时错误424 要求对象 DBGrid1.Refresh这部分是黄色 不晓得咋个整。。。