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

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

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

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

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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:ceshi1.table

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

那不用判断可以么?

正确的代码：

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