Foxtable(狐表)用户栏目专家坐堂 → [求助]两个新手问题


  共有8063人关注过本帖树形打印复制链接

主题:[求助]两个新手问题

帅哥哟,离线,有人找我吗?
weller2
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:50 积分:514 威望:0 精华:0 注册:2012/3/4 11:23:00
[求助]两个新手问题  发帖心情 Post By:2012/7/17 23:19:00 [只看该作者]

一、如何实现鼠标选定某行某个列时,整行背景色都发生变化,方便观察。

二、如何实现在录入数据时,当空白行数少于2时,自动增加空白行。


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2012/7/18 0:01:00 [只看该作者]

1、到表样式里去设置

2、用addnew增加行


 回到顶部
帅哥哟,离线,有人找我吗?
weller2
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:50 积分:514 威望:0 精华:0 注册:2012/3/4 11:23:00
  发帖心情 Post By:2012/7/18 0:16:00 [只看该作者]

1、表样式,我去找过,没发现有。

2、addnew我知是增加行,但判断代码不知如何写,请明示,感谢。


 回到顶部
帅哥哟,离线,有人找我吗?
sloyy
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2180 积分:13816 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2012/7/18 0:32:00 [只看该作者]

看图说话图片点击可在新窗口打开查看

 第一步 设背景为黄色


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20120718002613.png
图片点击可在新窗口打开查看

第二步 选中 整行

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20120718002716.png
图片点击可在新窗口打开查看

效果

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20120718002809.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
sloyy
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2180 积分:13816 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/7/18 8:15:00 [只看该作者]

既然在   DataColChanged  里面了


CurrentTable  这个改e.DataTable   另外  当前表尽量不要用,因为是获取的焦点不同,随便什么表都可能是当前表.

 回到顶部
帅哥哟,离线,有人找我吗?
weller2
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:50 积分:514 威望:0 精华:0 注册:2012/3/4 11:23:00
  发帖心情 Post By:2012/7/18 10:56:00 [只看该作者]

非常感谢。一、我太大意了,设好了背景后见没反应,就以为自己搞错了,不是在样式表中设置,原来还要点整行才生效。

              二、可能是新手,试很多想法就是无法判断空行数,想不到利用compute就简单解决了。感激啊。


 回到顶部
帅哥哟,离线,有人找我吗?
weller2
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:50 积分:514 威望:0 精华:0 注册:2012/3/4 11:23:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
sloyy
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2180 积分:13816 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2012/7/18 23:00:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部