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

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

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

有点蓝

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

加好友

发短信

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

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

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

有点蓝

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

加好友

发短信

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

有点蓝

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

加好友

发短信

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：107813 积分：548416 威望：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、不明白你要做什么

有点蓝

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

加好友

发短信

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

有点蓝

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

加好友

发短信

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

Post By：2016/10/8 14:50:00 [显示全部帖子]

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

有点蓝

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

加好友

发短信

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

Post By：2016/10/8 15:14:00 [显示全部帖子]

上例子测试

有点蓝

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

加好友

发短信

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

Post By：2016/10/8 15:56:00 [显示全部帖子]

把DoubleClick事件以下代码去掉

DataTables("测试数据库").load()

DataTables("物料对应表").load()

DataTables("项目测试数据看板").load()

load之后所有数据重新刷新，当然永远都是默认第一行的位置。

没有数据库没有办法完整测试是否有其他问题

另外以后提问题，麻烦把整个事件代码贴出来，不要半遮面的。问题往往不在你认为有问题的地方

有点蓝

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

加好友

发短信

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

Post By：2016/10/8 18:07:00 [显示全部帖子]

数据库的字段是什么类型，s elect 出来就是什么类型，并非都是string

类型转换参考http://www.foxtable.com/webhelp/scr/1513.htm

有点蓝

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

加好友

发短信

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

Post By：2016/10/11 17:07:00 [显示全部帖子]

Dim bh As String = Forms("测试窗口").Controls("TextBox39").Value

Dim sql As String ="S elect [项目编号],[结案],[测试日期],[客户代码],[客户名称],[物料代码],[物料名称],[规格型号],[客户对应物料代码],[客户对应物料名称],[C],[DF],[D1],[T],[F],[D2],[L],[样本编号],[BDV] From {测试数据库} where 项目编号= '" & bh & "'"

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim cmb As WinForm.ComboBox

cmd.CommandText = sql

dt = cmd.ExecuteReader()

Dim f As New Filler

f.SourceTable = dt

f.DataTable = DataTables("测量数据_导出")

f.Fill()

[此贴子已经被作者于2016/10/11 17:08:41编辑过]

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

总数 31 上一页 1 2 3 4

主题：[求助]导入列