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

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

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

有点蓝

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

加好友

发短信

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

Post By：2016/9/9 16:34:00 [显示全部帖子]

可以

有点蓝

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

加好友

发短信

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

Post By：2016/9/9 16:59:00 [显示全部帖子]

[此贴子已经被作者于2016/9/9 16:59:27编辑过]

有点蓝

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

加好友

发短信

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

Post By：2016/9/9 17:02:00 [显示全部帖子]

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

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：107813 积分：548416 威望：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()

有点蓝

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

加好友

发短信

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

Post By：2016/9/12 20:14:00 [显示全部帖子]

没反应说明不符合条件

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

有点蓝

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

加好友

发短信

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

Post By：2016/9/13 9:06:00 [显示全部帖子]

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

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：107813 积分：548416 威望：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

有点蓝

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

加好友

发短信

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

Post By：2016/9/20 17:05:00 [显示全部帖子]

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

笔误，不过这种应该可以自己看出是那里错误了，要学会理解看懂别人的代码

有点蓝

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

加好友

发短信

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

Post By：2016/9/26 20:24:00 [显示全部帖子]

自增id？

Tables("项目测试数据看板").Current("A列") = Tables("项目测试数据看板").Current("_Identify")

有点蓝

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

加好友

发短信

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

Post By：2016/9/27 20:23:00 [显示全部帖子]

for each r as row in Tables("CDF数据导入").rows

Forms("测试窗口").Controls("TextBox" & r.index).Value = r("C")

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

总数 31 上一页 1 2 3 4 下一页

主题：[求助]导入列