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


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

主题：[求助]导入列
帅哥哟，离线，有人找我吗？
大红袍
 小大  91楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用扶风在2016/8/18 19:25:00的发言：
老师，做好的程序能像QQ一样缩小在右下侧通知栏，并且打开后显示窗口，但左侧任务栏上不要显示小窗口

 

参考 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=34553&skin=0

 

如果不想在任务栏显示，参考 BaseMainForm.ShowInTaskBar = False
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  92楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If Forms("分页").Opened Then
  Dim pm As WinForm.Label = Forms("分页").Controls("Label9")
  Dim pn As WinForm.Label = Forms("分页").Controls("Label10")
  Dim j As Integer
  Static i As Integer 
   i=Forms("分页").TimerInterval +i
   j=i Mod 125
  Select Case j
    Case 0
        pm.ForeColor = Color.Fuchsia
    Case 1
        pm.ForeColor = Color.Peru
    Case 2
        pm.ForeColor = Color.Navy
    Case 3
         pm.ForeColor = Color.Aqua
    Case 4
        pm.ForeColor = Color.Yellow
    Case 5
        pm.ForeColor = Color.Gold
    Case Else
         pm.ForeColor = Color.Red
End Select

  Dim zwz As Integer =pm.left-5
    If zwz +pm.Width<= 5 Then
      pm.left = Forms("分页").Width 
    Else
      pm.left = zwz 
  End If

  Dim zwz2 As Integer =pn.left-9
    If zwz2 +pn.Width<= 5 Then
      pn.left = Forms("分页").Width 
    Else
      pn.left = zwz2 
  End If
End If

老师，不知道为什么过一段时间滚动的文本就停住不动了，求解决
这是写在计划管理中的，间隔90ms
[此贴子已经被作者于2016/8/24 19:26:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  93楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 是左右不移动？多久以后不移动了？我测试没问题

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


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

是左右不移动了，时间短时间应该没事，好像都是时间久了就停住了，具体时间无法确定，其他功能都是正常的

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


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

 不应该的。是不是你把计划任务暂停了？

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


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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:code.txt

1：老师，如果我想在如上代码的最后设计以下内容该如何写？
If  r("芯片规格").Text Like "*小计" Then    '列名中含有小计的
    行.BackColor = Color.Blue                  '此行变蓝
   If  r("芯片库存")= "0" then                    '列名=0，行含有小计
   单元格.BackColor = Color.Red              '此单元格变红
   End If
Else If r("需要订货")>=0 or r("需要订货(预测)")>=0 Then     '行不含小计，列大于0
     单元格.BackColor = Color.Yellow                                 '单元格变黄
     End If
End If
效果如下

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

2:计划管理中的移动模块中允许暂停是false
   另一个计划DataTables("发布").load()
                 DataTables("汇总表").load()
   间隔10000，允许暂停是true，会有影响吗？
[此贴子已经被作者于2016/8/26 19:29:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  97楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

1、参考：http://www.foxtable.com/webhelp/scr/0656.htm


2、同一个计划就会有影响，可以使用不同的计划
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  98楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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

计划2代码就这些啊，但是开始的时候是正常的，几个小时候后就这样了
If Forms("分页").Opened Then
  Dim pm As WinForm.Label = Forms("分页").Controls("Label9")
  Dim pn As WinForm.Label = Forms("分页").Controls("Label10")
  Dim j As Integer
  Static i As Integer 
   i=Forms("分页").TimerInterval +i
   j=i Mod 125
  Select Case j
    Case 0
        pm.ForeColor = Color.Fuchsia
    Case 1
        pm.ForeColor = Color.Peru
    Case 2
        pm.ForeColor = Color.Navy
    Case 3
         pm.ForeColor = Color.Aqua
    Case 4
        pm.ForeColor = Color.Yellow
    Case 5
        pm.ForeColor = Color.Gold
    Case Else
         pm.ForeColor = Color.Red
End Select

  Dim zwz As Integer =pm.left-6
    If zwz +pm.Width<= 5 Then
      pm.left = Forms("分页").Width 
    Else
      pm.left = zwz 
  End If

  Dim zwz2 As Integer =pn.left-9
    If zwz2 +pn.Width<= 5 Then
      pn.left = Forms("分页").Width 
    Else
      pn.left = zwz2 
  End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  99楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

应该是i的值超过了整型所能表示的范围，算术溢出了。

没看明白j的计算逻辑
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  100楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim sql As String = "s elect * from {表A}"

Dim q As new QueryBuilder

q.TableName = "统计"

q.SelectString = sql

q.Build

Dim f As New Filler

f.SourceTable = DataTables("统计")

f.DataTable = DataTables("表B")

f.Fill()

老师，能否越过中间的临时统计，直接s elect将表A的某些数据直接赋值到表B里？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.09375 秒, 5 次数据查询