主题：重新编辑的单元格自动标记红色字体

老师我在项目的CurrentTableChanged事件写以下代码

设计步骤

一、设计下拉窗口

1、新建一个窗口，名为“窗口1”，窗口类型设置为“DropDownForm”。

2、窗口中插入一个TreeView(目录树)控件。

3、窗口的AfterLoad事件设置为：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("行政区域","省市|县市")

4、将刷新目录树按钮的代码设置为：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("行政区域","省市|县市")

5、TreeView(目录树)的NodeMouseClick事件代码设置为：

If e.Node.Level = 1 Then '如果单击的是第二层节点
    Dim tr As Row = Tables("客户").Current
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    tr("省市") = dr("省市")
    tr("县市") = dr("县市")
    tr("区号") = dr("区号")
    tr("邮编") = dr("邮编")
    e.Form.DropDownBox.Value = tr("县市") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
|    e.Form.DropDownBox.CloseDropdown()
End If

二、设计录入窗口

1、新建一个窗口，名为“窗口2”，窗口类型为“独立”。

2、插入几个输入框，分别绑定到各字段，其中县市列输入框是DropDownBox，其余各列是TextBox。

2、选择县市输入框，将其下拉窗口设置为“窗口1”：

三、在项目事件AfterOpenProject加入代码：

Tables("客户").Cols("县市").DropForm = "窗口1" '客户表的县市列也采用我们设计的下拉窗口输入数据。

此主题相关图片如下：1111.png

1、你目录树的点击事件，给表格赋值那里，写代码

vars("目录树") = true

2、datacolchanged事件，写代码

If e.datacol.name = "名称" Then

    If vars("目录树") = true Then

        e.datarow("记录") = "通过目录树填充"

    Else

        e.datarow("记录") = "手动填充"

    End If

    vars("目录树") = False

End If

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

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

另外，我在表B的DrawCell事件写以下代码，想实现当第五列为“手动”时，第二列用“手动”格式绘制单元格（即字体标记为红色），第五列为“自动”时，则第二列用“自动”格式绘制单元格。但以下代码有错，请老师指正

If e.Col.Name = "第二列" Then 

    If e.Row.IsNull(e.Col("第二列")) = False '且该列已经输入内容

        If e.Row(e.Col.Name) = "'手动'" Then '如果该列的值小于60

            e.Style = "手动" '那么用"不及格"样式绘制单元格

        ElseIf e.Row(e.Cole.Col("第二列")) = "'自动'" Then '如果单元格的值大于95

            e.Style = "自动" '那么用"优秀"样式绘制单元格

        End If

    End If

End If