已经从数据库中查询到数据,并在mshflexgrid中显示出来,我想设计一个修改界面,点击修改按键时弹出一个可以修改的界面,修改鼠标选定的那行数据,但是程序总是报实时错误:要求对象
Private Sub Command2_Click()
Frmmodify.show
End SubPrivate Sub Form_Load()
x = MSHFlexGrid1.Row
Text1.Text = MSHFlexGrid1.TextMatrix(x,0) '要求对象
Text2.Text = MSHFlexGrid1.TextMatrix(x,1)
Text3.Text = MSHFlexGrid1.TextMatrix(x,2)
......
End Sub
Private Sub Command2_Click()
Frmmodify.show
End SubPrivate Sub Form_Load()
x = MSHFlexGrid1.Row
Text1.Text = MSHFlexGrid1.TextMatrix(x,0) '要求对象
Text2.Text = MSHFlexGrid1.TextMatrix(x,1)
Text3.Text = MSHFlexGrid1.TextMatrix(x,2)
......
End Sub
解决方案 »
- 关于VB热门的问题
- VSFLEXGRID为何无法正确显示数据?
- 我用VB打开了一个EXCEL文档,但我不知道怎么调整EXCEL的列宽!??请高手帮忙!!
- 我做了一个五子棋的实验平台,有没有实用的可能性?
- SOS:一个算法问题,等待解决,非高手莫入!!
- 请教老师:解释三个入门级概念问题
- ADO连接SQL Sever的ConnectionString的格式
- 在 datagrid 中的中文字段中如何使用上下左右键?
- 怎么样把label的内容保存到TXT文件里?
- 如何判断一台机器是否处于某一局域网中?
- VB+SQL数据库 如何一起打包 有偿回答
- vb activex控件发布到web 如何进行控件数字签名
你可以尝试将这一部分代码单独写成一个SUB,然后单独调用.你也可以试试在FORM_LOAD的时候写TEXT1.SETFOCUS,看看会怎么样
Private Sub Form_Load()
x = MSHFlexGrid1.Row
Text1.Text = Form1.MSHFlexGrid1.TextMatrix(x,0) '要求对象
Text2.Text = Form1.MSHFlexGrid1.TextMatrix(x,1)
Text3.Text = Form1.MSHFlexGrid1.TextMatrix(x,2)
......
End Sub
end sub
控件支持当前窗口编辑.如果绑定到TextBox再编辑会有bug,比如方向键支持的显示会有bug