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


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

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


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/7/28 17:08:00 [显示全部帖子]

Tables("统计").DataTable.DataCols.Add("日均产量", Gettype(Double), "[总产量]/[上班天数]" )

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


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/7/28 17:20:00 [显示全部帖子]

回复13楼，在计时器代码动态改变控件位置

http://www.foxtable.com/webhelp/scr/1301.htm

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=20184
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/7/28 17:54:00 [显示全部帖子]

所在事件完整代码发出来。或者上传例子

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


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/7/29 9:20:00 [显示全部帖子]

工位是字符列，就这样
Dim drs As List(Of DataRow) = DataTables("统计").Select("[工位] = ‘" & gw & “‘”, "日均产量 DESC")

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


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/7/29 14:47:00 [显示全部帖子]

1. dim sql = "s elect sum(日" & Date.Today.Day & ") from {产量报表}"

2.直接连接服务器数据库就可以了

可以参考帮助中《网络与数据源》这一章，从这一节开始：
http://www.foxtable.com/webhelp/scr/1420.htm
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/7/30 11:32:00 [显示全部帖子]


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


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/7/30 14:22:00 [显示全部帖子]

数据导入后保存一下

 DataTables("产量报表").Save
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/7/30 17:32:00 [显示全部帖子]

好好看例子的代码：http://www.foxtable.com/webhelp/scr/2781.htm

1.没有赋值（被注释），自然不显示。其它按钮调用的自己，形成死循环

Dim lbl As WinForm.Label = e.Form.Controls("Label1")
Dim btn As WinForm.Button = e.Form.Controls("Button5") '这里全部改成“Button5”
Dim pg As Integer = lbl.Text '当前页号
If pg > 1 Then
    lbl.Text =  pg - 1
End If
btn.PerformClick()  '模拟单击显示按钮


2.生成listview前先排好序
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/2 10:05:00 [显示全部帖子]

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.View = ViewMode.Details

Dim cls() As String = {"工位","员工工号","姓名","总产量","上班天数","昨日产量","日均产量","日均排名"} '定义列名 
Dim wds() As String = {120,90,60,140,60,140,140,60} '定义列宽
Dim drs As List(Of DataRow) 
  drs = DataTables("汇总表").Select("","工位,员工工号,日均产量 DESC")
For i As Integer = 0 To  cls.Length - 1  '增加列 
    Dim c As WinForm.ListViewColumn = lvw.Columns.Add() 
    c.Text = cls(i) '指定列标题 
    c.Name = cls(i) '指定列名  
    c.Width = wds(i) '指定列宽 
Next 
For Each dr As DataRow In drs '从数据表中提取数据 
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
    For Each cl As String In cls '逐列取值
        vr(cl) = dr(cl)
    Next
    vr.Tag= dr '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来
Next
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/2 14:06:00 [显示全部帖子]

DataTable的数据是无序的，Table的数据才可以排序

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