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

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

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

有点蓝

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

加好友

发短信

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

Post By：2016/10/8 15:14:00 [只看该作者]

上例子测试

扶风

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

加好友

发短信

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

Post By：2016/10/8 15:38:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.zip

品质检测-待测试项目里

有点蓝

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

加好友

发短信

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

Post By：2016/10/8 15:56:00 [只看该作者]

把DoubleClick事件以下代码去掉

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

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

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

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

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

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

扶风

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

加好友

发短信

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

Post By：2016/10/8 17:59:00 [只看该作者]

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "S elect [C] From {项目测试数据看板} where 项目编号 = '" & bh & "'"

'val = cmd.ExecuteScalar()

If cmd.CommandText = true Then

老师这边运行报错，类型转换问题，我知道S elect出来的是string类型，01是double类型，true false是boolean类型，怎么把string转换成后面2种？

逻辑就是判断s elect是true还是false，请问老师如何修改？

有点蓝

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

加好友

发短信

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

扶风

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

加好友

发短信

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

Post By：2016/10/11 16:40:00 [只看该作者]

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

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

Dim q As new QueryBuilder

q.TableName = "测量数据"

q.S electString = sql

q.C

q.Build

Dim f As New Filler

f.SourceTable = DataTables("测量数据")

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

f.Fill()

老师，这段能否简写？跳过新建临时表测量数据？

有点蓝

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

加好友

发短信

等级：超级版主帖子：107730 积分：547983 威望：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编辑过]

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

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

主题：[求助]导入列