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


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

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

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


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

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

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2011/5/10 19:24:00 [只看该作者]

把按钮5的单击事件下的代码贴出来看看!

 回到顶部
帅哥哟,离线,有人找我吗?
huntkey
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2011/5/10 20:48:00 [只看该作者]

output.show(STR) 看看正常吗。

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:858 积分:6071 威望:0 精华:19 注册:2008/9/1 9:13:00
  发帖心情 Post By:2011/5/10 21:31:00 [只看该作者]

错误提示是这两句代码里面出的错误:

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

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

 

试试

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

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


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


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2011/5/10 23:58:00 [只看该作者]

是否是条件表达式的字符串连接符号&前后必须要空格隔开,楼主测试一下试试!


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


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

问题解决了

lxl说的是对的,谢谢


 回到顶部