Foxtable(狐表)用户栏目专家坐堂 → 求助,代码是否有问题?


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

主题:求助,代码是否有问题?

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


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
求助,代码是否有问题?  发帖心情 Post By:2009/4/22 17:07:00 [显示全部帖子]

with e.form
   if .controls("combobox1").value = "入库日期" or .controls("combobox1").value = "提货日期" then
      if .controls("combobox1").value Is Nothing or .controls("combobox18").value Is Nothing  or .controls("datetimepicker1").value Is Nothing then
     s10 = " "
  else
   if .controls("combobox18").value = "包含" then
      s12 = "LIKE"
      s13 = "%"+format(.controls("datetimepicker1").value,"yyyy-MM-dd")+"%"
   elseif .controls("combobox18").value = "不包含" then
      s12 = "NOT LIKE"
      s13 = "%"+format(.controls("datetimepicker1").value,"yyyy-MM-dd")+"%"
   elseif .controls("combobox18").value = "不等于" then
      s12 = "<>"
      s13 = format(.controls("datetimepicker1").value,"yyyy-MM-dd")
   else
      s12 =.controls("combobox18").value
      s13 = format(.controls("datetimepicker1").value,"yyyy-MM-dd")
   end if
   s11 =.controls("combobox1").value
   s10 = s11+" "+s12+" "+"'"+s13+"'"
   s14 =.controls("combobox35").value
      if Not s14 Is Nothing then
         s10 = s11+" "+s12+" "+"'"+s13+"'"+" "+s14
      end if
   end if
else
  if .controls("combobox1").value Is Nothing or .controls("combobox18").value Is Nothing or .controls("textbox1").value Is Nothing then
     s10 = " "
  else
   if .controls("combobox18").value = "包含" then
      s12 = "LIKE"
      s13 = "%"+.controls("textbox1").value+"%"
   elseif .controls("combobox18").value = "不包含" then
      s12 = "NOT LIKE"
      s13 = "%"+.controls("textbox1").value+"%"
   elseif .controls("combobox18").value = "不等于" then
      s12 = "<>"
      s13 =.controls("textbox1").value
   else
      s12 =.controls("combobox18").value
    
      s13 =.controls("textbox1").value
   end if
   s11 =.controls("combobox1").value
   s10 = s11+" "+s12+" "+"'"+s13+"'"
   s14 =.controls("combobox35").value
      if Not s14 Is Nothing then
         s10 = s11+" "+s12+" "+"'"+s13+"'"+" "+s14
      end if
   end if
end if
end with

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


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2009/4/22 17:09:00 [显示全部帖子]

主要是当.controls("combobox1").value = "入库日期" or .controls("combobox1").value = "提货日期" 判断不执行。不知是怎么回事?


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


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2009/4/22 17:52:00 [显示全部帖子]

我有这样做了,.controls("combobox1").value是正确的。如controls("combobox1").value=“入库日期”,datetimepicker1的值为2009-01-01,但取值结果为textbox1的值呀。本人查了很久,没有发现问题在哪?请各位百忙之中抽一点时间帮看下,问题在哪?

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


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2009/4/22 17:58:00 [显示全部帖子]

下面两个执行结果如图。
图片点击可在新窗口打开查看此主题相关图片如下:1.gif
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.gif
图片点击可在新窗口打开查看

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


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2009/4/22 18:12:00 [显示全部帖子]

哦,知道了。我自己再检查吧。谢谢老大的指点!


 回到顶部