Foxtable(狐表)用户栏目专家坐堂 → 绑定表保存增加按钮


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

主题:绑定表保存增加按钮

帅哥哟,离线,有人找我吗?
zhuxinhui
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1839 积分:5103 威望:0 精华:0 注册:2017/11/8 17:37:00
绑定表保存增加按钮  发帖心情 Post By:2018/12/1 16:04:00 [只看该作者]

绑定窗口表增加保存数据,出现了不停闪动,不知是什么问题,
If e.Form.controls("TextBox1").value = "" Then
    MessageBox.Show("请录入厂商名称!", "提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)
    Return
End If

For Each r As Row In e.Form.Controls("Table1").Table.Rows  'e.Form.Controls("Table1").Table.addnew
    Dim dr As DataRow = DataTables("销售表").AddNew()
     
    dr("客户") = Trim(e.Form.controls("TextBox1").value)
    dr("日期") = Trim(e.Form.controls("TextBox2").value)
    dr("单号") = Trim(e.Form.controls("TextBox3").value)
    dr("货物编号")=r("货物编号")
    dr("货物名称")=r("货物名称")
    dr("规格")=r("规格")
    dr("数量")=r("数量")
    dr("单价")=r("单价")
    dr("金额")=r("金额")
Next
DataTables("销售表").Save()

 回到顶部
总数 11 1 2 下一页