各位,我在窗口设计中设置了一个删除按钮清除指定列的指定数据,
现在想实现清除某一行数据后能自动将下面各行数据上移,而且不影响其他列的数据位置。
以下是我自己编的代码,对代码还不甚熟悉精通,不知道还有什么更简单的方法么?
而且这段代码限制了指定列的类型,设置为字符型会出错。
7-31,代码自己研究出来了,还是放在一楼,大家看看能否有更简便的方法?
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 ( "", 0 ,"产品尺寸" , 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
[此贴子已经被作者于2012-7-31 13:32:01编辑过]