高分相送，一共两个问题

Question

一：
Private Sub Command1_Click()
MSFlexGrid1.Cols = 11
MSFlexGrid1.Rows = 10
   c = 0
   a = Textperson.Text
   Data1.Recordset.FindFirst "姓名=" & "'" & a "'"
   if Data1.Recordset.Nomatch Then
     MsgBox "没有找到"
   Else
     '把查询结果放入MSFlexGrid1
     Command3.Visible = True
   End If
End Sub
二：
　　一种方法是:Dim Timer as String
               Timer=Time$
    别一种方法：用API，你查查API函数。

Answer 1

改：
二：
　　一种方法：Dim Timer as String
              Timer=Time$
              Text1.Text=Timer

Answer 2

第一个问题你可以用sql语句来实现啊，用个select来查询。
  第二个问题的话，如果你获得系统时间是为了给用户看的话，就用statusbar控件来实现吧。直接在窗体上添加statusbar,然后把它的style属性设置为6就可以了。要显示在text框中的话就用timeserial函数。

Answer 3

Text1.Text = Date 日期
Text1.Text = Time 时间
Text1.Text = Now  日起时间

Answer 4

使用计时器Timer
和Time函数

Answer 5

不好意思，又错了！！完整答案：一：
Private Sub Command1_Click()
MSFlexGrid1.Cols = 11
MSFlexGrid1.Rows = 10
   c = 0
   a = Textperson.Text
   Data1.Recordset.FindFirst "姓名=" & "'" & a & "'"
   if Data1.Recordset.Nomatch Then
     MsgBox "没有找到"
   Else
     '把查询结果放入MSFlexGrid1
     Command3.Visible = True
   End If
End Sub
二：
　　一种方法是:Dim Timer as String
               Timer=Time$
　　　　　　　　Text1.text=Timer
    别一种方法：用API，你查查API函数。

Answer 6

怎样把
Do While Not Data1.Recordset.EOF
        If c = 0 And Data1.Recordset("姓名") = a Then
           
        End If
        Data1.Recordset.MoveNext
Loop
的查询结果放到MSFlexGrid1里面啊？

Answer 7

msflexgrid1里的内容倒是列出来了，可是怎么双击其中一条纪录然后弹出一个from,在新弹出的from中显示纪录的每个字段的内容呢？
up,up,up

Answer 8

Private Sub MSFlexGrid1_Click()
    form_a.show
    text1.text=formb.MSFlexGrid1.TextMatrix(1,1)
End Sub

Answer 9

MSFlexGrid1.TextMatrix(row,col)要显示的列或者行
传入参数就可以的。

Answer 10

1.首先你要建立一个数据集例如是mrc
rows=1 '因为第一行为你的字段名
do while(mrc.eof=false)
rows=rows+1

Answer 11

重新来
with msglexgrid1
    .rows=1 '因为第一行为你的字段名，第一列固定让他空着，这样比较美观
    .rows=.row+1
for i=1 to mrc.fields.count
    .textmatrix(.rows-1,i)=mrc.fields(i-1) 
next i
    mrc.movenext
loop如果你上面的数据集搞定的话，这个代码写进去因该没什么问题。有问题发消息给我！没问题记得给分哦！：）

Answer 12

还有一点问题就是在msglexgrid1中显示出来了好多数据，我双击其中一条纪录自动弹出一个新窗口，可是新窗口中的内容总是msglexgrid1中的第一条纪录的内容啊，怎样做到，我在msglexgrid1中双击哪条纪录就在新窗口中出现的就是那条记录的内容呢？

Answer 13

你要记住当前的记录号啊！
dim intcount as integer
intCount=msglexgrid1.row
然后再把他写入到你所要的窗口中啊。
这里头要用到一条查询语句。其中的 
select * from table_name where 字段名= '"& msglexgrid1.textmatrix(intCount,存在关键字的那一列的列号）&"'这下应该没问题了。
Best of Luck to you !

Answer 14

第一个我怎样用条件查询语句在MSFlexGrid中显示出我索要的纪录？下面的代码对吗？
-----------------------------------------------------------------
Private Sub Command1_Click()
MSFlexGrid1.Cols = 11
MSFlexGrid1.Rows = 10
   a = Textperson.Text
   Data1.Recordset.MoveFirst
   Data1.Recordset.find "姓名='" & a & "'"
   if Data1.Recordset.Nomatch Then
     MsgBox "没有找到"
   End If 
   Command3.Visible = Not Data1.Recordset.Nomatch 
End Sub
只要MSFlexGrid1与Data1绑定，如果找到，会自动定位到记录上。
---------------------------------------------------------
第二个问题：vb中怎样获得系统的时间。然后把系统时间显示在text框中？
txtSysTime = format(Now(), "yyyy-mm-dd hh:nn:ss")

Answer 15

是吗？如果找到记录会自动定位到记录上？我的怎么不行啊：（哪位大侠手里有msdn啊？可否给我提供一个：）

Answer 16

to: ozarkgirl
不好意思！我上面所说的是没有用控件，我引用的是Microsoft ActiveX data object 2.6 Library 。但是思路应该是差不多的啊，你首先得记录当前的在MSFlexGrid中的位置的，如 第一条，第二条 ...
你要记住当前的记录号啊！
我想你的记录都在数据库中吧！
Dim intCount as integer
Dim txtSQL as string 
dim Msgtext as string 
dim mrc as adodb.recordset 
dim i as integer
intCount=msglexgrid1.row
然后再把他写入到你所要的窗口中啊。
这里头要用到一条查询语句。其中的 
select * from table_name where 字段名= '"& msglexgrid1.textmatrix(intCount,存在关键字的那一列的列号（如：姓名所在的那一列的列号））&"'
set mrc=ExecuteSQL(txtSQL,Msgtext) '我写的一个连接数据库的函数，在模块中，这里就不再述说了，我想你也能搞定。
'如果只有一列的话
text1.text=mrc.field(0)
'如果有多列的话
text1.text=mrc.field(0)
text2.text=mrc.field(1)
...这样就可以把你所要的记录都文本框中了！不会只出现投一条记录的！
Best of Luck to you !