哦,我是说修改单元格里的内容,然后将相应修改反映到数据库中(我用shape命令在mshflexgrid里显示了内容)?
解决方案 »
- 送分100分:MSComm1.Output = SHuZu(i)为什么不能用非要用 MSComm1.Output = SHuZu才可能
- 请问用order by rnd(id)随机抽取记录时,每次结果相同,怎么解决?
- 数据库安段显示技巧
- FormOne6的问题---------------在线等待!!!!急!!!!
- 动态数组的简单问题
- 打包的问题
- 怎样去除字符串中的空格?
- 如何使显示的结果按照带区0中的一个列值排序,这列是一个分组的合计!等待中!
- 见鬼了!见鬼了!
- /dl在密文开头是什么意思?
- ado可以读xml数据么?如果可以,怎么做?
- 请问各位:我想用vb做一个没有窗口的程序,把sub main()放在哪里(模块?),还是说启动vb时选择新建什么文件?
Private Sub Grid_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyReturn
Case vbKeyInsert
End Select
End Sub
用KeyPress做编辑
Private Sub Grid_KeyPress(KeyAscii As Integer)
If KeyAscii <> vbKeyBack Then
Grid.TextMatrix(Grid.Row, Grid.Col) = Grid.TextMatrix(Grid.Row, Grid.Col) & Chr(KeyAscii)
Else
If Len(Grid.TextMatrix(Grid.Row, Grid.Col)) = 0 Then Exit Sub
Grid.TextMatrix(Grid.Row, Grid.Col) = Left(Grid.TextMatrix(Grid.Row, Grid.Col), Len(Grid.TextMatrix(Grid.Row, Grid.Col)) - 1)
End If
End Sub保存自己写就行了。编辑根本不用附加控件的。
又:如siscowet(扬) ,我原来也用KeyDown来处理事件,我用的结果是MHFLEXGRID的内容比输入的少一个字符,最后只有用TEXTBOX输入才得到完整字符。