Question

VB6 Text1如何与MSHFlexGrid1控件联用，以修改数据库中的数据？

系统中有一个MSHFlexGrid1控件和1个Text1，以及Command按钮1个。
1、当点击MSHFlexGrid1控件时，此格数据会显示在Text1中，Text中数据处于选中状态。
2、修改Text中的数据，MSHFlexGrid1控件所对应格的值也会跟着变。
3、按回车键后，数据会移入下一格数据中，重复第2步骤，一直到本条数据最后一段，按回车回到下一条数据的第一列中，一直这样下去修改数据，直到最后一条数据的最后一列。
4、按回车后，聚焦到按钮上。
如果用DataGrid控件能这样做吗？
请高手们帮帮忙。与Adodc1控件来连接。

Answer 1

这里贴不了代码，只能大致说一下了（俺也没现成代码，呵呵）
1）用FlexGrid的Click事件，取得当前col与row的值，然后赋值给text1.text=mshflexgrid1.item(row,col)。代码有点记不清了，应该类似。然后text1.setfocus，也可以用text1的selstart，selend属性将其中的内容选中。
2）利用text1的change属性，一旦内容有变化就赋值给对应的grid的空格。上面那句倒过来就行。
3）利用text1的Keydown或keyup属性，截取回车键，然后对应移动grid的当前格。这个好像直接用grid1.col=xx,grid.row=xx就可以。任意移动，移动到后一格，移动到下一行，方法完全一样。
4）这个也是按钮的Setfocus方法就可以。
5）Datagrid应该也可以，而且datagrid可以直接支持在格子内部编辑内容，更方便。
6）设计时将Flexgrid的datasource设置为adodc1，这样重新写Select语句后，用adodc1.requery，再grid.refresh就可以改变grid中的内容了

追问

谢谢你的回答，不过我也想用datagrid来做，只是没办法像flexgrid那样聚焦格子，如果是datagrid的话，能否举个例子，帮我下，比如当聚焦（1，1）格，text1也自动跟着聚焦过去，按回车移到(1,2)，同样text1也跟着变动过，一直到数据的最后一条最后一列。

Answer 2

我只是打酱油的.