主题：自定义录入界面问题

 不是当前行的话，就是你表名写错了。注意表名

 Tables("表名").AddNew

 

 就应该是表名的问题，注意副本表的时候名字可能不同。

 

 如果有问题，做例子说明。

 打包成rar发上来。

cellButtonClick事件

 

If e.Col.Name = "材料编码" Then
    e.Cancel = True
    vars("点击的表") = e.Table
    Forms("Material").Open()
End If

 

doubleClick事件

 

Dim tbl As Table = Tables("Material_Table1")
If tbl.Current IsNot Nothing Then
   vars("点击的表").Current("材料编码") = tbl.Current("材料编码")
End If
Forms("Material").Close()

 为什么要改，直接有11楼的代码就行啊

 

测试是没有问题的，你要理解我说的是什么意思是。

 

我是想说，你点击打开窗口之前，先记录是在哪个表点击的啊。

 

你重新启动项目试试。

 你能不能有点进步？

 

 看11楼。

 

如果你没有使用最新版的foxtable，你要定义一个全局变量的。

 

http://www.foxtable.com/help/topics/0325.htm

 

代码改一下

 

If e.Col.Name = "材料编码" Then
    e.Cancel = True
    vars("点击的表") = e.Table.Name
    Forms("Material").Open()
End If

 

doubleClick事件

 

Dim tbl As Table = Tables("Material_Table1")
If tbl.Current IsNot Nothing Then
   Tables(vars("点击的表")).Current("材料编码") = tbl.Current("材料编码")
End If
Forms("Material").Close()