1:
dbgrid1.Oncolexit:
if not (table1.state in [dsedit,dsinsert] then exit;
if table2.locate('工号',table1.fieldbyname('工号').AsString,[]) then
begin
with table1 do
begin
table1.fieldbyname('姓名').AsString :=table2.fieldbyname('姓名').AsString ;
table1.fieldbyname('技术等级').AsString :=table2.fieldbyname('技术等级').AsString ;
end;
end;
2:
dbgrid1.OnKeypress:
if key=#13 then
begin
key:=#0;
postmessage(activecontrol.handle,WM_keydown,vk_tab,0);
end;
dbgrid1.Oncolexit:
if not (table1.state in [dsedit,dsinsert] then exit;
if table2.locate('工号',table1.fieldbyname('工号').AsString,[]) then
begin
with table1 do
begin
table1.fieldbyname('姓名').AsString :=table2.fieldbyname('姓名').AsString ;
table1.fieldbyname('技术等级').AsString :=table2.fieldbyname('技术等级').AsString ;
end;
end;
2:
dbgrid1.OnKeypress:
if key=#13 then
begin
key:=#0;
postmessage(activecontrol.handle,WM_keydown,vk_tab,0);
end;
解决方案 »
- 新开贴求助:TADOTable+ACCESS数据库从一个数据库复制记录到另一个数据库时出错
- 如何有选择地清除IE地址栏中的网址
- 很简单的问题,关于WORD的,在线等。。。
- 如果使udp接收取消息的时候能发出声音??
- DBChart一个小问题
- 如何读取16进制文件并转换成整数
- 好惨啊!硬盘出问题了。几个月的心血全部付之东流了!谁救救我?
- 求教:怎么利用createfilemapping来在两个不同的进程共享图像数据?
- 关于高度变化
- 哪位仁兄有《黑白棋》的算法或源代码,急!!!!!!
- 老是自动跳出拔号窗口要求上网怎么办1?
- 主 题:请问delphi6有格式化原码的工具吗?像visualage java 中的format code 功能?:)!11111111111111
我目的主要是动态调用基本表中需要的内容(这种应用很多)。如您所说,不如直接用电了表格建个人资料。
begin
MyEdit := False ;
if table2.Locate('工号' ,table1.FieldByname('工号').Asstring,[loCaseInsensitive]) then
begin
table1.fieldbyname('工号').AsString :=i ;
table1.fieldbyname('姓名').AsString :=table2.fieldbyname('姓名').AsString ;
table1.fieldbyname('技术等级').AsString :=table2.fieldbyname('技术等级').AsString
end ;
MyEdit := true ;
end ;注:MyEdit为外部变量,防止在修改数据时发生死循环。
按您的方法编译时出现[Error] Unit1.pas(33): ')' expected but 'THEN' found和[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'错误。
若去掉第一个IF语句,可编译完成,但在第一行输入数据正确,可输入第二行数据或其它据时出现错误:project project1.exe raised exception call edbengineerror with message 'key violation.'
如何处理?让您见笑了,您看我多笨!盼解答。
last;
edit;
i:=dbgrid1.selectedfield.AsString ;
post;
edit;
2)第一位的回答已经很详细了,可以重点参考
3)肯定要使用查找字段或者是定位字段的方法
1)我是初学者,目前确实没有什么用,不过我正在努力。
2)你说得比较清楚,我看懂了。
3)若用查找字段在表中单元格会出现很多的讨厌的选择下三角,如果基本表内容很多,速度会很慢。
4)非常感谢你的指点!
if not (table1.state in [dsedit,dsinsert]) then exit;