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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]外部数据表

共有5086人关注过本帖树形打印复制链接主题：[求助]外部数据表

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/7/16 16:31:00 [只看该作者]

老师，不能刷新窗口表。DataTables("窗口1_Table1").load

下面是加载的外部数据

Dim cmd As New SQLCommand

cmd.C

Dim i As Integer

cmd.CommandText = "execute CKXP"

Dim dst1 As Table = Tables("窗口1_Table1")

dst1.DataSource = cmd.ExecuteReader()

For i=1 To dst1.count

Dim dr As Row = dst1.Rows(i-1)

dr("序号") = "" & i

有点蓝

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

加好友

发短信

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

Post By：2020/7/16 16:38:00 [只看该作者]

存储过程代码发上来

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/7/16 17:27:00 [只看该作者]

老师，

Dim cmd As New SQLCommand

cmd.C

Dim dt As DataTable

Dim dst As Table = Tables("窗口1_Table1")

Dim dr As Row = dst.Current '获得选定行

vars("str1") = dr("货品编码") '保存原货品编码,确保变更后可以删除原记录

With e.form

Dim i As Integer

i += 1

Dim kz As String = "TextBox2,TextBox3,ComboBox3,TextBox1,ComboBox2,ComboBox4,TextBox11,NumericComboBox1,NumericComboBox3,NumericComboBox2,NumericComboBox4"

Dim lm As String = "货品编码,货品类型,计量单位,货品名称,规格型号,生产厂商,备注,库存上限,库存下限,入库参考价,出库参考价"

i = 0

For Each k As String In kz.split(",")

.Controls(k).Value = dr(lm.split(",")(i))

i += 1

End With

有点蓝

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

加好友

发短信

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

Post By：2020/7/16 17:33:00 [只看该作者]

什么乱七八糟。

cmd.CommandText = "execute CKXP" 这个sql里面的存储过程，如果不懂，就不要乱炒了，就还是看帮助做吧

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/7/16 19:42:00 [只看该作者]

老师，是这个吗？

Dim cmd As New SQLCommand

cmd.C

Dim i As Integer

cmd.CommandText = "execute CKXP"

Dim dst1 As Table = Tables("窗口1_Table1")

dst1.DataSource = cmd.ExecuteReader()

For i=1 To dst1.count

Dim dr As Row = dst1.Rows(i-1)

dr("序号") = "" & i

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/7/17 9:42:00 [只看该作者]

老师，谢谢了，我一定好好学。

窗口1的表为什么不能更新。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试.rar

有点蓝

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

加好友

发短信

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

Post By：2020/7/17 9:52:00 [只看该作者]

cmd.CommandText = "update 库存商品 set 货品编码 = '" & e.Form.Controls("TextBox2") .text & "', 货品类型 = '" & e.Form.Controls("TextBox3").text & "'where 货品编码 ='" & vars("str1") & "'"

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/7/17 10:05:00 [只看该作者]

老师，还是不能刷新窗口表。

有点蓝

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

加好友

发短信

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

Post By：2020/7/17 10:23:00 [只看该作者]

我测试没有问题

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/7/17 10:58:00 [只看该作者]

老师，可以重新加载吗？

Dim i As Integer

Dim cmd As New SQ LCommand

cmd.C

With e.form

If .Controls("TextBox2").Value Is Nothing Then

MsgBox("货品编码不能为空!",64,"提示")

Else

cmd.CommandText = "up date 库存商品 set 货品编码 = '" & e.Form.Controls("TextBox2") .text & "', 货品类型 = '" & e.Form.Controls("TextBox3").text & "'where 货品编码 ='" & vars("str1") & "'"

cmd.ExecuteNonQuery

.Close()

End If

End With

cmd.CommandText = "exe cute CKXP"

Dim dst1 As Table = Tables("窗口1_Table1")

dst1.DataSource = cmd.ExecuteReader()

For i=1 To dst1.count

Dim dr As Row = dst1.Rows(i-1)

dr("序号") = "" & i

[此贴子已经被作者于2020/7/17 10:59:06编辑过]

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

总数 51 上一页 1 2 3 4 5 6 下一页

主题：[求助]外部数据表