为什么我下面的代码 会出现“至少一个参数没有被指定值” 和 对象名‘inst’无效。
Dim dr As DataRow
dr=DataTables("账户管理").DataRows(0)
Dim dtname As String
If dr("部门") = "Inst"
dtname = "Inst"
ElseIf dr("部门") = "HRADM"
dtname = "HRADM"
End If
Dim cmd
As new SQLCommand
cmd.C
cmd.CommandText = "Insert Into " & dtname & "(序号,状态,提案时间,提案人,提案名称,改善前照片)
values(?,?,?,?,?,?,?,?);SELECT SCOPE_IDENTITY()"
Dim id
As Integer = cmd.ExecuteScalar()
cmd.parameters.add("@序号",id+1)
cmd.parameters.add("@状态","待审核")
cmd.parameters.add("@提案时间",Date.today)
cmd.parameters.add("@提案人",dr("用户姓名"))
cmd.parameters.add("@提案名称",e.Form.Controls("TextBox1").value)
cmd.parameters.add("@改善前照片",e.Form.Controls("Label10").text)
cmd.ExecuteNonQuery
[此贴子已经被作者于2020/4/7 16:12:42编辑过]