主题：[讨论]指定列清除某一行数据内容后自动将各行数据上移且不影响其他列的数据位置

各位，我在窗口设计中设置了一个删除按钮清除指定列的指定数据，

现在想实现清除某一行数据后能自动将下面各行数据上移，而且不影响其他列的数据位置。

以下是我自己编的代码，对代码还不甚熟悉精通，不知道还有什么更简单的方法么？

而且这段代码限制了指定列的类型，设置为字符型会出错。

 7-31，代码自己研究出来了，还是放在一楼，大家看看能否有更简便的方法？

已经自己研究出来了，是因为在做判断的时候系统会将要判定的内容自动转换为DOUBLE型，而字符型转换不了。

代码自己修改完善了下，顺便传上项目给大家看看。

With Tables("产品核价")
    Dim cc As Integer
    cc=.find(e.form.controls("请输入产品尺寸").text, 0, "产品尺寸", False, True, True)
    If cc>-1 Then
        .Position =cc
        .Current("产品尺寸")=Nothing
        e.Form.Controls("请输入产品尺寸").value=Nothing
    Else
        e.Form.Controls("请输入产品尺寸").value=Nothing
    End If
    Dim n As Integer =.Rows.count
    Dim i As Integer
    Dim ccc As Integer
    Dim xyh As String
    For i=0 To n-1 Step 1
        ccc=.find("",i,"产品尺寸",False,True,True)
        If ccc>-1 Then
            If ccc=n-1 Then
                Exit For
            Else
                .Position=ccc+1
                If .Current("产品尺寸")Is Nothing Then
                    Exit For
                Else  xyh =.current("产品尺寸")
                    .Current("产品尺寸")=Nothing
                    .Position=ccc
                    .Current("产品尺寸")=xyh
                End If
            End If
        End If
    Next
    e.Form.Controls("套数").text=ccc
    .Position=0
    .Current("产品套数")=e.form.Controls("套数").text
End With

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

点击浏览该文件:管理项目1.table

这个代码好像没有判定空白行的效果？ 我是希望能够当指定列的中间某一行数据被删除后留下的空白能够由下面的数据上移补上。

就是说删除当前行内的数据，而不删除当前行，总行数不变

这是我自己后来自己研究出来了。

所以现在是想看看这段研究出来的代码能不能精简下，感觉自己弄得挺复杂的。

我这个项目是设计给设计人员填写产品具体情况和成本价用的，需要经过多次修改，所以需要比较干净的效果。

这样方便其他人员查阅产品信息。

还需要这一列的数据不留空哦。