标题：多表通用
If e.form.controls("checkbox1").checked = False Then
Dim tbl As Table = Tables("设计_Table1")
If tbl.Current IsNot Nothing Then
Tables("生产管理_Table01").Current("设计") = tbl.Current("设计") 希望跟帮助文件《编写通用的下拉目录树》 一样， 用哪个属性参数可以知道是什么表的什么列打开了Forms("设计").窗口，并给与赋值？
End If
Forms("设计").Close()
End If
CellButtonClick
If e.Col.Name = "设计" Then
e.Cancel = True
Forms("设计").Open()
End If
e.Cancel = True
Forms("设计").Open()
End If
If e.form.controls("checkbox1").checked = False Then
Dim tbl As Table = Tables("设计_Table1")
If tbl.Current IsNot Nothing andalso vars("表列") > "" Then
dim ss() as string = vars("表列").split("|")
Tables(ss(0)).Current(ss(1)) = tbl.Current("设计") 希望跟帮助文件《编写通用的下拉目录树》 一样， 用哪个属性参数可以知道是什么表的什么列打开了Forms("设计").窗口，并给与赋值？
End If
Forms("设计").Close()
End If
改为DropDownForm窗口
Tables("设计_Table1")的表事件Click
Dim tbl As Table = Tables("设计_Table1")
Dim tr As Row
tr = e.Form.DropTable.Current '获取此表的当前行
If tbl.Current IsNot Nothing Then
tr("设计") = tbl.Current("设计") 为什么没有执行
End If
e.Form.DropDownBox.CloseDropdown()
tr("设计") = tbl.Current("设计") 为什么没有执行
End If
Dim tbl As Table = Tables("设计_Table1")
Dim tr As Row
tr = e.Form.DropTable.Current '获取此表的当前行
msgbox(tbl.Current IsNot Nothing) 显示True
msgbox(tbl.Current("设计")) 显示张三
If tbl.Current IsNot Nothing Then
tr("设计") = tbl.Current("设计")
msgbox(tr("设计")) 显示张三，但实际表格中未显示
End If
e.Form.DropDownBox.CloseDropdown()
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目9.table |
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.value = tbl.Current("设计") 为什么没有执行
End If
e.Form.DropDownBox.CloseDropdown()