Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助，列类型问题


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

主题：求助，列类型问题
帅哥哟，离线，有人找我吗？
www111998
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：87 积分：721 威望：0 精华：0 注册：2018/2/26 13:37:00 		求助，列类型问题  发帖心情 Post By：2018/3/25 17:13:00 [只看该作者]

有一列内容表达应该是小于30，等于30，大于30，应该怎么设置列，
还有就是用Integer的值要与列内容比较，应该是怎么样的思路
 回到顶部
帅哥哟，离线，有人找我吗？
www111998
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：87 积分：721 威望：0 精华：0 注册：2018/2/26 13:37:00 		  发帖心情 Post By：2018/3/25 18:49:00 [只看该作者]





 产品  产品一     <30  15度  
   产品产品一      >=30   19度
  产品    产品二    <30   16度
   产品   产品二    >=30
   20度
补充下问题，如表，想要匹配前三列的值后取第四列的值，该如何实现
 回到顶部
帅哥哟，离线，有人找我吗？
www111998
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：87 积分：721 威望：0 精华：0 注册：2018/2/26 13:37:00 		  发帖心情 Post By：2018/3/25 18:50:00 [只看该作者]

而且与第三列的比对的是Integer

 回到顶部
帅哥哟，离线，有人找我吗？
www111998
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：87 积分：721 威望：0 精华：0 注册：2018/2/26 13:37:00 		  发帖心情 Post By：2018/3/25 19:01:00 [只看该作者]

比如输入“产品”，“产品1”，24。想取得15度的结果
      输入“产品”，“产品1”，35。想取得19度的结果
是要修改表结构还是应该怎么样，想歪了脑袋，不知道怎么样表达，求代码，学习了，在线等
 回到顶部
帅哥哟，离线，有人找我吗？
www111998
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：87 积分：721 威望：0 精华：0 注册：2018/2/26 13:37:00 		  发帖心情 Post By：2018/3/25 19:07:00 [只看该作者]

想要在四个TextBox中实现
比如TextBox1中输入“产品”，TextBox2中输入“产品一”，TextBox3中输入24，TextBox4中自动填入15度
      TextBox1中输入“产品”，TextBox2中输入“产品一”，TextBox3中输入35，TextBox4中自动填入19度
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：2018/3/25 19:39:00 [只看该作者]

代码写入“TextBox4”控件的Enter事件中：

Dim t4 As WinForm.TextBox = e.Form.Controls("TextBox4")
Dim t3 As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
If t1.Value = "产品" Then
    If t2.Value = "产品1" Then
        Select Case t3.Value
            Case Is < 30
                t4.Value = 15 & "度"
            Case Is >= 30
                t4.Value = 19 & "度"
        End Select
    ElseIf t2.Value = "产品2"
        Select Case t3.Value
            Case Is < 30
                t4.Value = 16 & "度"
            Case Is >= 30
                t4.Value = 20 & "度"
        End Select
    End If
End If
[此贴子已经被作者于2018/3/25 19:39:49编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
www111998
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：87 积分：721 威望：0 精华：0 注册：2018/2/26 13:37:00 		  发帖心情 Post By：2018/3/25 20:18:00 [只看该作者]

但是第三列和第四列的内容是变量啊，不能直接写在代码里面的，以后有修改的需要

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/25 20:22:00 [只看该作者]

做一个这样的表，如

 

产品            值            度数

产品1          0             100

产品1          30             1

产品1          100            2

产品1          200            3

 

然后查询即可得到值如

 

Dim i As integer = 25

Dim fdr As DataRow = DataTables("产品").find("值 <= " & i, "值 desc")

msgbox(fdr("度数"))
 回到顶部
帅哥哟，离线，有人找我吗？
www111998
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：87 积分：721 威望：0 精华：0 注册：2018/2/26 13:37:00 		  发帖心情 Post By：2018/3/25 21:23:00 [只看该作者]

需要表达的是产品1的25，26，小于30的和产品2的25，26，小于30的最后值是不一样的，在产品1和产品2前面还有大类
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/25 23:19:00 [只看该作者]

就是8楼的意思，表格这样设计和查询。不会做上传具体实例。

 

产品            值            度数

产品1          0             100

产品1          30             1

产品1          100            2

产品1          200            3

产品2          0              10

产品2          30             20

产品2          100            30

产品2          200            40
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 4 次数据查询