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


  共有2449人关注过本帖平板打印复制链接

主题:任何通过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中呢


 回到顶部
总数 23 1 2 3 下一页