Foxtable(狐表)用户栏目专家坐堂 → 表信息查询


  共有2260人关注过本帖树形打印复制链接

主题:表信息查询

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


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
表信息查询  发帖心情 Post By: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

 

 

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

 

 

 

 


 回到顶部