100分悬赏表单中选中表格记录时，编辑框记录相应变化的问题！1：30前有效！

[broadarms]

本题是07年等级考试的题目

说明：表单中数据环境为学生表（xs），表单中包含表格和编辑框控件，编辑框控件显示简历，如何在用鼠标点选表格中记录时，简历相应变化！

十万火急！谢！

[wwwwb]

记录号怎么赋值到控件？
不是取得记录号，是根据记录号定位，再取相关内容

[shxmh]

Grid1绑定的是指定表的临时表，并不移动指定的记录指针。

在AfterRowChange事件中写入：

i =RECNO()
SELECT 你的表
GO i
thisform.text1.Value = 你的表.简历字段

应该可以满足你的要求

[broadarms]

已经搞定了。

go recno()
thisform.refresh

[十豆三]

你看过我给你的例子了吗？

http://www.access911.net/CSDN/filedescription.asp?mdb=2007-5-30&id=79&mode=3

[broadarms]

对了，是在表格的AfterRowChange里写代码。

[十豆三]

以下是一个简单的例子，请参考使用：

设表名为：BOTO1
设表字段：NAME,SEX,AGE 均为字符型，长度10。
建立一个表单：DEMO.SCX
表单上有：
四个按钮:添加、保存、删除、退出
三个文本框：TEXT1、TEXT2、TEXT3
一个Grid表：

表单的Load事件：
USE boto1

表单的Init事件：
THIS.GRID1.RECORDSOURCE='BOTO1'
THIS.GRID1.DELETEMARK=.F.
THIS.GRID1.READONLY=.T.
FOR I=1 TO 3
J=ALLTRIM(STR(I))
THIS.TEXT&J..ENABLED=.F.
ENDFOR
This.Text1.Value=ALLTRIM(name)
This.Text2.Value=ALLTRIM(sex)
This.Text3.Value=ALLTRIM(age)

表单的Unload事件：
USE IN BOTO1

Grid的AfterRowColChange事件：
LPARAMETERS nColIndex
ThisForm.Text1.Value=ALLTRIM(name)
ThisForm.Text2.Value=ALLTRIM(sex)
ThisForm.Text3.Value=ALLTRIM(age)

添加按钮的Click事件：
IF MESSAGEBOX('是否使用录前值？',4+32+256,'信息提示')=7
ThisForm.text1.value=''
ThisForm.text2.value=''
ThisForm.text3.value=''
ENDIF
ThisForm.text1.Enabled= .T.
ThisForm.text2.Enabled= .T.
ThisForm.text3.Enabled= .T.
ThisForm.Text1.SetFocus

保存按钮的Click事件：
APPEND BLANK
replace name WITH ALLTRIM(thisform.text1.value)
replace sex WITH ALLTRIM(thisform.text2.value)
replace age WITH ALLTRIM(thisform.text3.value)
ThisForm.text1.Enabled= .f.
ThisForm.text2.Enabled= .f.
ThisForm.text3.Enabled= .f.
Thisform.grid1.Refresh

删除按钮的Click事件：
IF MESSAGEBOX('是否删除此条记录？',4+32+256,'信息提示')=7 OR RECCOUNT('BOTO1')=0
RETURN
ENDIF
SELECT BOTO1
DELETE
THISFORM.GRID1.RECORDSOURCE=NULL
PACK
THISFORM.GRID1.RECORDSOURCE='BOTO1'
GO TOP
THISFORM.GRID1.REFRESH

退出按钮的Click事件：
Thisform.Release

[拼命三朗]

就是吗，或者可以将简历这列绑定到编辑筐控件上

[wwwwb]

取得记录号，赋值控件即可

[broadarms]

楼上楼上的：绑定没用啊，我要随着鼠标点记录的移动简历也要变化啊。

楼上：记录号怎么赋值到控件？

能不能给个程序，应该是很简单的，就几行。

谢谢大家了。

[十豆三]

你去下载一下示例吧：

http://www.access911.net/CSDN/filedescription.asp?mdb=2007-5-30&id=79&mode=3