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


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

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


加好友 发短信
等级：超级版主 帖子：107861 积分：548662 威望：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

笔误，不过这种应该可以自己看出是那里错误了，要学会理解看懂别人的代码
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  142楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，先在窗口2的table中addnew一行，然后将窗口1中的文本框textbox1和2的内容分别导入到窗口2的table中的B,C列，且A列自动获得此行的id值，如何实现？
Tables("项目测试数据看板").Current("客户代码") = Forms("测试项目新增").Controls("TextBox1").Value
如何获得此行的ID值？
[此贴子已经被作者于2016/9/26 19:42:39编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  143楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/26 20:24:00 [只看该作者]

自增id？
Tables("项目测试数据看板").Current("A列") = Tables("项目测试数据看板").Current("_Identify")
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  144楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
老师，如图是我的DataTables("CDF数据导入")，我想把C1的值赋给TextBox1，C2的值赋给TextBox2，DF1的值赋给TextBox3，类似赋值给任意TextBox，如何实现？且这个表的数据随时可能清除后再导入
    Forms("测试窗口").Controls("TextBox1").Value=DataTables("CDF数据导入").Current("C")这样吗？这样好像只能赋2次，并且是当前行。

[此贴子已经被作者于2016/9/27 14:07:53编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  145楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107861 积分：548662 威望：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")
next
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  146楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，如下代码能否优化？

Dim r0 As Row = Tables("CDF数据导入").Rows(0)
Dim r1 As Row = Tables("CDF数据导入").Rows(1)
Dim r2 As Row = Tables("CDF数据导入").Rows(2)
Dim r3 As Row = Tables("CDF数据导入").Rows(3)
Dim r4 As Row = Tables("CDF数据导入").Rows(4)
Dim r5 As Row = Tables("CDF数据导入").Rows(5)
Dim r6 As Row = Tables("CDF数据导入").Rows(6)
Dim r7 As Row = Tables("CDF数据导入").Rows(7)
Dim r8 As Row = Tables("CDF数据导入").Rows(8)
Dim r9 As Row = Tables("CDF数据导入").Rows(9)
  Forms("测试窗口").Controls("TextBox29" ).Value = r0("C")
  Forms("测试窗口").Controls("TextBox30" ).Value = r1("C")
  Forms("测试窗口").Controls("TextBox31" ).Value = r2("C")
  Forms("测试窗口").Controls("TextBox32" ).Value = r3("C")
  Forms("测试窗口").Controls("TextBox33" ).Value = r4("C")
  Forms("测试窗口").Controls("TextBox34" ).Value = r5("C")
  Forms("测试窗口").Controls("TextBox35" ).Value = r6("C")
  Forms("测试窗口").Controls("TextBox36" ).Value = r7("C")
  Forms("测试窗口").Controls("TextBox37" ).Value = r8("C")
  Forms("测试窗口").Controls("TextBox38" ).Value = r9("C")
  Forms("测试窗口").Controls("TextBox19" ).Value = r0("DF")
  Forms("测试窗口").Controls("TextBox20" ).Value = r1("DF")
  Forms("测试窗口").Controls("TextBox21" ).Value = r2("DF")
  Forms("测试窗口").Controls("TextBox22" ).Value = r3("DF")
  Forms("测试窗口").Controls("TextBox23" ).Value = r4("DF")
  Forms("测试窗口").Controls("TextBox24" ).Value = r5("DF")
  Forms("测试窗口").Controls("TextBox25" ).Value = r6("DF")
  Forms("测试窗口").Controls("TextBox26" ).Value = r7("DF")
  Forms("测试窗口").Controls("TextBox27" ).Value = r8("DF")
  Forms("测试窗口").Controls("TextBox28" ).Value = r9("DF")
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  147楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/28 9:43:00 [只看该作者]

把控件的名称按照行的顺序起名称，就可以使用145楼的方式，否则没有办法

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


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

老师，我有2个TextBox的值，Forms("测试窗口").Controls("TextBox1").Value，Forms("测试窗口").Controls("TextBox2").Value，我想增加10行后，Tables("测试数据库").Addnew(10)，前2列都是2个TextBox的值，第三列能够自动编号1到10。如果后来再加10行，不同的值，也能编号1到10，每次新增的10行，12列都是相同的，请问如何实现？

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


加好友 发短信
等级：超级版主 帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/29 16:59:00 [只看该作者]

Dim t1 = Forms("测试窗口").Controls("TextBox1").Value
Dim t2 = Forms("测试窗口").Controls("TextBox2").Value
Dim p = Tables("测试数据库").Rows.Count
Tables("测试数据库").Addnew(10)
Dim dr As Row
Dim k = 1
For i As Integer = p To Tables("测试数据库").Rows.Count - 1
    dr = Tables("测试数据库").Rows(i)
    dr("列1") = t1
    dr("列2") = t2
    dr("列2") = k
    k += 1
Next
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  150楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，如下好像只实现了最后一条，能一起实现么？还是需要cmd3,cmd4多写几句？


Dim cmd2 As New SQLCommand
cmd2.CommandText = "u pdate {测试数据库} set [C] ='"& c1 &"',[DF]='"& df1 &"'  where 项目编号 = '" & bh & "' and 样本编号 =1"
cmd2.CommandText = "u pdate {测试数据库} set [C] ='"& c2 &"',[DF]='"& df2 &"'  where 项目编号 = '" & bh & "' and 样本编号 =2"
cmd2.CommandText = "u pdate {测试数据库} set [C] ='"& c3 &"',[DF]='"& df3 &"'  where 项目编号 = '" & bh & "' and 样本编号 =3"
cmd2.CommandText = "u pdate {测试数据库} set [C] ='"& c4 &"',[DF]='"& df4 &"'  where 项目编号 = '" & bh & "' and 样本编号 =4"
cmd2.ExecuteNonQuery

[此贴子已经被作者于2016/9/29 20:34:00编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04810 秒, 4 次数据查询