此主题相关图片如下：qq截图20120425150440.png

操作表

按照例子说明：DataColChanged事件中，插入代码： 

If e.DataCol.Name = "已结帐" Then
    If e.NewValue = True Then
        e.DataRow.Locked = True
    End If
ElseIf e.DataCol.Name = "身份证号码" Then
    If e.DataRow.IsNull("身份证号码") Then
        e.DataRow("出生日期") = Nothing
    Else
        e.DataRow("出生日期") = ReadBirthday(e.NewValue)
    End If
End If

列为：身份证号码（字符255），出生日期（字符255）。

输入身份证号码后回车不会在出生日期列自动出现出生日期值。

请问是说明原因呢？

1、身份证号码的长度应该改为18位，出生日期应该改为日期时间型。

2、出生日期没有出来，说明你的身份证号码输入错误，如果你确认没错，可以做个例子发上来，我们帮你看看怎么回事。

你的代码已经有效，设置代码后，你在某行输入一个正确的身份证号码就知道了。

你遇到的困惑，在这里有答案：

http://www.foxtable.com/help/topics/1469.htm

http://www.foxtable.com/help/topics/1587.htm

我看了一下帮助，如果要对列进行表达式计算，可以在表事件中设置。

比如说：我一个表中有‘门洞尺寸’‘门扇尺寸’，‘门框尺寸’三个列，逻辑关系为：

门洞尺寸的计算公式为：门扇尺寸（输入格式：2000*800*60）分解，赋值三个变量，A = 2000，B = 800 C=60，然后计算，门洞尺寸：A+100，B+50，C，然后再通过截取字符串，恢复成（2100*2050*60）的格式。

表事件中，门扇尺寸列发生变化后，激活以上公式，在门洞尺寸中输入公式计算出的值。

应该在 DataColChanged事件中，插入代码，请问这个思路对么？

可以，参考：

http://www.foxtable.com/help/topics/1277.htm

我现在不计算出生日期，我把代码换成：

If e.DataCol.Name = "已结帐" Then
    If e.NewValue = True Then
        e.DataRow.Locked = True
    End If
ElseIf e.DataCol.Name = "身份证号码" Then
    If e.DataRow.IsNull("身份证号码") Then
        e.DataRow("出生日期") = Nothing
    Else
        e.DataRow("出生日期") = 1982-08-08
    End If
End If

就是如果输入身份证号码之后，就会自动把当前出生日期列的行，设置成为1982-08-08，这个格式错了么？

加上""了，还是不行。。不会赋值到出生日期列中。。晕了。。

我测试可以的，你看看：

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

点击浏览该文件:管理项目2.table

我知道怎么回事了，我下载了你的项目之后，还是不成，估计是我电脑的问题，我把系统重新安装一下试试。。