我两个问题,请大家帮忙!1.我现在的进销存是在一台电脑上录入,其他电脑采用数据库共享直接访问的,其他电脑在访问时的速度极慢,我不知道该如何是好?我记得有人说过通过其他方式访问可以快点,我采用ADO的形式。如果有其他好建议不妨也说来听听!2、下列两个代码有什么区别?在VBA中我引用了MSHFLEXGRID控件,我是想通过设置一个文本框,然后在MSHFLEXGRID中进行编辑,在设置文本框rkdtxt_KeyPress时,后面的申明在VBA (ByVal KeyAscii As MSForms.ReturnInteger),而在VB中是(KeyAscii As Integer)同样的代码在VB是可以通过的,而在VBA中竟上述一个地方不同,竟然代码就无法通过?请问大家该如何办?VBA中文本框(rkdtxt),该代码在VBA中没通过。
Private Sub rkdtxt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = ASC_ENTER Then
MSHFlexGrid1.SetFocus
KeyAscii = 0
End If
End Sub
VB中文本框(rkdtxt),该代码在VB中通过。
Private Sub rkdtxt_KeyPress(KeyAscii As Integer)
If KeyAscii = ASC_ENTER Then
MSHFlexGrid1.SetFocus
KeyAscii = 0
End If
End Sub
当然不是仅仅参数方面的问题!
谢谢!
Private Sub rkdtxt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = ASC_ENTER Then
MSHFlexGrid1.SetFocus
KeyAscii = 0
End If
End Sub
VB中文本框(rkdtxt),该代码在VB中通过。
Private Sub rkdtxt_KeyPress(KeyAscii As Integer)
If KeyAscii = ASC_ENTER Then
MSHFlexGrid1.SetFocus
KeyAscii = 0
End If
End Sub
当然不是仅仅参数方面的问题!
谢谢!
解决方案 »
- 1,2号加班。。。。。。^_^
- 在看人家的代码时,一些特殊功能总是能看见像Private Declare Function的声明,能介绍一下这种方法如何使用吗?
- 求教报表设计器一个问题,查过贴子,好象真没人问过。
- 请有数据库经验的人指点一下?
- 请问:如何给已有的表填加主键?(VB6.0+Access)
- VB 和 汇编的接口问题!
- 画图
- 求教vb6.0中的报表问题,请各位大侠帮帮忙!
- VB中如何使用多线程?谢谢。较急!
- VB創建excel2010圖片由連結修改為插入儲存
- 静态变量与全局变量
- 如何取得 Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
错误的提示是:“编译错误,过程声明与事件描述不匹配,或过程具有相同的名称”
主要我看是两个参数:在VBA中是ByVal KeyAscii As MSForms.ReturnInteger,而在VB中是KeyAscii As Integer,就是这点差别没有通过?
2: 不太清楚
等强人吧
VBA里就是这样的,你要在VBA环境里运行当然要按它的要求来做。
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)End Sub
║ 免费的源码、工具网站,欢迎大家访问!║
║ http://www.j2soft.cn/ ║
╰═══════════════════╯
If KeyAscii = ASC_ENTER Then
MSHFlexGrid1.SetFocus
KeyAscii = 0
End If
End Sub按ENTER键后看能否取出KeyAscii的值
哈 这个好像没有重载 ~~~