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

 

盘点表，作为父表，跟别的表进行了关联，别的表引用了父表的数据，那么父表关联的列，就不能有重复的数据，如果重复，子表就不知道要引用哪行数据了。

不对，我是在盘点单中录入数据，不是在盘点表中录入，而且，盘点表是和进仓单做差联的。

 回复6楼。

 

  

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

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

 

 

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

点击浏览该文件:祥泰仓库管理系统.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

.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

在窗口管理的进仓管理，导出EXCEL按钮，生成excel 为什么只有一行数据。

 

代码如下：

Dim Book As New XLS.Book(ProjectPath & "Attachments\进仓单.xls")
Dim fl As String = ProjectPath & "Reports\进仓单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

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


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


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

这是实例。

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

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

 
此主题相关图片如下：qq截图20140723142523.png