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控件,保存不上.
加好友 
发短信
Post By：2019/11/22 12:01:00 [只看该作者]
