任何通过TextBox修改表的数据呢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 任何通过TextBox修改表的数据呢

共有2608人关注过本帖树形打印复制链接主题：任何通过TextBox修改表的数据呢

hongyefor

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

加好友

发短信

等级：二尾狐帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00

任何通过TextBox修改表的数据呢 发帖心情

Post By：2016/8/18 11:51:00 [只看该作者]

Dim kh As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim ddh As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim yl As WinForm.TextBox = e.Form.Controls("TextBox3")
If kh.text > "" And ddh.text > "" Then
Dim filter As String = "客户 = '" & e.Form.Controls("TextBox1").Text & "' And 订单号 = '" & e.Form.Controls("TextBox2").Text & "' "
Dim drs As List(Of DataRow) = DataTables("表A").Select(filter)
For i As Integer = 0 To drs.count-1
e.Form.controls("TextBox" & i+3).Text = drs(i)("原料")
Next
Else
e.Form.controls("TextBox3" ).Text = ""
e.Form.controls("TextBox4" ).Text = ""
e.Form.controls("TextBox5" ).Text = ""
End If

上面表达式可以将表A相对应的数据提取到TextBox3，TextBox4，TextBox5中，但是不知道如何修改TextBox3，TextBox4，TextBox5返回到表A中呢

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

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

Dim kh As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim ddh As WinForm.TextBox = e.Form.Controls("TextBox2")
If kh.text > "" And ddh.text > "" Then
    Dim filter As String = "客户 = '" & kh.Text & "' And 订单号 = '" & ddh.Text & "' "
    Dim drs As List(Of DataRow) = DataTables("表A").Select(filter)
    For i As Integer = 0 To drs.count-1
        drs(i)("原料") = e.Form.controls("TextBox" & i+3).Text
    Next
End If

hongyefor

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

加好友

发短信

等级：二尾狐帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00

Post By：2016/8/18 13:31:00 [只看该作者]

这两个代码怎么整合起来呢？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

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

做两个按钮，一个获取，一个保存，粘贴进去就行啊。

hongyefor

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

加好友

发短信

等级：二尾狐帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00

Post By：2016/8/18 20:52:00 [只看该作者]

Dim ddh As WinForm.TextBox = e.Form.Controls("合同号")
Dim shk As WinForm.TextBox = e.Form.Controls("款号")
If shk.text > "" And ddh.text > "" Then
    Dim filter As String = "合同号 = '" & ddh.Text & "'And 款号 = '" & shk.Text & "' "
    Dim drs As List(Of DataRow) = DataTables("订单数量明细").Select(filter)
    For i As Integer = 0 To drs.count-1
        e.Form.controls("Tsy_" & i+1).Text = drs(i)("颜色")
    Next
    For i As Integer = 0 To drs.count-1
        e.Form.controls("Tg_" & i+1).Text = drs(i)("规格")
    Next
Else
    e.Form.controls("Tsy_1").Text = ""
    e.Form.controls("Tsy_2" ).Text = ""
    e.Form.controls("Tsy_3" ).Text = ""
    e.Form.controls("Tsy_4" ).Text = ""
    e.Form.controls("Tsy_5" ).Text = ""
    e.Form.controls("Tsy_6" ).Text = ""
    e.Form.controls("Tsy_7" ).Text = ""
End If