- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]两个新手问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21579)
-- 发布时间：2012/7/17 23:19:00
-- [求助]两个新手问题
一、如何实现鼠标选定某行某个列时，整行背景色都发生变化，方便观察。
二、如何实现在录入数据时，当空白行数少于2时，自动增加空白行。
-- 发布时间：2012/7/18 0:01:00
--
1、到表样式里去设置
2、用addnew增加行
-- 发布时间：2012/7/18 0:16:00
--
1、表样式，我去找过，没发现有。
2、addnew我知是增加行，但判断代码不知如何写，请明示，感谢。
-- 发布时间：2012/7/18 0:32:00
--
看图说话
第一步 设背景为黄色
此主题相关图片如下：qq截图20120718002613.png
第二步 选中 整行此主题相关图片如下：qq截图20120718002716.png
效果此主题相关图片如下：qq截图20120718002809.png
-- 发布时间：2012/7/18 0:59:00
--
第二个问题 :
在表的 DataColChanged 事件里写代码
Dim M,N As Integer
m=CurrentTable.Rows.Count \'总行数
n= CurrentTable.Compute("count(第一列)","第一列>\'\'") \'有数据的行数
If m-n<=2 Then
CurrentTable.AddNew
End If
-- 发布时间：2012/7/18 8:15:00
--
既然在 DataColChanged 里面了
CurrentTable 这个改e.DataTable 另外 当前表尽量不要用,因为是获取的焦点不同,随便什么表都可能是当前表.
-- 发布时间：2012/7/18 10:56:00
--
非常感谢。一、我太大意了，设好了背景后见没反应，就以为自己搞错了，不是在样式表中设置，原来还要点整行才生效。
二、可能是新手，试很多想法就是无法判断空行数，想不到利用compute就简单解决了。感激啊。
-- 发布时间：2012/7/18 11:15:00
--
修改后：
Dim M,N As Integer
m=e.DataTable.DataRows.count \'总行数
n= e.DataTable.Compute("count(区域)","区域>\'\'") \'有数据的行数
If m-n<=2 Then
e.DataTable.AddNew
End If
-- 发布时间：2012/7/18 23:00:00
--
