Foxtable(狐表)用户栏目专家坐堂 → [求助]这个错误代码是什么意思?


  共有12144人关注过本帖树形打印复制链接

主题:[求助]这个错误代码是什么意思?

帅哥哟,离线,有人找我吗?
huntkey
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:81 积分:636 威望:0 精华:0 注册:2011/4/16 10:01:00
[求助]这个错误代码是什么意思?  发帖心情 Post By:2011/5/10 19:20:00 [显示全部帖子]

这个错误代码是什么意思?
图片点击可在新窗口打开查看此主题相关图片如下:无标题.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
huntkey
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:81 积分:636 威望:0 精华:0 注册:2011/4/16 10:01:00
  发帖心情 Post By:2011/5/10 19:47:00 [显示全部帖子]

 

Depart_RoleFrm_Button5_Click

 

'===============================取得机构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 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="inser into {TDepart_Roles} ([DepartID],[RoleID],[Remark],[CreaterID],[CreateTime]) Values('"& DID &"','"& Rid &"','"& STR &"','"& CurrentUserID &"','"& date.today() &"')"

dt1=cmd1.executereader()

 

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

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

    RID=dr1("ID")

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

    lstDR.items.add(STR)

Next

[此贴子已经被作者于2011-5-10 21:11:55编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
huntkey
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:81 积分:636 威望:0 精华:0 注册:2011/4/16 10:01:00
  发帖心情 Post By:2011/5/11 21:36:00 [显示全部帖子]

问题解决了

lxl说的是对的,谢谢


 回到顶部