主题：没学会也买开发版

那段代码放在哪里？

另外，可不可以针对所有数据表空白区域设置背景色，代码又怎么写？

不希望整行字体变红色,只超差的单元格生效,下面的代码如何改?

If e.Row("差异率") > 0.0003 Then
    e.Style = "超差"
End If

此主题相关图片如下：qq截图20130730101439.png

只差异率为0.0006的单元格字体变成红色.

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

学会了,代码改为:

Select Case e.Col.name

   Case "差异率"
If e.Row("差异率") > 0.0003 Then
    e.Style = "超差"
End If

End Select

杂七杂八事儿太多，狐表研发工作断断续续。

。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

小刺猬很专业，做的界面华丽丽，可做为标杆学习。

登录日期标签照帮助文件的方法做出来了，

登录账号标签挖了小刺猬文件里的代码，没仿出来：

小刺猬代码

Dim lbl As WinForm.DateTimePicker

lbl = e.Form.Controls("DateTimePicker1")

lbl.Value = Date.Today()

e.Form.Controls("姓名").Text = "登录账号: [" & Tables("账户管理").Current("用户账号") & "]"

e.Form.Controls("日期").Text = "登录日期: " & Date.Today()

本人的

Dim lbl As WinForm.Label

lbl = e.Form.Controls("Welcome")

lbl.Text = "今天是" & Date.Today() & ",Foxtable开发团队欢迎您!"

Dim lb2 As WinForm.Label

lb2 = e.Form.Controls("Label2")

lb2.Text = "登录日期:" & Date.Today()

Dim lb3 As WinForm.Label

lb3 = e.Form.Controls("Label1")

lb3.Text = "登录账号: ["

粉色这段代码怎么写？

学会了：lb3.Text = "登录账号: [" & User.Name & "]"

另外这段代码 BeautifyControls(e.Form,"TextBox1,TextBox2")用于窗口里两个文本框控件(背景透明效果）怎么就不行呢？

附件借用了论坛狐友的窗口练习，在此谢谢。

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

点击浏览该文件:绘制标签.foxdb

oh,my gad!

这么复杂，不抄袭大神，业余的怎么弄得出来！

我说呢，窗口事件代码那么一小段，没看到哪与下划线有关联，却出下划线效果，不科学啊。

哦，还真没碰过这一块。

例子是三个控件，如果两个控件，代码是否通用？那么多代码，够挖一阵子！

控件美化问题通了。

登录账号标签问题没解决，另开一贴求助？