Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

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


加好友 发短信
等级:小狐 帖子:356 积分:3230 威望:0 精华:0 注册:2013/2/11 23:21:00
[求助]  发帖心情 Post By:2015/4/3 22:27:00 [只看该作者]

没有为 类型“Char” 和 类型“Integer” 定义运算符“=” 是什么意思?

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/7 11:07:00 [只看该作者]

你把Char类型和Intger类型做对比了

代码错误

具体请把代码发出来

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


加好友 发短信
等级:小狐 帖子:356 积分:3230 威望:0 精华:0 注册:2013/2/11 23:21:00
  发帖心情 Post By: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

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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

 回到顶部