- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 想利用这个窗口界面登录后工作 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55307)
-- 发布时间：2014/8/14 10:15:00
-- 想利用这个窗口界面登录后工作
_YIH4HBF`Y4SCCL9)W]`8.jpg)
老师，我想利用附件里的窗口登录，点击某一个项目，然后打开项目后如何复制一套表出来或把标识列为当前项目组织机构代码证号的数据行加载，其他标识不加载呢。还有一个问题，我判断空表里提示总出错，必须先有一行空行才能正常判断，代码如下：CurrentTable.Current.IsNull("摘要") = True Then \'如果是一个空表
CurrentTable.AddNew()
End If
For Each syh As Row In CurrentTable
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
CurrentTable.AddNew()
此主题相关图片如下：qq图片20140814100942.jpg
此主题相关图片如下：qq图片20140814100942.jpg-- 发布时间：2014/8/14 10:21:00
--
if CurrentTable.Current isnot nothing then
CurrentTable.Current.IsNull("摘要") = True Then \'如果是一个空表
CurrentTable.AddNew()
End If
For Each syh As Row In CurrentTable
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()
-- 发布时间：2014/8/14 10:47:00
--
还是不行 ，您修改的不对啊，判断不出空表来，还是提示这个地方出错
-- 发布时间：2014/8/14 10:51:00
--
if currenttable isnot nothing then
if CurrentTable.Current isnot nothing then
CurrentTable.Current.IsNull("摘要") = True Then \'如果是一个空表
CurrentTable.AddNew()
End If
For Each syh As Row In CurrentTable
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
-- 发布时间：2014/8/14 10:55:00
--
这个只能判断有一行空行的情况下，当一个表一行数据没有的时候总是报错，得想个判断空表的方法。
-- 发布时间：2014/8/14 11:22:00
--
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
-- 发布时间：2014/8/15 11:03:00
--
还是有点甜厉害啊，谢老师！！我后来用了个全行判断实现的，当前全部行小于1时增加了一行
-- 发布时间：2014/8/15 11:10:00
--
有点甜老师好，我又遇到个问题，我想实现某个单元格的功能跟excel一样在里面可以计算，比如我想在这个单元格里先写一个“=10+20+30+40”后，编辑结束后把结果显示在这个单元格里，可是总是出不来。能教教不老师，谢谢！
-- 发布时间：2014/8/15 11:17:00
--
DatacolChanging事件，代码
If e.DataCol.Name = "第一列" AndAlso e.NewValue <> Nothing AndAlso e.NewValue.startswith("=") Then
e.NewValue = Eval(e.NewValue.Substring(1))
End If
-- 发布时间：2014/8/15 12:40:00
--
老师，可能我没表达清，这个只能计算出来，但不能保留计算过程中涉及的数据，有什么 方法能点这个单元格后还能看到原来计算的是哪几个数字吗？