以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表信息查询  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101350)
--  作者：peibaomin
--  发布时间：2017/5/29 10:46:00
--  表信息查询

Dim tbx As WinForm.TextBox=e.Form.controls("jijutiaoma ")
Dim str As String=tbx.value
Dim dr As DataRow=DataTables("机具库存资料").find("机具条码 = \'" & str & "\'")
Dim t As Table = Tables("机具库存资料")
If dr IsNot Nothing Then
    Dim idx As Integer=Tables("机具库存资料").findrow(dr)
    If idx>=0 And t.current("机具是否绑定") = True  Then
          MessageBox.Show("机具已绑定客户!", "提示")
          e.Form.Controls("bangdingkehu").Enabled=False
           Tables("机具库存资料").position = idx
        Else
          MessageBox.Show("机具未绑定客户!", "提示")
          e.Form.Controls("bangdingkehu").Enabled=True
          Tables("机具库存资料").position = idx
    End If
Else
  MessageBox.Show("未查到符合条件的数据!", "提示")
  e.Form.Controls("bangdingkehu").Enabled=False
End If

 

 

这样的语句哪个地方错了，本来机具未绑定，第一次执行语句时怎么显示是绑定的机具呀？第二次执行时显示就是未绑定，是怎么回事？高手指点一下谢谢！

 

 

 

 
--  作者：有点色
--  发布时间：2017/5/29 11:06:00
--  

Dim tbx As WinForm.TextBox=e.Form.controls("jijutiaoma")
Dim str As String=tbx.text
Dim dr As DataRow=DataTables("机具库存资料").find("机具条码 = \'" & str & "\'")
Dim t As Table = Tables("机具库存资料")
If dr IsNot Nothing Then
    Dim idx As Integer=Tables("机具库存资料").findrow(dr)
    If idx>=0 And t.Rows(idx)("机具是否绑定") = True  Then
          MessageBox.Show("机具已绑定客户!", "提示")
          e.Form.Controls("bangdingkehu").Enabled=False
           Tables("机具库存资料").position = idx
        Else
          MessageBox.Show("机具未绑定客户!", "提示")
          e.Form.Controls("bangdingkehu").Enabled=True
          Tables("机具库存资料").position = idx
    End If
Else
  MessageBox.Show("未查到符合条件的数据!", "提示")
  e.Form.Controls("bangdingkehu").Enabled=False
End If