Foxtable(狐表)用户栏目专家坐堂 → [求助]点菜单保存按钮的时候删除表里空行代码太长 有精简的办法嘛?


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

主题:[求助]点菜单保存按钮的时候删除表里空行代码太长 有精简的办法嘛?

帅哥哟,离线,有人找我吗?
gaoyong30000
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1165 积分:9032 威望:0 精华:1 注册:2011/5/25 16:33:00
[求助]点菜单保存按钮的时候删除表里空行代码太长 有精简的办法嘛?  发帖心情 Post By:2011/9/18 21:58:00 [只看该作者]

也就是 除了编号列有值外 其余为空 即删除

 

目前代码如下

CurrentTable.DataTable.DeleteFor("[客户名称] Is Null and [联系地址] Is Null and [联系号码] Is Null And [欲购车型] Is Null and [意向级别] Is Null and [建档日期] Is Null and [最后联系日期] Is Null and [下次回访日期] Is Null and [最后一次回访情况] Is Null and [销售顾问] Is Null and [备注] Is Null and [客户来源] Is Null and [业务员申请] Is Null")


 回到顶部
帅哥哟,离线,有人找我吗?
don
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1812 积分:12993 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2011/9/18 22:37:00 [只看该作者]

Dim s as string
Dim dt As  DataTable = CurrentTable.DataTable
for each dc as Datacol in dt.Datacols
   if dc.Name<> "编号"  then
        s+ = " and [" & dc.Name & "] Is null"
   End if
Next
dt.DeleteFor(s.substring(5))


[此贴子已经被作者于2011-9-19 8:42:30编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
gaoyong30000
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1165 积分:9032 威望:0 精华:1 注册:2011/5/25 16:33:00
  发帖心情 Post By:2011/9/19 21:28:00 [只看该作者]

 多谢了!


 回到顶部
帅哥哟,离线,有人找我吗?
sunbrain
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:383 积分:2439 威望:0 精华:0 注册:2011/12/3 22:19:00
  发帖心情 Post By:2012/5/8 9:25:00 [只看该作者]

学习了,解决了困扰我很久的问题。

 回到顶部