主题：[求助] 如何控制控件录入内容

1、使用什么命令可以控制某控件录入的内容 必须 在下拉的列表项目中存在的内容；如果没有则弹出提示？

此主题相关图片如下：360截图20170226143825383.jpg


此主题相关图片如下：360截图20170226143856483.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

 

Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()

For Each r As Row In Tables("未装机回访表").Rows
        
    If r.IsNull("派单日期")  Then
        r("等待装机时长") = Nothing
    Else
        Dim tp As TimeSpan
        tp = r("派单日期") -  dt
        r("等待装机时长") = tp.TotalSeconds() '真正的时段型数据要转换为秒数,才能存入时段列
    End If
   
End Select

此主题相关图片如下：360截图20170228182318228.jpg

Dim dt As DataTable = DataTables("未装机回访表")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")
trv.BuildTree(dt, "全部数据|区域|工单当前环节|装维人员姓名|工单时长")
trv.StopRedraw '停止绘制目录树

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
   
    If nd.Level = 0 Then '如果是二级节点
        nd.Text = "全部数据"
    End If
    If nd.Level = 1 Then '如果是二级节点
        nd.Text = nd.Text & "【"& dt.Compute("Count(区域)", " 区域 =  '" & nd.DataRow("区域") & "'  ") & "】"
    End If
    If nd.Level = 2 Then '如果是二级节点
        nd.Text = nd.Text & "【"& dt.Compute("Count(区域)", " 区域 =  '" & nd.DataRow("区域") & "' and 工单当前环节 =  '" & nd.DataRow("工单当前环节") & "'   ") & "】"
    End If
    If nd.Level = 3 Then '如果是二级节点
        nd.Text = nd.Text & "【"& dt.Compute("Count(区域)", " 区域 =  '" & nd.DataRow("区域") & "' and 工单当前环节 =  '" & nd.DataRow("工单当前环节") & "' and 装维人员姓名 =  '" & nd.DataRow("装维人员姓名") & "'  ") & "】"
    End If
    If nd.Level = 4 Then '如果是二级节点
        nd.Text = nd.Text & "【"& dt.Compute("Count(工单时长)", " 区域 =  '" & nd.DataRow("区域") & "' and 工单当前环节 =  '" & nd.DataRow("工单当前环节") & "' and 工单时长 =  '" & nd.DataRow("工单时长") & "' and 装维人员姓名 =  '" & nd.DataRow("装维人员姓名") & "'  ") & "】"
    End If
   
Next
trv.ResumeRedraw '恢复绘制目录树

 

 

此主题相关图片如下：360截图20170301192318663.jpg

在窗口的 AfterLoad 中写了以下这些代码

 

 

Dim tab = e.Form.Controls("TabControl1").basecontrol
tab.showtabs = False

If User.Group = "惠东龙门区域" Then
DataTables("装机工单清单表").LoadFIlter = "工单号 Is Null or (区域 = '龙门县' Or 区域 = '惠东县' ) "
DataTables("装机工单清单表").Load
Else
DataTables("装机工单清单表").LoadFIlter = ""
DataTables("装机工单清单表").Load
End If

Dim dt As DataTable = DataTables("装机工单清单表")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")
trv.BuildTree(dt, "全部数据|区域|工单当前环节|装维人员姓名|工单时长")
'trv1.BuildTree(dt1, "分公司类别|分公司","","编号")
'trv.Nodes.Insert("宽带割接回访表",0)
trv.StopRedraw '停止绘制目录树

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
   
    If nd.Level = 0 Then '如果是二级节点
        nd.Text = "全部数据"
    End If
    If nd.Level = 1 Then '如果是二级节点
        nd.Text = nd.Text & "【"& dt.Compute("Count(区域)", " 区域 =  '" & nd.DataRow("区域") & "'  ") & "】"
    End If
    If nd.Level = 2 Then '如果是二级节点
        nd.Text = nd.Text & "【"& dt.Compute("Count(区域)", " 区域 =  '" & nd.DataRow("区域") & "' and 工单当前环节 =  '" & nd.DataRow("工单当前环节") & "'   ") & "】"
    End If
    If nd.Level = 3 Then '如果是二级节点
        nd.Text = nd.Text & "【"& dt.Compute("Count(区域)", " 区域 =  '" & nd.DataRow("区域") & "' and 工单当前环节 =  '" & nd.DataRow("工单当前环节") & "' and 装维人员姓名 =  '" & nd.DataRow("装维人员姓名") & "'  ") & "】"
    End If
    If nd.Level = 4 Then '如果是二级节点
        nd.Text = nd.Text & "【"& dt.Compute("Count(工单时长)", " 区域 =  '" & nd.DataRow("区域") & "' and 工单当前环节 =  '" & nd.DataRow("工单当前环节") & "' and 工单时长 =  '" & nd.DataRow("工单时长") & "' and 装维人员姓名 =  '" & nd.DataRow("装维人员姓名") & "'  ") & "】"
    End If
   ' If nd.Level = 5 Then '如果是二级节点
    '    nd.Text = nd.Text
    'End If
   
Next
trv.ResumeRedraw '恢复绘制目录树