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

再请教一下：

我取消了“科目编辑”窗体上的控件与表的联系，出现以下问题：

1。加行，新内容加上了一行，但老的一行被去掉了，并且增加了一个新空行，行号上面还是红的

2。有个dropbox控件，只要借，贷二个选择，是不是一定要加个树文件？有没有更简单的方法？

3。点"撤销"按钮，要关闭本窗口，找不到用哪个语句。

 

“会计科目”窗体上，点“删除”键怎么能弹出选择窗，选“是”就删，选“否”就退回，这个怎么弄？

 

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

点击浏览该文件:新狐2.table

同感，建议狐总采取。

谢谢mr725，后二个解决了，还有二个问题：

1。取消“科目编辑”窗体上的控件与表的联系，这也是可以的吧，反正关系很简单，应该可以做的。但出现以下问题：

    加行，新内容加上了一行，但老的一行被去掉了，并且增加了一个新空行，行号上面还是红的

2。“会计科目”窗体上，点“删除”键怎么能弹出选择窗，选“是”就删，选“否”就退回，这个怎么弄？

四个问题都解决了。谢谢mr725。再提一个问题，所有仅四位数的行都显示为某种颜色，怎么弄法？

不是的,是在窗体中显示,而且是整行都一种颜色.

另外,"科目编辑"窗体打开时,如何读取当前表"科目_代码"的值,我写了如下代码,好像不行:

 

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

将DrawCell事件代码改为：

 

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

 

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

============

狐爸：

上述dtawcell事件在哪，没找到。

 

狐爸:

会计科目窗中，第一页“全部”页出现全部内容，第二页“资产类”页只出现第一位为1的内容。你上次给出的代码是代码只能一位数且为一的情况，不行：

 

Tables("会计科目_Table2").Filter = "某列  = 1"

 

我要的是无论代码为几位，只要第一位为1的都显示。

1。DrawCell，在我的窗体里用代码设置行吗？

2。如何设置窗口最大化，并且在窗口上加菜单？

谢谢。另外请教：

如果树和table二个控件在一个界面上，点击树中一个节点（如“华东\上海\西藏中路”），table控件上表的光标移到相应位置， 这个代码怎么写？

(注意，我的表是单字段树，如“华东\上海\西藏中路”是在一个字段上的。)