主题：想利用这个窗口界面登录后工作

还是不行 ，您修改的不对啊，判断不出空表来，还是提示这个地方出错

这个只能判断有一行空行的情况下，当一个表一行数据没有的时候总是报错，得想个判断空表的方法。

If CurrentTable IsNot Nothing Then
    If  CurrentTable.Current IsNot Nothing Then
        If CurrentTable.Current.IsNull("摘要") = True Then '如果是一个空表
            CurrentTable.AddNew()
        End If
        For Each syh As Row In CurrentTable.Rows
            If syh.IsNull("摘要") = False Then
                syh.Locked = True
            End If
        Next
        With CurrentTable
            .Position = .Rows.Count - 1
            If .Current.IsNull("摘要") = False Then
                .AddNew()
            End If
        End With
    End If
    CurrentTable.AddNew()
End If

还是有点甜厉害啊，谢老师！！我后来用了个全行判断实现的，当前全部行小于1时增加了一行

有点甜老师好，我又遇到个问题，我想实现某个单元格的功能跟excel一样在里面可以计算，比如我想在这个单元格里先写一个“=10+20+30+40”后，编辑结束后把结果显示在这个单元格里，可是总是出不来。能教教不老师，谢谢！

DatacolChanging事件，代码

 

If e.DataCol.Name = "第一列" AndAlso e.NewValue <> Nothing AndAlso e.NewValue.startswith("=") Then
    e.NewValue = Eval(e.NewValue.Substring(1))
End If

老师，可能我没表达清，这个只能计算出来，但不能保留计算过程中涉及的数据，有什么 方法能点这个单元格后还能看到原来计算的是哪几个数字吗？