主题：[求助]insert into 出错

SQL中3个表，TRole,TDepart,TDepart_Roles，三个表中各有一个字段“ID”作为主键，同时TRole,TDepart表的“ID”又作为TDepart_Roles表的外键，在对TDepart_Roles表进行insert into操作时报错：

 

此主题相关图片如下：错误提示.jpg

我就是这样做的啊，今天也检查了在TRole表中是存在我要引用的角色的，但是还是出错，我把代码放上来，大侠帮我看看，谢谢

 

'===============================取得机构ID===========================

Dim DID As Integer                 '机构ID

Dim cmd As new sqlcommand

Dim dt As DataTable

Dim txt As winform.textbox=e.Form.controls("textbox1")

 

cmd.c

cmd.commandtext="select * from {TDepart}"

dt=cmd.executereader()

Dim dr As DataRow=dt.find("[FullName]='"& txt.value &"'")

DID=dr("ID")

 

 

'=============================添加机构角色=================================

Dim RID As Integer                 '角色ID

Dim STR As String                 '机构角色

Dim cmd1 As new sqlcommand           '连接角色表

Dim cmd2 As new sqlcommand           '连接机构_角色表

Dim cmd3 As new sqlcommand           '连接机构_角色表

Dim dt1 As DataTable

Dim lstR As winform.Listbox=e.Form.controls("listbox1")       '已选角色列表

Dim lstDR As winform.Listbox=e.Form.controls("listbox2")       '预览

 

cmd1.c

cmd2.c

cmd1.commandtext="select * from {TRole}"

cmd2.commandtext="insert {TDepart_Roles} ([DepartID],[RoleID],[Remark],[CreaterID],[CreateTime]) Values('"& DID &"','"& RID &"','"& STR &"','"& CurrentUserID &"','"& date.today() &"')"

dt1=cmd1.executereader()

cmd3.c

cmd3.commandtext="select * from {TDepart_Roles} where [Remark]='"& STR &"'"

 

 

For i As Integer =0 To lstR.items.count-1

    Dim dr1 As DataRow=dt1.find("[name]='"& lstR.items(i).trim() &"'")

    RID=dr1("ID")

    STR=TXT.value.trim() & "\" & lstR.items(i)

    lstDR.items.add(STR)

    If cmd3.executenonquery()=1 Then

        Messagebox.show(""& STR &"已存在!","提示")

        Exit For

    ElseIf cmd2.executenonquery()=0 Then

        messagebox.show("添加失败!","提示")

        goto h

    End If

Next

If messagebox.show("添加成功!","提示") Then

    txt.value=""

    lstR.items.clear

End If

h:

DID 、RID、CurrentUserID都是整型，不加引号行吗?我试试看

 

不过我在其它地方的代码中都加了的，也没有提示错误，而且也得到了我想要的结果，这是怎么回事呢？

还有就是为什么只提示RoleID冲突而不提示DepartID冲突呢？

哪位大侠指点一下嘛，解决不了，郁闷死了

我试试，谢谢狐爸

谢谢各位，感谢狐爸提醒，我今天终于找到问题所在，说起来还是一个比较低级的错误：

cmd2.commandtext="insert {TDepart_Roles} ([DepartID],[RoleID],[Remark],[CreaterID],[CreateTime]) Values('"& DID &"','"& RID &"','"& STR &"','"& CurrentUserID &"','"& date.today() &"')"

的位置不对，放到STR=TXT.value.trim() & "\" & lstR.items(i)语句之后就对了