以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]这也有问题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79948)
--  作者：huhu
--  发布时间：2016/1/12 23:09:00
--  [求助]这也有问题？
Dim kwbm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim kwmc As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim kwlb As WinForm.TextBox = e.Form.Controls("TextBox2")
msgbox(0)

If e.Sender.Value = "\'" & kwbm.text & "\'" Then
msgbox(1)
    Dim dr As DataRow = DataTables("仓库管理").Find("库位编码 = \'" & kwbm.value & "\'")
msgbox(2)

    kwmc.value = dr("库位名称")
msgbox(3)

    kwlb.value = dr("库位类别")
msgbox(4)

End If
--  作者：Hyphen
--  发布时间：2016/1/13 8:10:00
--  
If e.Sender.Value = kwbm.text Then
    msgbox(1)
    Dim dr As DataRow = DataTables("仓库管理").Find("库位编码 = \'" & kwbm.value & "\'")
    msgbox(2)
    If dr IsNot Nothing Then
        kwmc.value = dr("库位名称")
        msgbox(3)
        
        kwlb.value = dr("库位类别")
        msgbox(4)
    End If
End If