主题：关于组合框列表项目的问题

 如下

 

  

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

点击浏览该文件:管理项目114.table

  那么将控件字体颜色设为绿色

If e.Value = "正常" Then
    e.form.Controls("xxx").ForeColor = Color.Green
Else
    e.form.Controls("xxx").ForeColor = Color.Red
End If

我想在选择文本框时直接全选文本框中的内容应该怎么写代码 ，就是一点文本框 ，文本框里的数据都蓝了

 编写enter事件

 

e.Sender.SelectAll

还得麻烦老师，现在遇到的问题实在是搞不明白了，打开窗口1显示最新年度的数据，现在打开如果子表没有数据会报错，还有就是打开窗口显示的数据不正确

 窗口的afterLoad事件加入代码

 

Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
cmb.ComboList = DataTables("年度应收").GetComboListString("供热年度", "客户编号 = '" & Tables("客户信息").Current("客户编号") & "'")
If cmb.ComboList > "" Then
    cmb.SelectedIndex = 0
    e.Form.Controls("Label15").Text = Tables("客户信息.年度应收").Current("面积应收")
    e.Form.Controls("textbox1").Visible = False
    e.Form.Controls("Label35").Visible = False
End If
If e.Form.controls("label17").text = "正常"
    e.form.Controls("label17").ForeColor = Color.Green
Else
    e.form.Controls("label17").ForeColor = Color.red
End If
e.Form.controls("Date1").value = Date.Today
e.Form.controls("label34").text = User.name
e.Form.controls("ComboBox2").text = "现金"
e.Form.controls("ComboBox3").text = "手开"

还是不行哦，你可以在打开窗口后试下点空间空白的地方，数据就都变了，而且组合框中和其他数据对不上点一下空白的才能变回来，我的想法是打开窗口后显示的是这个客户最新年度的数据比如他的最新年度是2013，其他的显示也是2013的数据。老师在帮忙看看是哪里不对

 

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

点击浏览该文件:管理项目115.rar

老师你能打开项目看看就知道什么问题了。现在还是没解决哦。