非绑定的,能编辑的网格控件,是什么? 用msflexgrid可以编辑数据,但要自己写代码。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以编辑,用文本框Text1.Move biao.CellLeft + biao.Left, biao.CellTop + biao.Top,biao.CellWidth Text1.Width = biao.CellWidthText1.Visible = TrueText1.SetFocusText1.ClearText1.Text = biao.Textbiao.Col = 0 思路是这样的:首先放一个文本框(隐藏的)。当在msflexgrid中移动焦点时会触发EnterCell事件,以及Click时调用EnterCell事件。然后在EnterCell中定位当前的单元格的位置,存在过程变量中。然后在Click事件以及KeyPress事件(KeyAscii = 13时做,即打回车)中,调用一个过程:把此文本框,移到当前的位置(即在EnterCell中得到的变量),把这个文本框适应当前单元格的高及宽,同时把当前单元格的值付给文本框,把文本框显现出来且具有焦点:with msflexgridTt(0).Top = .Top + .CellTopTt(0).Left = .Left + .CellLeftTt(0).width = .CellWidthTt(0).Height = .CellHeightTt(0).Text = .TextMatrix(CurR(Index), CurC(Index))Tt(0).Visible = -1Tt(0).SetFocusend with在文本框的change事件中:msflexgrid.TextMatrix(CurR(Index), CurC(Index)) = Tt(Index).Text在文本框的LostFocus事件中:Tt(Index).Visible = 0在文本框KeyPress事件中,即当按回车或空格说明输入完成If KeyAscii = 13 Then msflexgrid.SetFocusElseIf KeyAscii = 27 Then msflexgrid.SetFocusEnd If在msflexgrid的Scroll事件中Tt(Index).Visible = 0其他的细节你再去想想,假如不是文本框呢?是combobox? 原理既当click msflexgrid的一个格,把隐含的textbox 显现出来,移到click位置,输入数据,更改msflexgrid的数据,更改数据库就简单了 Formula One ,Spread,Cell,Excell ... 谢谢,1.你们的意思是用flexgrid,然后textbox编程实现。2.网虫兄的意思是用变量作为中介,也许更优一些。我的mail是[email protected] 敬候您的回复。3.袁前辈是不是说true dbgrid控件?这东东好像是要钱买的,到了期限,自己写的程序就跟着过期了。有无时间限制的么?4.tdbgrid,vsflexgrid,mystelflexgrid这些在哪里载? vb程序实现excel数据库的链接进行读写 最小化按钮的实现?? 事务问题,在线等,sos!!! 高分送!~! 数据打印问题 !!!!!!! 重新问winsock连接多客户端问题。 help me 高手帮忙! ppt 到html的转换 通用对话框的showprinter方法打印时为什么按“取消”键仍然打印? 如何只允许操作本应用程序窗口,不允许执行其它任何程序,并且不允许关闭本应用程序窗口 关于查询数据库的记录集移动问题(解决后马上加分给第一个答对的)
Text1.Move biao.CellLeft + biao.Left, biao.CellTop + biao.Top,biao.CellWidth
Text1.Width = biao.CellWidth
Text1.Visible = True
Text1.SetFocus
Text1.Clear
Text1.Text = biao.Text
biao.Col = 0
然后在Click事件以及KeyPress事件(KeyAscii = 13时做,即打回车)中,调用一个过程:把此文本框,移到当前的位置(即在EnterCell中得到的变量),把这个文本框适应当前单元格的高及宽,同时把当前单元格的值付给文本框,把文本框显现出来且具有焦点:
with msflexgrid
Tt(0).Top = .Top + .CellTop
Tt(0).Left = .Left + .CellLeft
Tt(0).width = .CellWidth
Tt(0).Height = .CellHeight
Tt(0).Text = .TextMatrix(CurR(Index), CurC(Index))
Tt(0).Visible = -1
Tt(0).SetFocus
end with在文本框的change事件中:
msflexgrid.TextMatrix(CurR(Index), CurC(Index)) = Tt(Index).Text
在文本框的LostFocus事件中:
Tt(Index).Visible = 0
在文本框KeyPress事件中,即当按回车或空格说明输入完成
If KeyAscii = 13 Then
msflexgrid.SetFocus
ElseIf KeyAscii = 27 Then
msflexgrid.SetFocus
End If
在msflexgrid的Scroll事件中
Tt(Index).Visible = 0其他的细节你再去想想,假如不是文本框呢?是combobox?
2.网虫兄的意思是用变量作为中介,也许更优一些。我的mail是[email protected] 敬候您的回复。
3.袁前辈是不是说true dbgrid控件?这东东好像是要钱买的,到了期限,自己写的程序就跟着过期了。有无时间限制的么?
4.tdbgrid,vsflexgrid,mystelflexgrid这些在哪里载?