主题:表格中的焦点
			 larry123
				 [专家分:0]  发布于 2008-05-30 14:32:00
 larry123
				 [专家分:0]  发布于 2008-05-30 14:32:00							
			如何让表格中第一列得不到焦点,在最后一列按回车后跳到下一行
						
					 
		
			
回复列表 (共9个回复)
		
								
				沙发
				
					 hw2007name [专家分:4790]  发布于 2008-05-30 14:37:00
hw2007name [专家分:4790]  发布于 2008-05-30 14:37:00				
				如让表格的第一列得焦点:
thisform.grid1.column1.text1.setfocus()
&&&但要注意你第一列的显示控件是什么,如果组合框则为这样:
thisform.grid1.column1.combo1.setfocus()
							 
						
				板凳
				
					 larry123 [专家分:0]  发布于 2008-05-30 14:45:00
larry123 [专家分:0]  发布于 2008-05-30 14:45:00				
				
第2个问题一解决,我的意思的第一列不要得到焦点
							 
						
				3 楼
				
					 larry123 [专家分:0]  发布于 2008-05-30 15:24:00
larry123 [专家分:0]  发布于 2008-05-30 15:24:00				
				
表单中的keypress事件代码不执行是怎么回事,
							 
						
				4 楼
				
					 0901chang [专家分:10660]  发布于 2008-05-30 15:24:00
0901chang [专家分:10660]  发布于 2008-05-30 15:24:00				
				试一试下面的方法
1.在表单的init将表格第一列设置为
thisform.grid1.column1.text1.enabled=.f.
2.在最后一列的.text1.keypress中判断:有回车键时移动指针
skip
if eof()
 skip -1
endi
							 
						
				5 楼
				
					 0901chang [专家分:10660]  发布于 2008-05-30 15:43:00
0901chang [专家分:10660]  发布于 2008-05-30 15:43:00				
				表单中的keypress事件代码不执行是怎么回事
在keypress事件代码最后一行刷新表单,不刷新表单,表单的显示不会改变。
thisform.refresh
							 
						
				6 楼
				
					 北京种子乐 [专家分:3710]  发布于 2008-05-31 00:04:00
北京种子乐 [专家分:3710]  发布于 2008-05-31 00:04:00				
				[quote]表单中的keypress事件代码不执行是怎么回事
在keypress事件代码最后一行刷新表单,不刷新表单,表单的显示不会改变。
thisform.refresh[/quote]
表单.KEYPREVIEW=.T.
注:该属性默认.F.
							 
						
				7 楼
				
					 cbl518 [专家分:57140]  发布于 2008-05-31 07:21:00
cbl518 [专家分:57140]  发布于 2008-05-31 07:21:00				
				防止从事件和方法中,执行它们的,默认事件或方法。
NODEFAULT
 
							 
						
				8 楼
				
					 cbl518 [专家分:57140]  发布于 2008-05-31 07:29:00
cbl518 [专家分:57140]  发布于 2008-05-31 07:29:00				
				NODEFAULT
TRY
SKIP
CATCH 
GO TOP
ENDTRY
ThisForm.Refresh
							 
						
				9 楼
				
					 南平午丁 [专家分:350]  发布于 2008-06-06 23:48:00
南平午丁 [专家分:350]  发布于 2008-06-06 23:48:00				
				[quote]如何让表格中第一列得不到焦点,在最后一列按回车后跳到下一行[/quote]
在 Grid.AfterRowColChange 事件代码增加:
if nColIndex = 1    && 表格中第一列得不到焦点
* 移开焦点比如到第二列……
endif
if nColIndex =this.ColumnCount && 在最后一列按回车后跳到下一行
skip
endif
							 
									
			
我来回复