主题：[原创]还是“会计科目”这个窗体

将DrawCell事件代码改为：

If e.Table.Name = "会计科目_Table1" AndAlso e.Row("科目_代码").length = 4 Then '如果正在绘制的是密码列
   e.Style = "ABC"
End If

就只在窗口生效，整行蓝色。

Forms("科目编辑").Controls("TextBox1").Value = Tables("会计科目_Table1").Current("科目_代码")