以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助:GetComboListString和Messagebox问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15362)

--  作者:tyzh
--  发布时间:2011/12/22 12:40:00
--  求助:GetComboListString和Messagebox问题

1、下面是在ComboBox中,希望可选列表的内容是username对应的监室号和禁闭,请帮忙改一下或提供以下参考资料。cmb.ComboList = DataTables("管教和监室号").GetComboListString("监室号" , "主管管教 = \'" & user.name & "\'" Or "[主管管教] = \'禁闭")
2、在删除人员是提示是否删除的Messagebox对话框,希望为“确认把  张三 删除吗?”这样直观些,如何实现?

谢谢!


--  作者:czy
--  发布时间:2011/12/22 13:12:00
--  
Dim name As String = e.Form.Controls("ComboBox1").Value
If name <> "" Then
    Dim Result As DialogResult
    Result = MessageBox.Show("确定把 " & Name & " 删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        DataTables("表名").DeleteFor("姓名 = \'" & Name & "\'")       
    End If
End If

--  作者:tyzh
--  发布时间:2011/12/22 13:19:00
--  

谢谢,我刚琢磨出来滴2问,("您确定要把"& r("姓名") &" 删除吗?", "提示", MessageBoxButtons.YesNo,  MessageBoxIcon.Question)。第1问确实搞不出,两个条件如何合并到一起呢?


--  作者:czy
--  发布时间:2011/12/22 13:22:00
--  

你这样的提问别人怎么可能给你结合的出?

传文件吧。


--  作者:tyzh
--  发布时间:2011/12/22 13:42:00
--  

外部数据源,密码admin,谢谢

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:ry.rar


--  作者:狐狸爸爸
--  发布时间:2011/12/22 13:56:00
--  
cmb.ComboList = DataTables("管教和监室号").GetComboListString("监室号" , "主管管教 = \'" & user.name & "\' Or [主管管教] = \'禁闭\'")
--  作者:tyzh
--  发布时间:2011/12/22 14:13:00
--  
两个分号整了我半天,谢谢狐狸爸爸!