Foxtable(狐表)用户栏目专家坐堂 → [原创]还是“会计科目”这个窗体


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

主题:[原创]还是“会计科目”这个窗体

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/1 10:15:00 [显示全部帖子]

将DrawCell事件代码改为:

 

If e.Table.Name = "会计科目_Table1" AndAlso e.Row("科目_代码").length = 4 Then '如果正在绘制的是密码列
   e.Style = "ABC"
End If

 

就只在窗口生效,整行蓝色。

 

Forms("科目编辑").Controls("TextBox1").Value = Tables("会计科目_Table1").Current("科目_代码")

[此贴子已经被作者于2011-6-1 10:30:50编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/1 17:39:00 [显示全部帖子]

表属性 - 表事件 -  DrawCell

 

 


图片点击可在新窗口打开查看此主题相关图片如下:002.gif
图片点击可在新窗口打开查看

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/1 17:43:00 [显示全部帖子]

Tables("会计科目_Table2").Filter = "某列 Like '1*'"

 回到顶部