Foxtable(狐表)用户栏目专家坐堂 → [求助]日历控件问题


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

主题:[求助]日历控件问题

帅哥哟,离线,有人找我吗?
大红袍
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/28 16:12:00 [只看该作者]

直接弄一个新的表,弄好后直接用。select * f rom {表A}


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


加好友 发短信
等级:五尾狐 帖子:1014 积分:7535 威望:0 精华:0 注册:2010/4/12 12:23:00
  发帖心情 Post By:2015/9/28 17:05:00 [只看该作者]

如何关掉表的滚动条

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/28 17:11:00 [只看该作者]

Tables("表A").grid.ScrollBars = Windows.Forms.ScrollBars.None               '不显示滚动条

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


加好友 发短信
等级:五尾狐 帖子:1014 积分:7535 威望:0 精华:0 注册:2010/4/12 12:23:00
  发帖心情 Post By:2015/9/28 17:19:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:360反馈意见截图17350811618488.png
图片点击可在新窗口打开查看

 

我用控件的宽度/2,两列怎么不一样宽呢?


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/28 17:20:00 [只看该作者]

贴出代码。


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


加好友 发短信
等级:五尾狐 帖子:1014 积分:7535 威望:0 精华:0 注册:2010/4/12 12:23:00
  发帖心情 Post By:2015/9/28 17:21:00 [只看该作者]

Dim tb As Table = Tables("统计表")
tb.SetHeaderRowHeight(0)  '隐藏列标题
tb.RowHeaderVisible = False   '隐藏行号列
Dim w As Integer = e.Form.Controls("Table1").Width
Dim h As Integer = e.Form.Controls("Table1").Height
tb.DefaultRowHeight = h /6       '非时间单元格的高度
tb.DefaultColWidth = w/2   '设置默认列宽
tb.grid.ScrollBars = Windows.Forms.ScrollBars.None

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/28 17:23:00 [只看该作者]

代码没问题。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/28 17:24:00 [只看该作者]

但是如果你手动调整过某列的宽度,就不受DefaultColWidth影响。

 

Dim tb As Table = Tables("表A")
tb.SetHeaderRowHeight(20)  '隐藏列标题
tb.RowHeaderVisible = False   '隐藏行号列
Dim w As Integer = 500
Dim h As Integer = 100
tb.DefaultRowHeight = h /6       '非时间单元格的高度
For Each c As Col In tb.cols
    c.Width = w/2   '设置默认列宽
Next
tb.grid.ScrollBars = Windows.Forms.ScrollBars.None


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


加好友 发短信
等级:五尾狐 帖子:1014 积分:7535 威望:0 精华:0 注册:2010/4/12 12:23:00
  发帖心情 Post By:2015/9/28 17:33:00 [只看该作者]

对了

 


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


加好友 发短信
等级:五尾狐 帖子:1014 积分:7535 威望:0 精华:0 注册:2010/4/12 12:23:00
  发帖心情 Post By:2015/9/28 18:03:00 [只看该作者]

这个月份如何和统计表中的月份挂上钩呢?

 回到顶部
总数 23 上一页 1 2 3 下一页