主题：[求助]数据更新的代码

dataColChanged事件

 

If e.DataCol.name = "班级数" Then
    DataTables("表B").DeleteFor("班号 Like '" & e.DataRow("年级") & "-" & "%'")
    For i As Integer = 1 To e.dataRow("班级数")
        Dim str As String = e.DataRow("年级") & "-" & i & "班"
        'Dim fdr As DataRow = DataTables("表B").find("班号 = '" & str & "'")
        'If fdr IsNot Nothing Then
        Dim nr As DataRow = DataTables("表B").AddNew
        nr("班号") = str

 

 

 

 

 

这个代码在我修改【班级数】的时候回把相应的【班号】删掉

 

我希望是修改原记录的时候删除原【班号】填入新【班号】

但是新增加的记录不删除原班号，而是增加一组新【班号】

这个代码要怎么改呢？

 

 

或者当新【班号】这组数组的个数大于原【班号】个数的时候才删掉

没看懂你什么意思。

 

If e.DataCol.name = "班级数" Then
    Dim idx as string = DataTables("表B").compute("count(班号)", "班号 Like '" & e.DataRow("年级") & "-" & "%'")
    For i As Integer = idx To e.DataRow("班级数")
        Dim str As String = e.DataRow("年级") & "-" & i & "班"
        'Dim fdr As DataRow = DataTables("表B").find("班号 = '" & str & "'")
        'If fdr IsNot Nothing Then
        Dim nr As DataRow = DataTables("表B").AddNew
        nr("班号") = str