下面是按钮代码，需要看存储过程代码吗？
---------------------------------------
DataTables("bh_moh").Save()
Tables("bh_moh.bh_mod").Save()
Dim mnum As Long
mnum = Tables("bh_moh").Current("num")
Dim mitemno As String = Tables("bh_moh").Current("itemno")
If mitemno Is Nothing Then
messagebox.show(" 产品资讯不可以皆空白.","提示!")
Return
End If
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "up_62g_from_94c" '指定存储过程名
cmd.StoredProcedure = True '表示CommandText内容不是标准的SQL语句,而是存储过程名
cmd.Parameters.Add("@num",mnum)
cmd.Parameters.Add("@userid",user.name)
cmd.ExecuteNonQuery
'Dim dt As DataTable = cmd.ExecuteReader
Tables("bh_moh").Current.Load()
DataTables("bh_mod").Load()
---------------------------------------------------
加好友 
发短信
Post By：2020/3/14 18:46:00 [显示全部帖子]
Post By：2020/3/14 18:53:00 [显示全部帖子]
