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

多加一列，记录是怎么输入的。比如你通过目录树赋值的，就在附加的列那里标记，【是目录树赋值的】。然后编写drawcell事件，设置样式。

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

回复12楼，这种时候，你目录树就需要用下来窗口了

http://www.foxtable.com/webhelp/scr/2350.htm

NodeMouseClick事件代码，看看这里

http://www.foxtable.com/webhelp/scr/2893.htm

代码改成

Dim tr As Row
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
If e.Form.DropTable IsNot Nothing Then '如果下拉窗口是从表中打开
    tr = e.Form.DropTable.Current '获取此表的当前行
Else '如果下拉窗口是通过DropdownBox打开
    Dim nm As String = e.Form.DropDownBox.BindingField '获取绑定的字段
    nm = nm.Split(".")(0) '获取绑定的表名
    tr = Tables(nm).Current '获取此表的当前行
End If
tr("第二列") = dr("第一列")
tr("第三列") = dr("第二列")
tr("第四列") = dr("第三列")
e.Form.DropDownBox.Value = tr("第二列") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
e.Form.DropDownBox.CloseDropdown()