[讨论]窗口的列表框与插入行有冲突 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]窗口的列表框与插入行有冲突

共有21932人关注过本帖树形打印复制链接主题：[讨论]窗口的列表框与插入行有冲突

mr725

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：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"

mr725

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：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编辑过]

mr725

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/5/11 16:33:00 [显示全部帖子]

楼主说的是个问题！！而且神奇～
listbox绑定到第二列，自定义列表项目 |你|们|好
1、第二列不能手工输入任何东东，换行时自动清空！（除了自定义内容之外）
2、在listbox中单击时，就会将单击的内容输入到第二列，无论你选择同行的任何单元格也是如此；
3、即使你删除掉listbox控件后第1条说得不会改变！（还是那样）