主题：如何调用货号列

什么叫商品资料里的款号一会儿有内容,一会儿没有内容.

没有对比的?如果没有的话.你这样吧!

 

 

For i As Integer = 0 To Tables("商品资料").Rows.Count-1
    Dim dr As Row = Tables("商品资料").Rows(i)
    Dim r As Row = Tables("进销存").AddNew
    r("款号")= dr("款号")
Next

 

按钮事件测试一下

 

哎,你这个其实不号做的,你可以将所有的行删除,然后做个窗口,做个按钮,放入这个代码.

做个窗口,放个按钮,在按钮的chick里面放入这个代码:

 

For Each dr As DataRow In DataTables("商品资料").DataRows
    Dim dr1 As DataRow = DataTables("进销存").Find("款号 ='" & dr("款号") & "'")
    If dr1 Is Nothing Then
        Dim r1 As Row = Tables("进销存").AddNew
        r1("款号")= dr("款号")
    End If
Next

 

  这样就不会重复!

你根本没有说,操作方式,你在在做什么的操作情况下,要产生这个效果?

  在进销存里面有一个窗口,你看看,我做了两个效果,一个是按钮直接操作,另外一个是利用表事件做的.

 

 

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

点击浏览该文件:女装管理系统.table

每一个做法都不一样的,如果打开系统就要这样,吧按钮中的代码放入系统的项目事件的AfterOpenProject中,如果你要在商品资料中输入一个款号,进销存里面就要加载这一个款号,代码在商品资料的表事件DataColChanged中加入:

 

 

Select Case e.DataCol.Name
    Case "款号"
        Dim kh As String = e.DataRow("款号")       
        Dim tj = "款号 = '" & kh & "'" 
        If kh >"" Then
            If DataTables("进销存").Find(tj) Is Nothing Then
                Dim dr As DataRow = DataTables("款号").AddNew()
                dr("款号") = kh               
            End If
        End If
End Select

哎,这个你做个关联吧,修改商品资料就可以做更新了.

你的不是可以更新的吗?

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

点击浏览该文件:女装管理系统.table

你根本不了解代码的含义,你自己看看帮助吧