以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  复制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=18209)

--  作者:xjpxjp1972
--  发布时间:2012/4/6 11:19:00
--  复制


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20120406111619.jpg
图片点击可在新窗口打开查看

有一个问题,当我在年度列输入一个新值,当新值和旧值不一样时,保存新值并复制增加当前行其他列值,于是我在datachanging加入了以下代码,

Select Case e.DataCol.Name
Case "年度"
If e.NewValue<> e.OldValue AndAlso e.NewValue > "" AndAlso e.OldValue > ""  Then
     Dim nb As DataRow = e.DataTable.AddNew
         For Each dc As DataCol In e.DataTable.DataCols
         nb(dc.Name) = e.DataRow(dc.Name)
          Next
End If
End Select

但会出现一个问题,就是会出现两行一样的数据,后来,我又在datachanged加入以下代码,

Select Case e.DataCol.name
    Case "年度","编号"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("年度") = False AndAlso dr.IsNull("编号") = False Then
            If e.DataTable.Compute("Count([_Identify])","年度 = \'" & dr("年度") & "\' And 编号 = \'" & dr("编号") & "\'") > 1 Then
                MessageBox.Show("已经存在相同数据的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.DataRow(e.DataCol.Name) = e.OldValue
            End If
        End If
End Select

用来删除重复的数据行

现在的问题是,当我选择一个不同的年度值时,它会因为值重复而删除原先复制增加的数据行,

现在我想,当我选择不同年度值时,复制增加新行时,将新值保存在新复制增加的数据行中



--  作者:xjpxjp1972
--  发布时间:2012/4/6 11:21:00
--  
那位哥哥帮我看看,万分感谢!
--  作者:狐狸爸爸
--  发布时间:2012/4/6 11:38:00
--  

DataColChanged事件代码不要,设置DataColChanging事件代码:

 

Select Case e.DataCol.Name
    Case "年度"
        If e.NewValue<> e.OldValue AndAlso e.NewValue > "" AndAlso e.OldValue > ""  Then
            Dim nb As DataRow = e.DataTable.AddNew
            For Each dc As DataCol In e.DataTable.DataCols
                If dc.name = "年度"  Then
                    nb("年度") = e.NewValue
                Else
                    nb(dc.Name) = e.DataRow(dc.Name)
                End If
            Next
            e.cancel = True
        End If
End Select


--  作者:xjpxjp1972
--  发布时间:2012/4/18 11:45:00
--  

现在问题又来了,当我重复点同年度时,会出击重复数据,现在该怎么办


--  作者:狐狸爸爸
--  发布时间:2012/4/18 11:55:00
--  
4楼代码不会出现这个问题
--  作者:xjpxjp1972
--  发布时间:2012/4/18 15:00:00
--  
还是会出现的