主题：如何将Datetable中单元格的加载到窗口的label中

Dim a As String=Tables("产品报价单").Current("部件名称")
Forms("通用规格设计器").controls("部件名称").Value = a
Dim b As DataRow
b = DataTables("部件结构表").Find("部件名称 = '"&  a & "'")
If b IsNot Nothing Then
    Forms("通用规格设计器").controls("属性1").Value = b("取值列名")
End If

你的错误不是一点点，甚至可以说一塌糊涂。

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。三遍之后才开始做系统，遇到问题在帮助找答案，找不到的在论坛提问。
此外一定要先掌握《使用指南》，然后再看《开发指南》