老师我在下拉窗体“入库机具选择”中写了如下代码:
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机绑定商户历史记录表”中给所解绑的机具的“解绑日期”字段赋值呢?