Foxtable(狐表)用户栏目专家坐堂 → 自动增加行


  共有1708人关注过本帖树形打印复制链接

主题:自动增加行

美女呀,离线,留言给我吧!
联友
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2565 威望:0 精华:0 注册:2013/5/23 9:49:00
自动增加行  发帖心情 Post By:2019/5/18 11:23:00 [只看该作者]

表A班级和数量输入内容后,如果没有空行,自动增加一行,如果有二行删除一行,请老师指教,谢谢!

dr = DataTables("表A").Find("班级 Is Not Null And 数量 > 0")
If dr IsNot Nothing Then
    DataTables("表A").AddNew
Else
    DataTables("表A").DataRows.Delete
End If


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/5/18 13:19:00 [只看该作者]

有二行删除一行 -- 是指有2个空行?还是指有2个有值的行?

 回到顶部
美女呀,离线,留言给我吧!
联友
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2565 威望:0 精华:0 注册:2013/5/23 9:49:00
  发帖心情 Post By:2019/5/18 13:25:00 [只看该作者]

在 DataColChanged

班级、数量都输入值,增加一行,如果班级、数量都删除值,空白行有两行及以上删除,只保留一行空白行。

这样输入班级或者数量都会增加一行,错在哪里?

dr = DataTables("表A").Find("班级 Is Not Null And 数量 > 1")
If dr IsNot Nothing
    DataTables("表A").AddNew
Else
    If 空白行 > 1 Then
        dr.Delete
    End If
End If

[此贴子已经被作者于2019/5/18 13:49:00编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/5/18 13:42:00 [只看该作者]

Dim drs As List(Of DataRow) = DataTables("表A").Select("班级 Is Null And (数量 = 0 or 数量 is null)")
If drs.Count = 0 Then
    DataTables("表A").AddNew
ElseIf drs.Count > 1
    For i As Integer = drs.Count-1 To 1 Step -1
        drs(i).delete
    Next
End If
[此贴子已经被作者于2019/5/18 13:42:30编辑过]

 回到顶部
美女呀,离线,留言给我吧!
联友
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2565 威望:0 精华:0 注册:2013/5/23 9:49:00
  发帖心情 Post By:2019/5/18 13:51:00 [只看该作者]

谢谢

 回到顶部