以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=66366)
--  作者：zdq_1230
--  发布时间：2015/4/3 22:27:00
--  [求助]
没有为 类型“Char” 和 类型“Integer” 定义运算符“=” 是什么意思？
--  作者：Bin
--  发布时间：2015/4/7 11:07:00
--  
你把Char类型和Intger类型做对比了

代码错误

具体请把代码发出来
--  作者：zdq_1230
--  发布时间：2015/4/7 20:09:00
--  
把if语句改写为以下了，但还是有错误，请专家看看错在哪里？
Dim hong As String = GetDigit("开奖号_红一",0)
Select Case hong
    Case 1,6
        e.DataRow("号码五行_红一") = "水"
    Case 2,7
        e.DataRow("号码五行_红一") = "金"
    Case 3,8
        e.DataRow("号码五行_红一") = "木"
    Case 4,9
        e.DataRow("号码五行_红一") = "火"
    Case 0,5
        e.DataRow("号码五行_红一") = "土"
End Select
--  作者：狐狸爸爸
--  发布时间：2015/4/7 22:09:00
--  
hong是string,字符型要用双引号：

Dim hong As String = GetDigit("开奖号_红一",0)
Select Case hong
    Case “1”,“6”
        e.DataRow("号码五行_红一") = "水"
    Case “2”,“7”
        e.DataRow("号码五行_红一") = "金"
    Case “3”,“8”
        e.DataRow("号码五行_红一") = "木"
    Case “4”,“9”
        e.DataRow("号码五行_红一") = "火"
    Case “0”,“5”
        e.DataRow("号码五行_红一") = "土"
End Select