| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 几个简单问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95248) |
| -- 作者：cglsg5076 -- 发布时间：2017/1/14 10:27:00 -- 几个简单问题 请问老师： 1 ctrl+shift+f11和f12键在运行程序是失效，不能返回系统，请问如何解决。 2 如何不显示或重新显示表头的表A、表B、表C（就是运行程序是不显示那几个表，只有程序界面）。 谢谢！
|
| -- 作者：有点蓝 -- 发布时间：2017/1/14 10:39:00 -- 1、必须用开发者登录， ctrl+shift+f11和f12键才有效，发布的时候必须勾选“生成系统菜单” |
| -- 作者：cglsg5076 -- 发布时间：2017/1/14 11:07:00 -- 谢谢指点。运行程序时不显示那几个表（表A、表B、表C），只有程序界面，怎么做？ |
| -- 作者：有点蓝 -- 发布时间：2017/1/14 11:18:00 -- 看2楼第二点的帮助，请仔细看 |
| -- 作者：cglsg5076 -- 发布时间：2017/1/14 12:35:00 -- 会做了，谢谢。 |
| -- 作者：cglsg5076 -- 发布时间：2017/1/15 9:39:00 -- 请问老师：下面的代码执行没有报错，但数据表不显示Duration结果，怎么纠正。 Select Case e.DataCol.Name Case "Star time","End time" Dim dr As DataRow = e.DataRow If dr.IsNull("Star time") OrElse dr.IsNull("End time") Then dr("Duration") = Nothing Else Dim tp As TimeSpan = dr("End time") - dr("Star time") dr("Duration") = tp.TotalDays End If End Select
|
| -- 作者：有点色 -- 发布时间：2017/1/15 11:18:00 -- 代码没有问题，你重置列或者重新填写时间即可得到结果。
http://www.foxtable.com/webhelp/scr/1469.htm
|
| -- 作者：cglsg5076 -- 发布时间：2017/1/15 16:26:00 -- 知道如何改了，是因为列名没有写对。谢谢指点。 |
| -- 作者：cglsg5076 -- 发布时间：2017/1/15 20:37:00 -- 请教老师 我用下段程序生成数据树可行 Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree("表F", "第一列") 想通过下面代码实现click数据树的某个节点弹出快捷菜单实现其他功能，如何更改下面代码。谢谢！ Dim tr As WinForm.TreeView Dim td As WinForm.TreeNode \'tr = Forms("Import").Controls("TreeView1") Select Case tr.Nodes.Count Case 0 With e.Sender .ShowContextStrip(0, .Height, e.Form.Strips("importpreplot")) End With Case 1 Case 2 End Select |
| -- 作者：有点色 -- 发布时间：2017/1/16 3:34:00 -- MouseDown事件
Dim tr As WinForm.TreeView Select Case e.sender.Nodes.Count
|