以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助,列类型问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116486)

--  作者:www111998
--  发布时间:2018/3/25 17:13:00
--  求助,列类型问题
有一列内容表达应该是小于30,等于30,大于30,应该怎么设置列,
还有就是用Integer的值要与列内容比较,应该是怎么样的思路

--  作者:www111998
--  发布时间:2018/3/25 18:49:00
--  




 产品  产品一     <30  15度  
   产品产品一      >=30   19度
  产品    产品二    <30   16度
   产品   产品二    >=30
   20度
补充下问题,如表,想要匹配前三列的值后取第四列的值,该如何实现

--  作者:www111998
--  发布时间:2018/3/25 18:50:00
--  
而且与第三列的比对的是Integer
--  作者:www111998
--  发布时间:2018/3/25 19:01:00
--  
比如输入“产品”,“产品1”,24。想取得15度的结果
      输入“产品”,“产品1”,35。想取得19度的结果
是要修改表结构还是应该怎么样,想歪了脑袋,不知道怎么样表达,求代码,学习了,在线等

--  作者:www111998
--  发布时间:2018/3/25 19:07:00
--  
想要在四个TextBox中实现
比如TextBox1中输入“产品”,TextBox2中输入“产品一”,TextBox3中输入24,TextBox4中自动填入15度
      TextBox1中输入“产品”,TextBox2中输入“产品一”,TextBox3中输入35,TextBox4中自动填入19度


--  作者:wyz20130512
--  发布时间: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
--  发布时间:2018/3/25 20:18:00
--  
但是第三列和第四列的内容是变量啊,不能直接写在代码里面的,以后有修改的需要
--  作者:有点甜
--  发布时间: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
--  发布时间:2018/3/25 21:23:00
--  
需要表达的是产品1的25,26,小于30的和产品2的25,26,小于30的最后值是不一样的,在产品1和产品2前面还有大类

--  作者:有点甜
--  发布时间: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