Foxtable(狐表)用户栏目专家坐堂 → [求助]导入列


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

主题:[求助]导入列

帅哥哟,离线,有人找我吗?
扶风
  81楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2016/8/15 11:08:00 [只看该作者]

老师,是项目属性里面的项目事件吗?删了还是没用?XP的依旧打不开
之前其他项目也没遇到过这种问题。
现在是点开程序,他就在那加载,然后就跳没了,什么都没提示。

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/8/15 11:12:00 [只看该作者]

发布个空项目看能不能打开。如果不行那就重装一下系统吧

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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2016/8/15 12:36:00 [只看该作者]

空白的可以

老师解决了
图片点击可在新窗口打开查看此主题相关图片如下:111.png
图片点击可在新窗口打开查看
我在发布项目的这里换了个图标就好了

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

图片点击可在新窗口打开查看此主题相关图片如下:333.png
图片点击可在新窗口打开查看
尺寸小的是现在可用的,大的是导致打不开的,老师,请教下是不是图标大小也会影响?大的那个图标WIN7的可以打开,但XP的却打不开,小的XP就能打开


[此贴子已经被作者于2016/8/15 14:15:00编辑过]

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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2016/8/16 13:40:00 [只看该作者]

老师,请问我某一列里面内容过长时,WIN7会自动折行,XP却不会,他会显示...,请问如何解决?

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


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


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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2016/8/16 16:32:00 [只看该作者]

Dim cls() As String = {"工位","员工工号","姓名","总产量","上班天数","昨日产量","日均产量","日均排名"} 
老师,这是listview里面的标题行,如何单独设置这一行的高度?

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


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

 listview行高不能设置,如果要设置,建议直接用表控件。

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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2016/8/18 11:24:00 [只看该作者]

For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As  Row = Tables("产量报表").AddNew()
        For  m As  Integer = 0 To nms.Length - 1
            If Tables("产量报表").Cols(nms(m)).IsNumeric Then
                r(nms(m)) = val(Sheet(n,m).Value)
            Else
                r(nms(m)) = Sheet(n,m).Value
            End If
        Next
    Next
    Tables("产量报表").ResumeRedraw()
End If
DataTables("产量报表").Save

老师,能否筛选我想要的内容后替换整个表?
s elect * from ("产量报表") where "具体项目" like %总产量%
具体项目是列名,我想要包含总产量的所有相关行内容

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


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

For n As Integer = 1 To Sheet.Rows.Count -1
    If sheet(n, 某列).Text Like "*总产量*" Then
        Dim r As  Row = Tables("产量报表").AddNew()
        For  m As  Integer = 0 To nms.Length - 1
            If Tables("产量报表").Cols(nms(m)).IsNumeric Then
                r(nms(m)) = val(Sheet(n,m).Value)
            Else
                r(nms(m)) = Sheet(n,m).Value
            End If
        Next
    End If
Next


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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2016/8/18 19:25:00 [只看该作者]

老师,做好的程序能像QQ一样缩小在右下侧通知栏,并且打开后显示窗口,但左侧任务栏上不要显示小窗口

 回到顶部