【结贴】KEYdown**

xhsoft

在一个窗体的keydown事件写了代码为什么没有执行

xhsoft

ding

shangxy

http://bbs.justep.com/forum.php? ... ight=bizformkeydown

xhsoft

这里用的是回车,那些快捷键中没有

jiahaiming

楼主，把代码贴出来看看吧

xhsoft

var
  ffbh,qcbh:string;
begin
  if key = 13 then
  begin
  dsb_qc.DataSet.Open;
  dsb_qc.DataSet.First;
  while not dsb_qc.DataSet.Eof do
  begin
    qcbh := dsb_qc.DataSet.FieldByName('wjbh').AsString;
    dsb_ff.DataSet.Open;
    dsb_ff.DataSet.First;
    while not dsb_ff.DataSet.Eof do
    begin
      ffbh:= dsb_ff.DataSet.FieldByName('ffwjbh').AsString;
      if qcbh=ffbh then
      begin
        dsb_ff.DataSet.Edit;
        dsb_ff.DataSet.FieldByName('wjnr').Assign(dsb_qc.DataSet.FieldByName('wjnr')); //取起草中的文件内容赋给发放文件内容字段
        dsb_ff.DataSet.Post;
      end;
      dsb_ff.DataSet.Next;
    end;
    dsb_qc.DataSet.Next;
  end;
  end;

atiger

今天下午我们开始放假了，5.4号开始上班，然后跟贴告知楼主

xhsoft

??

atiger

请问楼主设置断点跟踪了吗？有进入这个事件吗？如果进入了，根据你的要求在执行吗？
如果没有设置断点跟踪过，你先跟踪一下，

另外，这个窗体上有些啥控件呢。你不会是在控制表格文档的焦点吧

xhsoft

没有进入这个事件