Foxtable(狐表)用户栏目专家坐堂 → 关于数据入库问题


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

主题:关于数据入库问题

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


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
关于数据入库问题  发帖心情 Post By:2017/9/29 15:06:00 [只看该作者]

老师我在下拉窗体“入库机具选择”中写了如下代码:
If  e.Selected Then
    If e.Form.DropDownBox.name="jijutiaomaDropBox" OrElse e.form.dropTable IsNot Nothing AndAlso e.form.dropTable.Name = "商户资料表"
        Dim tbl As Table = Tables("入库机具选择_Table1")
        Dim tbl1 As Table = Tables("商户资料表")
        Dim Result As DialogResult
        Dim sr As Row = tbl.Current 
        Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" &  sr("机具条码") & "' and 解绑日期 is null")
        If tbl.Current IsNot Nothing Then
            If tbl.current.isnull("商户ID") = False Then
                Result = MessageBox.Show("该机具已经绑定商户,是否重新绑定新商户,单击是解绑后重新绑定,单击否放弃绑定新商户", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                If Result = DialogResult.No Then
                    Return
                Else
                    If lsjl  IsNot Nothing  Then
                        lsjl ("解绑日期") =Date.Today
                        lsjl =  DataTables("POS机绑定商户历史记录表").addnew
                        lsjl("机具ID") =tbl.Current("机具ID")
                        lsjl("机具条码") =tbl.Current("机具条码")
                        lsjl("机具类型") =tbl.Current("机具类型")
                        lsjl("机具型号") =tbl.Current("机具型号")
                        lsjl("所属仓库") =tbl.Current("所属仓库")
                        lsjl("商户ID") =tbl.Current("商户ID")
                        lsjl("商户名称") =tbl.Current("商户名称")
                        lsjl("客户ID") =tbl.Current("客户ID")
                        lsjl("客户姓名") =tbl.Current("客户姓名")
                        lsjl("绑定日期") =Date.Today
                    Else
                        lsjl =  DataTables("POS机绑定商户历史记录表").addnew
                        lsjl("机具ID") =tbl.Current("机具ID")
                        lsjl("机具条码") =tbl.Current("机具条码")
                        lsjl("机具类型") =tbl.Current("机具类型")
                        lsjl("机具型号") =tbl.Current("机具型号")
                        lsjl("所属仓库") =tbl.Current("所属仓库")
                        lsjl("商户ID") =tbl.Current("商户ID")
                        lsjl("商户名称") =tbl.Current("商户名称")
                        lsjl("客户ID") =tbl.Current("客户ID")
                        lsjl("客户姓名") =tbl.Current("客户姓名")
                        lsjl("绑定日期") =Date.Today
                    End If
                    e.Form.DropDownBox.Value = tbl.Current("机具ID")
                    tbl1.Current("机具ID")= tbl.Current("机具ID")
                    tbl1.Current("机具条码")= tbl.Current("机具条码")
                    tbl.Current("商户ID")= tbl1.Current("商户ID")
                    tbl.Current("客户ID")= tbl1.Current("客户ID")
                    tbl.Current("客户姓名")= tbl1.Current("法人姓名")
                    tbl.Current("商户名称")=tbl1.Current("商户名称")
                    
                    msgbox(tbl1.Current("商户名称") & "客户成功绑定机具")
                    If Forms("商户资料入库窗体").Opened=True Then
                        Forms("商户资料入库窗体").Controls("jijutiaomaDropBox").value =""
                    End If
                    Return
                End If
            End If
            e.Form.DropDownBox.Value = tbl.Current("机具ID")
            tbl1.Current("机具ID")= tbl.Current("机具ID")
            tbl1.Current("机具条码")= tbl.Current("机具条码")
            tbl.Current("商户ID")= tbl1.Current("商户ID")
            tbl.Current("客户ID")= tbl1.Current("客户ID")
            tbl.Current("客户姓名")= tbl1.Current("法人姓名")
            tbl.Current("商户名称")=tbl1.Current("商户名称")
            If lsjl  IsNot Nothing Then
                lsjl ("解绑日期") =Date.Today
                lsjl =  DataTables("POS机绑定商户历史记录表").addnew
                lsjl("机具ID") =tbl.Current("机具ID")
                lsjl("机具条码") =tbl.Current("机具条码")
                lsjl("机具类型") =tbl.Current("机具类型")
                lsjl("机具型号") =tbl.Current("机具型号")
                lsjl("所属仓库") =tbl.Current("所属仓库")
                lsjl("商户ID") =tbl.Current("商户ID")
                lsjl("商户名称") =tbl.Current("商户名称")
                lsjl("客户ID") =tbl.Current("客户ID")
                lsjl("客户姓名") =tbl.Current("客户姓名")
                lsjl("绑定日期") =Date.Today
            Else
                lsjl =  DataTables("POS机绑定商户历史记录表").addnew
                lsjl("机具ID") =tbl.Current("机具ID")
                lsjl("机具条码") =tbl.Current("机具条码")
                lsjl("机具类型") =tbl.Current("机具类型")
                lsjl("机具型号") =tbl.Current("机具型号")
                lsjl("所属仓库") =tbl.Current("所属仓库")
                lsjl("商户ID") =tbl.Current("商户ID")
                lsjl("商户名称") =tbl.Current("商户名称")
                lsjl("客户ID") =tbl.Current("客户ID")
                lsjl("客户姓名") =tbl.Current("客户姓名")
                lsjl("绑定日期") =Date.Today
            End If
            msgbox(tbl1.Current("商户名称") & "商户成功绑定机具")
            If Forms("商户资料入库窗体").Opened=True Then
                Forms("商户资料入库窗体").Controls("jijutiaomaDropBox").value =""
            End If
            Return
        End If
    End If
End If
If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
    e.Form.DropTable.FinishEditing()
ElseIf e.Form.DropDownBox.BindingField > "" '如果是通过窗口下拉的
    e.Form.DropDownBox.WriteValue()
End If

如果红色代码为“ Dim sr As Row = tbl.Current ”时,在“商户资料表中”绑定机具时出现如果所选的数据已经机具绑定的商户时,再绑定机具的时候,解绑的机具在“POS机绑定商户历史记录表”中就不能给"解绑日期”赋值。如果在“商户资料表中”所选的数据是空值但所绑定的机具在其他商户所占用时,解绑的机具在“POS机绑定商户历史记录表”中能正常给"解绑日期”赋值。

如果红色代码改为“ Dim sr As Row = tbl1.Current ”时,在“商户资料表中”绑定机具时出现如果所选的数据已经机具绑定的商户时,再绑定机具的时候,解绑的机具在“POS机绑定商户历史记录表”中能正常给"解绑日期”赋值。如果在“商户资料表中”所选的数据是空值但所绑定的机具在其他商户所占用时,解绑的机具在“POS机绑定商户历史记录表中就不能给"解绑日期”赋值


我怎么实现不管在"商户资料表"中的“机具ID”是空值还是已绑定了其他机具,只要在绑定机具这个动作中有解绑的机具成功的机具就要在 “POS机绑定商户历史记录表”中给所解绑的机具的“解绑日期”字段赋值呢?


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数据输入.rar













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