Foxtable(狐表)用户栏目专家坐堂 → [求助]求助一个智能输入的问题


  共有15943人关注过本帖树形打印复制链接

主题:[求助]求助一个智能输入的问题

帅哥哟,离线,有人找我吗?
hyx
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:64 积分:819 威望:0 精华:0 注册:2011/7/13 17:14:00
[求助]求助一个智能输入的问题  发帖心情 Post By:2011/11/7 15:33:00 [显示全部帖子]

如下图:

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图1.jpg
图片点击可在新窗口打开查看

 

自己改进了一些功能,比如用鼠标双击的时候把‘区号’和‘邮编’都带到A表里面,但是按“Enter” 键的时候‘区号’和‘邮编’就老是带不过来。请问一下是什么问题,还有这方面的编程要注意哪些方面,谢谢。。。

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.rar

[此贴子已经被作者于2011-11-7 15:34:43编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
hyx
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:64 积分:819 威望:0 精华:0 注册:2011/7/13 17:14:00
  发帖心情 Post By:2011/11/7 15:54:00 [显示全部帖子]

文字上:e.Row( )  和 e.Table.Current( ) 的差别,但是我真不懂这两个在编程上的差别。。。请狐爸详细解析一下好吗??

 回到顶部
帅哥哟,离线,有人找我吗?
hyx
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:64 积分:819 威望:0 精华:0 注册:2011/7/13 17:14:00
  发帖心情 Post By:2011/11/7 16:18:00 [显示全部帖子]

现在的情况是

而KeyDow事件代码中,这一句:

Tables("表A").Current("第二列") = e.Table.Current("区号")

 

失效了


 回到顶部
帅哥哟,离线,有人找我吗?
hyx
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:64 积分:819 威望:0 精华:0 注册:2011/7/13 17:14:00
  发帖心情 Post By:2011/11/7 16:20:00 [显示全部帖子]

还想问狐爸一下:e.Row   和  e.Table.Current  有什么区别,

也就是什么情况下用e.Row  更好 ,而什么情况下用e.Table.Current 更好?????


 回到顶部
帅哥哟,离线,有人找我吗?
hyx
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:64 积分:819 威望:0 精华:0 注册:2011/7/13 17:14:00
  发帖心情 Post By:2011/11/7 16:53:00 [显示全部帖子]

太感谢狐爸了。。。我会牢记。。。

 回到顶部
帅哥哟,离线,有人找我吗?
hyx
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:64 积分:819 威望:0 精华:0 注册:2011/7/13 17:14:00
  发帖心情 Post By:2011/11/7 18:23:00 [显示全部帖子]

狐爸,在等你的答复。。。。

 


 回到顶部
帅哥哟,离线,有人找我吗?
hyx
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:64 积分:819 威望:0 精华:0 注册:2011/7/13 17:14:00
  发帖心情 Post By:2011/11/7 21:39:00 [显示全部帖子]

mr725  你的代码也不行,我刚才测试了一下。

 回到顶部
帅哥哟,离线,有人找我吗?
hyx
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:64 积分:819 威望:0 精华:0 注册:2011/7/13 17:14:00
  发帖心情 Post By:2011/11/7 22:09:00 [显示全部帖子]

狐爸,你发的程序运行一切正常,可以告诉我这个运行机制的原理吗???谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
hyx
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:64 积分:819 威望:0 精华:0 注册:2011/7/13 17:14:00
  发帖心情 Post By:2011/11/7 22:21:00 [显示全部帖子]

为什么要在 KeyDownEdit  里面加上如下代码:

 

 If Forms("窗口1").Opened Then

            e.Cancel = True

            e.Text = t.Current("县市")

            Tables("表A").Current("第二列") = t.Current("区号")

            Tables("表A").Current("第三列") = t.Current("邮编")

            Forms("窗口1").close()

           e.Table.FinishEditing

        End If

 

还有       e.Text = t.Current("县市")

            Tables("表A").Current("第二列") = t.Current("区号")

   为什么会不同的????

 


 回到顶部
帅哥哟,离线,有人找我吗?
hyx
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:64 积分:819 威望:0 精华:0 注册:2011/7/13 17:14:00
  发帖心情 Post By:2011/11/7 22:25:00 [显示全部帖子]

还有就是上面的代码和窗口1 里面的 KeyDown  事件是要求对应的吗???

如下:

 

If e.keycode = keys.Enter Then
    Tables("表A").FinishEditing()
    Tables("表A").Current("第一列") = e.Table.Current("县市")
    Tables("表A").Current("第二列") = e.Table.Current("区号")
    Tables("表A").Current("第三列") = e.Table.Current("邮编")
       Forms("窗口1").close()
End If


 回到顶部
总数 11 1 2 下一页