以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]窗口的列表框与插入行有冲突  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=2734)
--  作者：tianhe95
--  发布时间：2009/5/9 23:59:00
--  [讨论]窗口的列表框与插入行有冲突
在表中插入一行后，第二列的最后一行的数值消失了，如果窗口中没有使用列表框则一切正常
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

图片点击可在新窗口打开查看
[此贴子已经被作者于2009-5-10 8:44:23编辑过]
--  作者：八婺
--  发布时间：2009/5/10 0:01:00
--  
看不到文件，看不到代码怎么知道是怎么冲突。
--  作者：tianhe95
--  发布时间：2009/5/10 0:13:00
--  
文件不能看到吗？
问题应该在排序，不排序就正常
--  作者：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"
--  作者：tianhe95
--  发布时间：2009/5/10 20:24:00
--  

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

[此贴子已经被作者于2009-5-10 20:33:04编辑过]
--  作者：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编辑过]
--  作者：tianhe95
--  发布时间：2009/5/10 20:37:00
--  
我是说全部删除会报出错，至少要留一行
--  作者：狐狸爸爸
--  发布时间：2009/5/11 7:35:00
--  
这和列表框没有关系吧？
我删除列表框，第二列也没有内容啊。
你的代码没有给新增航设置第二列的值啊。
--  作者：tianhe95
--  发布时间：2009/5/11 13:53:00
--  
删除所有行后：

图片点击可在新窗口打开查看此主题相关图片如下：11.gif
图片点击可在新窗口打开查看
[此贴子已经被作者于2009-5-11 21:19:06编辑过]
--  作者：tianhe95
--  发布时间：2009/5/11 14:06:00
--  

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