Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表头窜行


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

主题：表头窜行
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2023/7/13 17:54:00 [只看该作者]

谢谢老师！我点击”预算新增或预算修改”两个窗体中的“打印”按钮后，两窗体中的关联表还是不见了，还请老师指点一下，谢谢！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106099 积分：539606 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/13 20:11:00 [只看该作者]

参考帮助的用法自行改造：http://www.foxtable.com/webhelp/topics/2222.htm

可以看20楼实例里预算资金信息窗体和预算资金主表、预算资金明细表的事件代码
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2023/7/14 11:42:00 [只看该作者]

请问对选定行设置背景颜色和对网格线的颜色用代码怎么写？请指教！谢谢！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106099 积分：539606 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/14 11:47:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2023/7/14 23:22:00 [只看该作者]

我对窗口中的表控件的网格线和选定行都设置了背景色，窗口中的打印按钮的代码为：
Tables("预算申请单主表.预算资金申请单明细表").SysStyles("EmptyArea").BackColor = Color.White
Tables("预算申请单主表.预算资金申请单明细表").SysStyles("Normal").ForeColor = Color.White
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.Print
点击打印后，打印出的单据为啥还能看出网格线和选定行的背景色？
我想实现：在窗口中录入时网格线和选定行背景色能正常显示，但在打印时没有网格线、选定的行也无背景色，如何实现？请指教，谢谢！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106099 积分：539606 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/15 9:15:00 [只看该作者]

代码都没有设置网格线和选定行的背景色吧，请认真看看帮助。看帮助特别要看看文字说明和注释，而不是直接抄几句代码就是理解了

Tables("出库.出库明细").SysStyles("EmptyArea").BackColor = Color.White
Tables("出库.出库明细").DataTable.SysStyles("Normal").BorderColor = Color.White
Tables("出库.出库明细").SysStyles("CurrentRow").BackColor = Color.White
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.Preview
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2023/7/18 22:10:00 [只看该作者]

请问用代码如何设置窗体中的表格控件中记录的字体大小？谢谢！

 回到顶部
帅哥，在线噢！
有点蓝
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106099 积分：539606 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/18 22:37:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2023/7/25 13:13:00 [只看该作者]

我想用下面的代码实现：根据组合框中选定什么值，就在相应的标签处显示什么值，其他未选择的值全部隐藏；但是预览后，所有的值全部显示了，不知哪里设置错了，请指教，谢谢！
Dim lb As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim w As WinForm.Label = e.Form.Controls("网上申请")
Dim z As WinForm.Label = e.Form.Controls("转账支piao")
Dim x As WinForm.Label = e.Form.Controls("现金支piao")
Dim q As WinForm.Label = e.Form.Controls("其他方式")
Select Case lb.Text
    Case "网上申请"
        w.Visible = True
        z.Visible = False
        x.Visible = False
        q.Visible = False
    Case "转账支piao"
        w.Visible = False
        z.Visible = True
        x.Visible = False
        q.Visible = False
    Case "现金支piao"
        w.Visible = False
        z.Visible = False
        x.Visible = True
        q.Visible = False
    Case "其他方式"
        w.Visible = False
        z.Visible = False
        x.Visible = False
        q.Visible = True
        
End Select
 回到顶部
帅哥，在线噢！
有点蓝
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106099 积分：539606 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/25 13:33:00 [只看该作者]

到窗口设计里，默认把这些控件设置为不可见

 回到顶部
总数 30 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询