主题：如何将以下代码合在一起

增加行：

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

插入行：

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

以下是引用hcx0522在2014-7-23 9:53:00的发言：

此主题相关图片如下：qq图片20140723094621.jpg

下载信息  [文件大小：112.3 KB  下载次数：2]

点击浏览该文件:祥泰仓库管理系统-改.zip

请问窗口设计里面的出仓管理，和盘点单管理，为什么点自定义项目出不来呢？可是进仓管理又可以，这是为什么？谢谢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:祥泰仓库管理系统.table

思路：

1、用public变量记录打开窗口的表：

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

2、CellButtonClick事件代码为：

If e.Col.name = "存货名称" Then
    maname = e.Table.Name
    e.cancel = True
    Forms("导入物料").open
    Tables("物料信息").Filter = ""
End If

3、Doubleclick事件代码改为：

If Forms("导入物料").opened = True Then
    If maname  = "进仓" Then
        Dim r As Row = Tables("进仓").Current
        Dim r1 As Row = Tables("物料信息").Current
        Dim sts() As String = {"染料代号","存货名称","单价","供应商"}
        For Each st As String In sts
            r(st) = r1(st)
        Next
    ElseIf maname= "出仓" Then
        Dim r As Row = Tables("出仓").Current
        Dim r1 As Row = Tables("物料信息").Current
        Dim sts() As String = {"染料代号","存货名称"}
        For Each st As String In sts
            r(st) = r1(st)
        Next
    ElseIf maname = "盘点单" Then
        Dim r As Row = Tables("盘点单").Current
        Dim r1 As Row = Tables("物料信息").Current
        Dim sts() As String = {"染料代号","存货名称"}
        For Each st As String In sts
            r(st) = r1(st)
        Next
    End If
    Forms("导入物料").close
End If

以下是引用hcx0522在2014-7-23 10:56:00的发言：
.NET Framework 版本：2.0.50727.5477
Foxtable 版本：2014.7.21.1
错误所在事件：窗口,进仓管理,Button9,Click
详细错误信息：
未将对象引用设置到对象的实例。

此主题相关图片如下：qq图片20140723094621.jpg

代码如下：Dim r As Row = Tables("进仓").InsertNew()
 r("日期") = Date.Today()

可能是因为没有开启插入行功能：

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