此主题相关图片如下:3.jpg
新增后,点击列 产品ID单元格,弹出窗口 在表中选定好商品后,
回车事件返回当前规格到窗口2表对应的列中。。
此主题相关图片如下:2.jpg
[此贴子已经被作者于2009-10-14 17:05:23编辑过]
你发上来的文件,根本就不能正常运行,窗口名称和代码都不一致。
我没有变更而以,我是拆开的一个新的例子,即使都正常一样报错
以下是引用狐狸爸爸在2009-10-14 22:06:00的发言:
你发上来的文件,根本就不能正常运行,窗口名称和代码都不一致。
哪里不一致??
不管行不行,我觉得您的态度真的很不错,其实我本打算自己掏腰包的,但必竟是为公司做当然也是希望他们掏,所以在一些细节上也许我要求过份了点,还望体谅~~(还有一个原因,老婆骂我傻),但又喜欢FT,两难。。所以预交的东东一定要好
加上红色的一行,就没事了:
If e.KeyCode = Keys.Enter Then
If CurrentTable.Current IsNot Nothing Then
' Forms("" & Vars("返回窗口名") & "").Controls("" & Vars("返回控件名") & "").current("规格")=CurrentTable.Current("规格")
tables("窗口2_table1").Current("规格")=CurrentTable.Current("规格")
End if
Forms("窗口1").Close()
e.Handled = True
End If
[此贴子已经被作者于2009-10-14 23:04:13编辑过]
老六,好奇怪哟,以楼主的文件为例,他在窗口2增加行后,用代码就不能写入值了?