以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]点菜单保存按钮的时候删除表里空行代码太长 有精简的办法嘛？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12865)
--  作者：gaoyong30000
--  发布时间：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
--  发布时间：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
--  发布时间：2011/9/19 21:28:00
--  

 多谢了！
--  作者：sunbrain
--  发布时间：2012/5/8 9:25:00
--  
学习了，解决了困扰我很久的问题。