主题：控件锚定

我昨天换了另外一个显示器 发现我设计的窗口大了 后来我重新设置1024*768规格的窗口 把控件锚定（三边 四边 两边都试过）就是不能最大化时控件与表格跟着同比显示

1、某一个容器，停靠设置成fill；

 

2、然后里面的控件，锚定设置一下即可。

 

3、不可能每个容器或控件都能同比显示的啊。

 

自适应参考，http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=75714&replyID=521954&skin=1

 

不会做，就上传例子。

这个暂时不管它 我想请您帮个忙看看 这个情况是什么原因 目录树：

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "所有订单" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[车牌] = '" & dr("车牌") & "'"
        Case 1
            Filter = "[车牌] = '" & dr("车牌") & "' And [司机] = '" & dr("司机") & "'"
        Case 2
            Filter = "[车牌] = '" & dr("车牌") & "' And [司机] = '" & dr("司机") & "' And [项目] = '" & dr("项目") & "'"
    End Select
End If
Tables("配载订单").Filter = Filter

afterLoad ：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("配载订单", "车牌|司机|项目")
trv.Nodes.Insert("所有订单",0)

有时候一级目录是司机 有时候是车牌  为什么不稳定

 

 

另外我在刷新按钮加了时间选择

Dim sd As WinForm.DateTimePicker
Dim ed As WinForm.DateTimePicker
sd = e.Form.Controls("DateTimePicker1")
ed = e.Form.Controls("DateTimePicker2")
Dim cpbh As String = e.Form.Controls("项目").Value
 If cpbh = "" Then
DataTables("配载订单").LoadFilter=" [出车日期] >= #" & sd.Value & "#  and [出车日期] <= #" & ed.Value & "#"
DataTables("配载订单").Load

Else
DataTables("配载订单").LoadFilter=" [出车日期] >= #" & sd.Value & "#  and [出车日期] <= #" & ed.Value & "# and [项目] like '%" & cpbh & "%' "
DataTables("配载订单").Load
End If
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("配载订单", "司机|项目|客户")
trv.Nodes.Insert("所有订单",0)

 我还想这样的：

Dim sd As WinForm.DateTimePicker
Dim ed As WinForm.DateTimePicker
sd = e.Form.Controls("DateTimePicker1")
ed = e.Form.Controls("DateTimePicker2")

Dim cpbh As String = e.Form.Controls("项目").Value

If sd and ed is null then

messagebox.show("请选定日期再刷新")

 elseIf cpbh = "" Then
DataTables("配载订单").LoadFilter=" [出车日期] >= #" & sd.Value & "#  and [出车日期] <= #" & ed.Value & "#"
DataTables("配载订单").Load

Else
DataTables("配载订单").LoadFilter=" [出车日期] >= #" & sd.Value & "#  and [出车日期] <= #" & ed.Value & "# and [项目] like '%" & cpbh & "%' "
DataTables("配载订单").Load
End If
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("配载订单", "司机|项目|客户")
trv.Nodes.Insert("所有订单",0)

 报错 要怎样改 

对了 我上传过实例给您 不知道您删了没有 那个计算运费与点费 需求奇葩的那个

 

代码没问题

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("配载订单", "车牌|司机|项目")
trv.Nodes.Insert("所有订单",0)

 

你在刷新的地方又换了

 

trv.BuildTree("配载订单", "司机|项目|客户")

 

----------------------------------------

 

报错，报什么错啊

 

 

这么华丽丽的出现错误 自己这么粗心 那个报错是报不支持null 要换成 System.DBNull 换了之后报DBNull 是System中的类型不能用作表达式

应该是我语法不对 我想如果是未选定日

期 按刷新键 默认刷新当天数据

Dim sd As WinForm.DateTimePicker
Dim ed As WinForm.DateTimePicker
sd = e.Form.Controls("DateTimePicker1")
ed = e.Form.Controls("DateTimePicker2")
Dim cpbh As String = e.Form.Controls("项目").Value
Dim kr As Date = sd.Value
Dim re As Date = ed.value
If kr = ""  And re = ""  Then
Dim dtrq As Date = Date.Today()
DataTables("配载订单").LoadFilter=" [出车日期] = #" & dtrq & "# "
DataTables("配载订单").Load
 ElseIf cpbh = "" Then
DataTables("配载订单").LoadFilter=" [出车日期] >= #" & sd.Value & "#  and [出车日期] <= #" & ed.Value & "#"
DataTables("配载订单").Load

Else
DataTables("配载订单").LoadFilter=" [出车日期] >= #" & sd.Value & "#  and [出车日期] <= #" & ed.Value & "# and [项目] like '%" & cpbh & "%' "
DataTables("配载订单").Load
End If

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("配载订单", "车牌|司机|项目")
trv.Nodes.Insert("所有订单",0)

 

data 不能转换为“”

Dim sd As WinForm.DateTimePicker
Dim ed As WinForm.DateTimePicker
sd = e.Form.Controls("DateTimePicker1")
ed = e.Form.Controls("DateTimePicker2")
Dim cpbh As String '= e.Form.Controls("项目").Value

Dim filter As String = "1=1"
If sd.Value <> Nothing Then
    filter &= " and 出车日期 >= #" & sd.value & "#"
End If
If ed.Value <> Nothing Then
    filter &= " and 出车日期 <= #" & ed.value & "#"
End If
If cpbh <> "" Then
    filter &= " and [项目] like '%" & cpbh & "%' "
End If
If ed.value = Nothing AndAlso sd.value = Nothing Then
    filter &= " and 出车日期 = #" & Date.today & "#"
End If
DataTables("配载订单").LoadFilter=filter
DataTables("配载订单").Load
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("配载订单", "车牌|司机|项目")
trv.Nodes.Insert("所有订单",0)