共7 条记录, 每页显示 10 条, 页签: [1]

标题：求助：GetComboListString和Messagebox问题

1楼

tyzh 发表于：2011/12/22 12:40:00

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

谢谢！

2楼

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

3楼

tyzh 发表于：2011/12/22 13:19:00

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

4楼

czy 发表于：2011/12/22 13:22:00

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

传文件吧。

5楼

tyzh 发表于：2011/12/22 13:42:00

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:ry.rar

6楼

狐狸爸爸 发表于：2011/12/22 13:56:00

cmb.ComboList = DataTables("管教和监室号").GetComboListString("监室号" , "主管管教 = '" & user.name & "' Or [主管管教] = '禁闭'")

7楼

tyzh 发表于：2011/12/22 14:13:00

两个分号整了我半天，谢谢狐狸爸爸！

共7 条记录, 每页显示 10 条, 页签: [1]