没有下面这种用法
if 条件1 then
else
else
end if
把成对的if 和 end if的代码去掉就看出来的，做任何事情都要讲究方法，
If tbl1.Current IsNot Nothing Then
If tbl.current.isnull("机具ID") Then
'' systemready = False
e.Form.DropDownBox.Value = tbl.Current("商户ID")
tbl1.Current("商户ID") = tbl.Current("商户ID")
tbl1.Current("商户名称")= tbl.Current("商户名称")
tbl1.Current("客户ID")= tbl.Current("客户ID")
tbl1.Current("客户姓名")= tbl.Current("法人姓名")
tbl.Current("机具ID")= tbl1.Current("机具ID")
tbl.Current("机具条码")= tbl1.Current("机具条码")
If tbl1.Current("商户ID") IsNot Nothing Then
tbl1.Current("机具是否绑定")= True
Else
tbl1.Current("机具是否绑定")= False
End If
Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" & vars("机具条码") & "' and 商户ID='" & tbl1.Current("商户ID") & "'")
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
msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
' systemready =True
Return
Else
End If
End If
End If
'
ElseIf e.Form.DropDownBox.name="liuliangkashanghuIDDropBox" OrElse e.form.dropTable IsNot Nothing AndAlso e.form.dropTable.Name = "流量卡资料"
End If
End If
[此贴子已经被作者于2017/10/5 8:24:07编辑过]
加好友 
发短信
Post By：2017/9/30 9:58:00 [显示全部帖子]
