Foxtable(狐表)用户栏目专家坐堂 → [原创]还是列计算问题


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

主题:[原创]还是列计算问题

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


加好友 发短信
等级:一尾狐 帖子:497 积分:4892 威望:0 精华:0 注册:2012/4/20 8:42:00
[原创]还是列计算问题  发帖心情 Post By:2012/4/26 11:03:00 [只看该作者]

DataColChanged事件代码:

Select Case e.DataCol.Name
    Case "dooropen"
        If e.NewValue = True Then
            e.DataRow("doorsize") = e.NewValue
        End If

列名:dooropen,doorsize。属性字符型100。

如果dooropen发生变化,那么把doorsize的值设置为dooropen的值。

出现错误提示:

 

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20120426110112.png
图片点击可在新窗口打开查看
行数据:

2040*1150*140

提示输入字符串格式不正确。


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


加好友 发短信
等级:一尾狐 帖子:497 积分:4892 威望:0 精华:0 注册:2012/4/20 8:42:00
  发帖心情 Post By:2012/4/26 11:05:00 [只看该作者]

看出为什么了,好像是不能输入符号。。


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


加好友 发短信
等级:一尾狐 帖子:497 积分:4892 威望:0 精华:0 注册:2012/4/20 8:42:00
  发帖心情 Post By:2012/4/26 11:15:00 [只看该作者]

请问如何将e.NewValue类型的值转换成字符串类型啊?

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/4/26 11:19:00 [只看该作者]

估计你的doorsize是个逻辑型,不能接收字符型的数据。

如果搞不定,你可以做个简单例子发上来,然后说明问题。

 


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


加好友 发短信
等级:一尾狐 帖子:497 积分:4892 威望:0 精华:0 注册:2012/4/20 8:42:00
  发帖心情 Post By:2012/4/26 11:37:00 [只看该作者]

还是那个错误提示.请看看,谢谢

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:ceshi1.table


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


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2012/4/26 11:43:00 [只看该作者]

以下是引用狐狸爸爸在2012-4-26 11:19:00的发言:

估计你的doorsize是个逻辑型,不能接收字符型的数据。

如果搞不定,你可以做个简单例子发上来,然后说明问题。

 

他的dooropen是字符型,而不能等于逻辑值true,这里判断错误:if e.NewValue = True


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


加好友 发短信
等级:一尾狐 帖子:497 积分:4892 威望:0 精华:0 注册:2012/4/20 8:42:00
  发帖心情 Post By:2012/4/26 11:44:00 [只看该作者]

以下是引用程兴刚在2012-4-26 11:43:00的发言:

他的dooropen是字符型,而不能等于逻辑值true,这里判断错误:if e.NewValue = True

那不用判断可以么?


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/4/26 11:45:00 [只看该作者]

正确的代码:

 

Select Case e.DataCol.Name
    Case "dooropen"
        If e.NewValue > "" Then
            Dim news As String = e.NewValue
            Dim dp() As String
            dp = news.Split("*")
            e.DataRow("doorsize") = dp(0)
        End If
End Select


 回到顶部