怎样使用数据字典输入记录
求助各位,怎样使用数据字典输入数据记录?例如在表单中的控件中输入编码项后,在下面或新页面的gird中出现和此编码相对应得数据记录。而且编码对应多条记录可以使用上下箭头选择,选定后按回车键即可存入其他数据表中。谢谢!
谢谢!我试试!
[此贴子已经被作者于2006-7-23 23:02:44编辑过]
设.Text1为输入编码的文本框,.Grid1为与数据字典绑定的表格控件
.Text1.KeyPress Event事件:
Select 数据字典
If !Empty(This.Value)
Set Filter To Alltrim(Thisform.Tag)$编码
Else
Set Filter To
Endif &&若已以编码建立索引,也可使用Seek
Go Top
Thisform.refresh
在.Grid1中选定记录后,项目列对应的Text.nKeyCode事件:
If nKeyCode=13
Scat memv
Select 工作表
Appe Blan
Gath memv &&或用Insert、Replace等命令
Endif
[此贴子已经被作者于2006-7-24 16:38:08编辑过]
谢谢了!关键还是对grid中记录行整行的选择,利用上面程序只能选择记录行中的一列,还是苦苦寻求。各位大侠,就像上面我说的那个网站上的三江住院系统http://www.ntsj.net/中的住院记帐页面一样的查询方法,帮帮我吧!大虾们,谢谢了!
[此贴子已经被作者于2006-7-24 22:49:15编辑过]
因为有事一个星期没上网了,今天才看到版主的回复,万分感谢!我试试看看。