以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助：GetComboListString和Messagebox问题  (http://www.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
--  
两个分号整了我半天，谢谢狐狸爸爸！