以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  SQLAddNew 不能自动填写排序列和锁定列吗  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176039)

--  作者:foxtablefanse
--  发布时间:2022/3/28 15:31:00
--  SQLAddNew 不能自动填写排序列和锁定列吗
Dim cmd As new SQL  Command
        cmd.Conne  cti
        cmd.Comm  andText = "Sel   ect * From [**] Where 1=2"
        Dim dtb As DataTable = cmd.Execu  teReader(True)
        Dim dr As DataRow = dtb.SQLAddNew()
        
        For Each nm As String In nms
            If e.PostValues.ContainsKey(nm)
                dr(nm) = e.PostValues(nm).trim()
            Else
                dr(nm) = Nothing
            End If
        Next
        dr("编号") =Functions.Execute("SerialNumber",e,"往来单位编号")
        If dr("编号") >"" Then
            dr.save()
            With wb.AddMsgPage("","msgpage","添加成功", "") \'生成成功提示页
                .AddButton("btn1","继续添加","AddCustomer.htm")
                .AddButton("btn2","查看记录","Customerlist.htm")
                .AddButton("btn3","退出","index.htm")
            End With \'返回增加成功消息
        Else
            
        End If
        e.WriteString(wb.Build) \'生成网页


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20220328152954.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2022/3/28 15:38:00
--  
既然已经使用了SQLcommand,直接addnew即可,没有必要使用SQLAddNew
--  作者:foxtablefanse
--  发布时间:2022/3/29 8:31:00
--  
改成 .addnew后 锁定字段可以了,但排序字段还是不行
--  作者:有点蓝
--  发布时间:2022/3/29 8:53:00
--  
我测试没有问题。排序字段和主键值要保存后才是正确的值