标题：可通用下拉目录树

1楼

1234567 发表于：2023/11/10 13:00:00

采用可通用下拉目录树，当我不同的表的对应的列名是不一样的，

比如

表1 tr("邮编") = dr("邮编")

表2 tr("邮政编码") = dr("邮编")

如果做到通用？

2楼

有点蓝 发表于：2023/11/10 13:39:00

http://www.foxtable.com/webhelp/topics/2112.htm

e.Form.DropDownBox.value = dr("邮编")

3楼

1234567 发表于：2023/11/10 14:41:00

错哪里了？

If Tables("窗口1_Table1").Current("外协") = True Then

Tables("窗口1_Table1").Cols("加工人").DropForm = "外协"

ElseIf Tables("窗口1_Table1").Current("外协") = False Then

Tables("窗口1_Table1").Cols("加工人").DropForm = "本公司"

End If

4楼

1234567 发表于：2023/11/10 14:44:00

AfterLoad事件下

5楼

程兴刚 发表于：2023/11/10 14:45:00

变量代替列名，什么表都可以！

6楼

有点蓝 发表于：2023/11/10 14:46:00

全错。prepareedit事件

if e.col.name = "加工人" then

if e.row("外协") then

e.col.DropForm = "外协"

else

e.col.DropForm = "本公司"

end if

7楼

1234567 发表于：2023/11/10 15:14:00

蓝老师，“外协”是逻辑列，下列代码中 = True 为什么可以省略？

If e.Row("外协") = True Then

8楼

有点蓝 发表于：2023/11/10 15:18:00

先理解一下if的用法就明白了：http://www.foxtable.com/webhelp/topics/0223.htm

单分支形式：

If 条件表达式 Then
代码
End If

如果条件表达式的计算结果为True，也就是条件成立的话，则执行代码。
例如在命令窗口输入下面的代码：

如果勾选了，那么e.Row("外协")的值就是true，符合条件【If true Then】。

【If e.Row("外协") = True Then】其实等于【If true = True Then】，也就是等于【If true Then】

9楼

1234567 发表于：2023/11/10 15:20:00

谢谢老师

共9 条记录, 每页显示 10 条, 页签: [1]