以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  几个简单问题  (http://foxtable.net/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
Dim td As WinForm.TreeNode

Select  Case e.sender.Nodes.Count
       Case 0
          With e.Sender
           .ShowContextStrip(e.X, e.Y, e.Form.Strips("importpreplot"))
          End With
       Case 1


       Case 2
End Select