[求助]导入列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有15831人关注过本帖树形打印复制链接主题：[求助]导入列

狐狸爸爸

小大 131楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2016/9/9 19:11:00 [只看该作者]

Dim cmd As New SQLCommand

cmd.CommandText = "UPD ATE {工位} SET [key] ='1' where 工位 ='固化'"

cmd.ExecuteNonQuery()

Key是SQL的关键词，要用方括号括起来。

扶风

小大 132楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

Post By：2016/9/10 9:33:00 [只看该作者]

Dim Filter As String = "(工位 In ('" & Forms("岗位").Controls("CheckedcomboBox1").Text.Replace(",", "','") & "'))"

Dim cmd As New SQLCommand

cmd.CommandText = "U PDATE {工位} SET [key] ='1' where 工位 in ('" & Forms("岗位").Controls("CheckedcomboBox1").Text.Replace(",", "','") & "')"

cmd.ExecuteNonQuery()

老师，能否改善成选中的u pdate成1，没选中的u pdate成0？

有点蓝

小大 133楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107756 积分：548119 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/9/10 9:51:00 [只看该作者]

Filter As String = "('" & Forms("岗位").Controls("CheckedcomboBox1").Text.Replace(",", "','") & "')"

Dim cmd As New SQLCommand

cmd.CommandText = "U PDATE {工位} SET [key] ='1' where 工位 in " & Filter

cmd.ExecuteNonQuery()

cmd.CommandText = "U PDATE {工位} SET [key] ='0' where 工位 not in " & Filter

cmd.ExecuteNonQuery()

扶风

小大 134楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

Post By：2016/9/12 19:09:00 [只看该作者]

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)

vr.Tag= dr '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来

If dr("日均排名") = "1" And dr("日均产量") <> "0" Then '用蓝底白字整行显示

vr.BackColor = Color.Blue

Vr.ForeColor = Color.White

Else If dr("日均排名") = "2" And dr("日均产量") <> "0" Then '用蓝底白字整行显示

vr.BackColor = Color.Blue

Vr.ForeColor = Color.White

End If

lvw.ResumeRedraw() '恢复绘制

老师，红色部分为后加进去的，但写了没反应。

另在不知道排名的总数时，例总数为n时，如何写到"日均排名") = "n" ？

[此贴子已经被作者于2016/9/12 19:09:45编辑过]

有点蓝

小大 135楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107756 积分：548119 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/9/12 20:14:00 [只看该作者]

没反应说明不符合条件

后面的问题不明白什么意思

扶风

小大 136楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

Post By：2016/9/13 8:29:00 [只看该作者]

老师，后一个是类似，排名有4个，就有4个不同的颜色，有5个，就有5个不同的颜色，有n个，就有n个不同的颜色，但不知道这个n的数量，颜色希望是渐变色，越来越淡，请问能否实现？又该怎么写？

[此贴子已经被作者于2016/9/13 8:29:59编辑过]

有点蓝

小大 137楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107756 积分：548119 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/9/13 9:06:00 [只看该作者]

颜色值参考http://www.foxtable.com/webhelp/scr/0496.htm

自己分析颜色的深浅值具体是是多少

扶风

小大 138楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

Post By：2016/9/19 18:23:00 [只看该作者]

此主题相关图片如下：2.png

老师，如上图散包最后一名，如何判定每个工位的最后一名。我想给每个工位的最后一名标上颜色，如何实现？

Dim Filter As String = "(工位 In ('" & DataTables("工位").GetComboListString("工位","key =1").Replace("|", "','") & "'))"

drs = DataTables("汇总表").S elect(Filter,"工位,日均产量 DESC")

idx2 = Math.Min(drs.Count -1,idx2) 'idx2不能超过表的最大行数

lvw.Rows.Clear() '清除之前的行

For idx As Integer = idx1 To idx2

Dim dr As DataRow = drs(idx) '根据行位置从数据表中取得对应的DataRow

Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '在ListView增加一行

For Each cl As WinForm.ListViewColumn In lvw.Columns '逐列取值

vr(cl.Name) = dr(cl.Name)

vr.Tag= dr '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来

If dr("日均排名") = "1" And dr("日均产量") <> "0" Then '用蓝底白字整行显示东正教国家

vr.BackColor = Color.FromARGB(255,0,0,255)

Vr.ForeColor = Color.White

End If

[此贴子已经被作者于2016/9/19 18:23:57编辑过]

有点蓝

小大 139楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107756 积分：548119 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/9/19 20:35:00 [只看该作者]

For idx As Integer = idx1 To idx2

Dim dr As DataRow = drs(idx) '根据行位置从数据表中取得对应的DataRow

Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '在ListView增加一行

For Each cl As WinForm.ListViewColumn In lvw.Columns '逐列取值

vr(cl.Name) = dr(cl.Name)

vr.Tag= dr '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来

If dr("日均排名") = "1" And dr("日均产量") <> "0" Then '用蓝底白字整行显示东正教国家

vr.BackColor = Color.FromARGB(255,0,0,255)

Vr.ForeColor = Color.White

End If

If idx < idx2 AndAlso dr("工位") <> drs(idx+)("工位") Then

msgbox("最后")

End If

扶风

小大 140楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

Post By：2016/9/20 16:57:00 [只看该作者]

老师，报错

此主题相关图片如下：123.png

下一主题 >> << 上一主题

总数 167 1.. 上一页 8 9 10 11 12 13 14 15 16 17 下一页

主题：[求助]导入列