以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  无法保存到数据库  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143379)

--  作者:xa139
--  发布时间:2019/11/22 12:01:00
--  无法保存到数据库
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "GetOrderByID"
cmd.StoredProcedure = True
cmd.Parameters.Add("@Err", 12, False) \'返回参数
cmd.Parameters.Add("@type","sanoid") \'输入参数
cmd.Parameters.Add("@RETID", "", True) \'输出参数
cmd.ExecuteNonQuery
Output.Show( cmd.Parameters("@RETID"))
e. Form.controls("TextBox1").text ="SZ19"+ Format( Cint (( cmd.Parameters("@RETID"))),"0000000")
With Tables("样本信息表")
    If .Current IsNot Nothing Then
        .Current.Save()
    End If
End With
-----------------------------------------------------
使用存储过程获取并构造字符串,赋值给窗体对应字段的text控件,保存不上.



--  作者:有点蓝
--  发布时间:2019/11/22 13:38:00
--  
看看:http://www.foxtable.com/webhelp/topics/2436.htm

With Tables("样本信息表")
    If .Current IsNot Nothing Then
        .Current("某某列") = "SZ19"+ Format( Cint (( cmd.Parameters("@RETID"))),"0000000")
        .Current.Save()
    End If
End With