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


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

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


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

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

如果是sql server，可以吧sql用分号分割放到一起，如

cmd2.CommandText = "u pdate {测试数据库} set [C] ='"& c2 &"',[DF]='"& df2 &"'  where 项目编号 = '" & bh & "' and 样本编号 =2;u pdate {测试数据库} set [C] ='"& c3 &"',[DF]='"& df3 &"'  where 项目编号 = '" & bh & "' and 样本编号 =3"
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  152楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim t8 = Forms("测试窗口").Controls("TextBox39").Value
Tables("测试数据库").Addnew(10)
Dim dr As Row
dr("项目编号") = t8

1：老师如何在addnew之前判断，如果 测试数据库 里已经有t8了就不增加，否则增加

2：Forms("测试窗口").Controls("TextBox29" ).Value= s elect c from {测试数据库} where 样本编号=1 
     这个要如何正确书写？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  153楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

1、用Find查询：http://www.foxtable.com/webhelp/scr/0396.htm

2、不明白你要做什么
 回到顶部
帅哥哟，离线，有人找我吗？
chnfo
 小大  154楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2223 积分：18276 威望：0 精华：0 注册：2011/11/26 20:21:00 		  发帖心情 Post By：2016/9/30 14:41:00 [只看该作者]

楼主，看了几页，感觉你的目的不清晰。
求助，首先表述你的目的。
你把实现的手段当成目的，然后写了方法来求助，这样会越陷越深。
就象你想把统计结果直接写到外部表中，何必这样做呢？
需要什么结果，动态地写查询统计就可以了，如果用程序得到统计结果，然后写到一个业务表X中，万一基础表数据发生了变化，那X表必须要同步，会有很大的麻烦。
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  155楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，第二个就是如何将select查询到的某一个指定的值赋值到textbox中去

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


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

现在就是进入测试界面这个窗口有2部分内容，1部分由编号textbox1组成，另1部分由结果textbox2组成；(编号和结果均为测试数据库的列，但有编号textbox1不一定会有结果textbox2内容，有结果textbox2一定会有编号textbox1)首先窗口会加载编号textbox1，(这个编号由另一个数据表提供)如果测试数据库中编号列有textbox1这个值，那就继续加载这一行的textbox2内容列，如果没有textbox1，那就增加一行，将textbox1增加进列里，textbox2为空值。 
导入数据：将外部excel的内容导入到这个窗口的textbox2中(因为可能会重新导入，所以此时textbox2内容并未进入测试数据库)
结案：将上一步的textbox2内容update到测试数据库里（textbox1的这一行内容）

测试数据库的变动其实也就结案这一次，其实主要还是用sql向数据库取值赋值不是很熟练
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  157楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

查询、判断都可以用Find：http://www.foxtable.com/webhelp/scr/0396.htm

如果是查询后台数据，用sqlfind，http://www.foxtable.com/webhelp/scr/2911.htm

又不是很复杂的语句没有必要用sql了，如果要用参考：http://www.foxtable.com/webhelp/scr/0696.htm
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  158楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

如下为CurrentChanged代码：
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("待测试项目_Table1").FindRow("项目编号 = '" & dr("项目编号") & "'")
 If wz >=0 Then
  Tables("项目测试数据看板").Position = wz
  Tables("待测试项目_Table1").Position = wz
 End If
如下为DoubleClick代码：
Forms("测试窗口").open()
Dim tbl As Table = Tables("待测试项目_Table1")
  If tbl.Current IsNot Nothing Then
    Forms("测试窗口").Controls("TextBox39").Value=tbl.Current("项目编号")
  End If
老师，我双击后还是只显示第一行的，并不是当前行。
我换成Forms("测试窗口").Controls("TextBox39").Value=Tables("项目测试数据看板").Current("项目编号")也不行，请问如何解决？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  159楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

上面的2个事件代码分别是哪个表的？

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


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

都是 待测试项目_Table1 的，属性里面绑定项目测试数据看板的
[此贴子已经被作者于2016/10/8 15:12:06编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04785 秒, 4 次数据查询