以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这样写怎么不行呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108585)
--  作者：xxfoxtable
--  发布时间：2017/10/25 14:38:00
--  这样写怎么不行呢？

 Dim db1 As WinForm.DropDownBox = e.Form.Controls("DropBox1")
DataTables("客户档案").load()
Dim dr As DataRow
dr = DataTables("客户档案").Find("[客户名称]=\'" & db1.text &"\'")
If dr Is Nothing Then    \'如果找到的话
    dr.DataTable.AddNew
    dr("客户名称")=db1.text
    dr.Save
End If

我这样写怎么不行呢？
--  作者：有点甜
--  发布时间：2017/10/25 14:45:00
--  

Dim db1 As WinForm.DropDownBox = e.Form.Controls("DropBox1")
DataTables("客户档案").load()
Dim dr As DataRow
dr = DataTables("客户档案").Find("[客户名称]=\'" & db1.text &"\'")
If dr Is Nothing Then    

    msgbox("没找到 " & db1.text)
    dr = DataTables("客户档案").AddNew
    dr("客户名称")=db1.text
    dr.Save

Else

    msgbox("找到了 " & db1.text)

    dr("客户名称")=db1.text
    dr.Save
End If

[此贴子已经被作者于2017/10/25 14:45:57编辑过]