共13 条记录, 每页显示 10 条, 页签: [1] [2]

标题：[讨论]窗口的列表框与插入行有冲突

1楼

tianhe95 发表于：2009/5/9 23:59:00

在表中插入一行后，第二列的最后一行的数值消失了，如果窗口中没有使用列表框则一切正常

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

[此贴子已经被作者于2009-5-10 8:44:23编辑过]

2楼

八婺发表于：2009/5/10 0:01:00

看不到文件，看不到代码怎么知道是怎么冲突。

3楼

tianhe95 发表于：2009/5/10 0:13:00

文件不能看到吗？
问题应该在排序，不排序就正常

4楼

mr725 发表于：2009/5/10 0:44:00

Dim i As Integer = CurrentTable.Position
If i < 0 Then
    CurrentTable.AddNew()
ElseIf i = 0 Then
    Dim v As Double = CurrentTable.Current("ID") - 1
    CurrentTable.AddNew()("ID") = v
Else
    Dim v1 As Double = CurrentTable.Current("ID")
    Dim v2 As Double = CurrentTable.Rows(CurrentTable.Position - 1)("ID")
    CurrentTable.AddNew()("ID") = (v1+v2) / 2
End If
CurrentTable.Sort = "ID"

5楼

tianhe95 发表于：2009/5/10 20:24:00

还有就是不能把所有行的行都删了，这都跟窗口的列表框有关。
在窗口中加入列表框问题太多了

[此贴子已经被作者于2009-5-10 20:33:04编辑过]

6楼

mr725 发表于：2009/5/10 20:29:00

For i As integer = 0 To Tables ("表").count-1
DataTables ("表").DataRows.Delete(0)
Next

所有行都会删除的！～

[此贴子已经被作者于2009-5-11 16:18:04编辑过]

7楼

tianhe95 发表于：2009/5/10 20:37:00

我是说全部删除会报出错，至少要留一行

8楼

狐狸爸爸 发表于：2009/5/11 7:35:00

这和列表框没有关系吧？
我删除列表框，第二列也没有内容啊。
你的代码没有给新增航设置第二列的值啊。

9楼

tianhe95 发表于：2009/5/11 13:53:00

删除所有行后：

此主题相关图片如下：11.gif

[此贴子已经被作者于2009-5-11 21:19:06编辑过]

10楼

tianhe95 发表于：2009/5/11 14:06:00

只要新增行后，再按“升序”或“降序”对ID排序，光标如果在新增的一行，就会把原来的“ID”最后一行的第二列数值删除，（第一次新增行后正常，第二次新增行后就会出现这个问题）

共13 条记录, 每页显示 10 条, 页签: [1] [2]