datagrid可以和ADO的数据源相连接,要想在DATAGRID中显示某些字段可以设置ADO的属性如:
adodc1.recordsource="select 字段 from 表 where.."
adodc1.refresh
这样就可以显示部分字段了!
把MSFLEXGRID属性中的UPDATE设为TRUE,就可以运行时修改了字段数据了!
adodc1.recordsource="select 字段 from 表 where.."
adodc1.refresh
这样就可以显示部分字段了!
把MSFLEXGRID属性中的UPDATE设为TRUE,就可以运行时修改了字段数据了!
msflexgrid.row=0
msflexgrid.text="text"或则msflexgrid.textmatrix(0,0)="text"
andy :MSFLEXGRID没有UPDATE属性
MsFlexGrid不知道是否有此属性因为偶一直都是用DataGrid
是查什么?MSFlexGrid还是TextBox?
具体应该查哪一项?
是查什么?MSFlexGrid还是TextBox?
具体应该查哪一项?
Dim c As Integer, r As Integer
With MSFlexGrid1
c = .Col: r = .Row
Text1.Left = .Left + .ColPos(c)
Text1.Top = .Top + .RowPos(r)
Text1.Width = .ColWidth(c)
Text1.Height = .RowHeight(r)
Text1 = .Text
Text1.Visible = True
Text1.SetFocus
End With
End SubPrivate Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Call MSFlexGrid1_DblClick
End If
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyEscape Then
Text1.Visible = False
MSFlexGrid1.SetFocus
Exit Sub
End If
If KeyAscii = vbKeyReturn Then
MSFlexGrid1.Text = Text1.Text
Text1.Visible = False
MSFlexGrid1.SetFocus
End If
End SubPrivate Sub Text1_LostFocus()
Text1.Visible = False
MSFlexGrid1.SetFocus
End Sub