主题：备注是否可以关联到另外一个表

vars("clpb") = Tables("订单明细").current("发货明细")

其中("clpb") 从那里定义变量？？

自己做个变量.看帮助!

此主题相关图片如下：未命名.jpg

谢谢

mr725你好！如下代码还是有点问题，请帮忙改正：

Dim dr As DataRow
Dim cl As String = e.DataCol.Name
If cl = "发货明细" And e.DataRow.Isnull("公司名称") =False
    Dim s As String = Tables("订单明细").current("发货明细")
    Dim cs As String
    If s > ""
        DataTables("出货明细").DeleteFor("公司名称 = '" & e.DataRow("公司名称") & "' And 编号 = '" & e.DataRow("编号") & "'" )
        For i As Integer = 0 To s.split(chr(10)).length - 1
            Dim r As Row = Tables("出货明细").AddNew()
            r("公司名称") = Tables("订单明细").current("公司名称")
            r("编号") = Tables("订单明细").current("编号")
            r("颜色") = Tables("订单明细").current("颜色")
            r("单位") = Tables("订单明细").current("单位")
            r("出货时间") =  s.split(chr(10))(i).split(" ")(0)
            r("数量") =  s.split(chr(10))(i).split(" ")(1)
        Next
    Else
        Dim Result As DialogResult
        Result = MessageBox.Show("要清空【出货明细】表与本条记录相关的数据吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            DataTables("出货明细").DeleteFor("公司名称 = '" & e.DataRow("公司名称") & "' And 编号 = '" & e.DataRow("编号") & "'" )
        Else
            Tables("订单明细").current("发货明细") = vars("clpb")  'Return
        End If
    End If
End If
If cl = "商品名称" Orelse cl = "编号" Orelse cl = "颜色" Then
    dr = DataTables("报价明细").Find("商品名称 = '" & e.DataRow("商品名称") & "' And 编号 = '" & e.DataRow("编号") & "' And 颜色 = '" & e.DataRow("颜色") & "'")
    If dr IsNot Nothing Then
        e.DataRow("单位") = dr("单位")
        e.DataRow("单价") = dr("单价")
    End If
End If

我在表加了，2010-10-01  1000

                2010-10-02   2000

无法体现出来，而且表里还老说DataColChanged有错，而且请增新的产品，再在出货明细列中写明细的时侯，出货明细表有时还是会出现重复的，请问为什么了，

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

 

请在设置这个代码时侯，让他自动按出货时间的大小排下来，而不是乱排，谢谢

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

点击浏览该文件:备注是否可以关联到另外一个表 .table

1、什么东东无法体现出来，要在哪儿体现说清楚点嘛 ？ 看不懂你的意思～   出错的图贴出来看看。。。

 

2、出现重复的问题，可能你的条件还不够多，我只设了两个条件，你可以照着多设几个呀。。。

 

3、顺序问题：只能用排序来解决了。。。。  参看帮助中的 Sort 用法。。。

 

 

1、第二重复问题我附加条件，代码如下，但还是会重复，请问为什么
Dim dr As DataRow
Dim cl As String = e.DataCol.Name
If cl = "发货明细" And e.DataRow.Isnull("公司名称") =False
    Dim s As String = Tables("订单明细").current("发货明细")
    Dim cs As String
    If s > ""
        DataTables("出货明细").DeleteFor("公司名称 = '" & e.DataRow("公司名称") & "' And 编号 = '" & e.DataRow("编号") & "'And 颜色 = '" & e.DataRow("颜色")& "'And 单位 = '" & e.DataRow("单位") & "'"    )
        For i As Integer = 0 To s.split(chr(10)).length - 1
            Dim r As Row = Tables("出货明细").AddNew()
            r("公司名称") = Tables("订单明细").current("公司名称")
            r("编号") = Tables("订单明细").current("编号")
            r("颜色") = Tables("订单明细").current("颜色")
            r("单位") = Tables("订单明细").current("单位")
            r("出货时间") =  s.split(chr(10))(i).split(" ")(0)
            r("数量") =  s.split(chr(10))(i).split(" ")(1)
        Next
2、代码代入老出现如下图问题，请问是什么问题

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

然后“出货明细表”就会出如下图的问题，其中第三行根本就没用，请那是什么问题

 

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

 

把 发货明细 列的内容也贴出来看啊，

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

点击浏览该文件:备注是否可以关联到另外一个表 .table

表给你看吧，还有第二内容加进去后，出货明细表，根本无法出现，请帮我查看一下谢稿

最好把你操作的动画发上来看看，不知道在何时出现你说的问题，我操作目前正常。。。

 

大概知道原因了：你是在父关联表对子关联表进行操作，而子表的DateColChanged中的 e.Datacol.Name 等会以为是对父表中的列名，这个问题要请狐狸爸爸来看看了。

 

我是在订单明细表中操作的。