分不多,唯一的20 。。可希望各位前辈帮忙。 MSHFLEXGRID以成功绑定adodc,并正常显示数据。想实现在MSHFLEXGRID修改数据后能通过adodc保存更新。有代码如下:
Private Sub MSHFlexGrid1_Click()
With MSHFlexGrid1
.TextMatrix(.Row, .Col) = InputBox("输入")
End With
End SubPrivate Sub Command1_Click()
Adodc1.Recordset.Update '或者Adodc1.Recordset.UpdateBatch 都试过了
Adodc1.Refresh
MSHFlexGrid1.Refresh
End Sub可就是不能保存数据,dategrid是可以的,可惜不会升降序排列,只能用msflexgrid了。
等待中
Private Sub MSHFlexGrid1_Click()
With MSHFlexGrid1
.TextMatrix(.Row, .Col) = InputBox("输入")
End With
End SubPrivate Sub Command1_Click()
Adodc1.Recordset.Update '或者Adodc1.Recordset.UpdateBatch 都试过了
Adodc1.Refresh
MSHFlexGrid1.Refresh
End Sub可就是不能保存数据,dategrid是可以的,可惜不会升降序排列,只能用msflexgrid了。
等待中
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Adodc1.Recordset.Sort = DataGrid1.Columns(ColIndex).DataField & " asc " '升
Adodc1.Recordset.Sort = DataGrid1.Columns(ColIndex).DataField & " desc" '降End Sub
Adodc1.Recordset.Sort = DataGrid1.Columns(ColIndex).DataField & "asc" '升
End SubPrivate Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "kkk"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub可就是排序有错 还有 大哥 我们好像跑题了。我还有一些特殊问题需要用到msflexgrid控件 所以需要此空间 请问能实现我所说的吗??
mshflexgrid控件那只能用SQL语句进行更新了
后面加 Adodc1.Refresh 也无法改变。我想要实现数据库的排序,就像在数据库里面的 选中一列后按顺序排序,保存,,这样的效果 ,怎么样呢?Private Sub Command1_Click()
With Adodc1.Recordset
.Sort = "aaa asc" '升
.MoveFirst
Do Until .EOF
Debug.Print .Fields("bbb")
.MoveNext
Loop
End With
End SubPrivate Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "kkk"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
如果DataGrid是绑定ADODC,在每次数据库刷新时就用.sort方法重新排序,如果是动态给DataGrid.datasource赋值,那么在每次给DataGrid.datasource重新赋值的时候用.sort方法重新排序。
当绑定到数据库时,MSHFlexGrid 所显示的是只读数据