各位老师：例的绑定了“特性规格”字段，最后一张图绑定后，并没有在单元格内显示期值，不知道是什么原因？特性规格=上公差三个单元格相连接  边上的“公差特点”就行，不知道问题点出在哪儿了，麻烦各位老师帮我看下，谢谢~~

此主题相关图片如下：1.png


此主题相关图片如下：2.png


此主题相关图片如下：3.png

蓝老师，代码我写在 按钮内的，自己做的“保存并关闭”可结果还是不对

Dim tb2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim tb4 As WinForm.TextBox = e.Form.Controls("TextBox4")
Dim lb4 As WinForm.Label = e.Form.Controls("Label4")
If tb4.text = Nothing Then
Tables("APQP特性项目主表.APQP项目").current("公差特点") = "单侧"
Tables("APQP特性项目主表.APQP项目").current("特性规格") = lb4.text
Else
Tables("APQP特性项目主表.APQP项目").current("公差特点") = "双侧"
Tables("APQP特性项目主表.APQP项目").current("特性规格") = lb4.text
End If
\'Dim Label1 As WinForm.Label = e.Form.Controls("Label1")
\'Label1.Text = "24324"
tb2.WriteValue
tb4.WriteValue
Tables("APQP项目").save()
e.Form.Close()

子表  DATACOLCHANGED 中的代码

Select Case e.DataCol.name
Case "上下"
        \'If e.DataRow("特性分类").Chars(0) = "N" Then
         \'   If e.DataRow("公差上下") IsNot Nothing Then
                If e.DataRow("上下") IsNot Nothing Then
                    e.DataRow("特性规格") = e.DataRow("上上") & e.DataRow("上符号") & e.DataRow("上下")
              \'  Else
               \'     e.DataRow("特性规格") =  e.DataRow("公差上上") & e.DataRow("公差上符") & e.DataRow("公差上下")  & "/" &  e.DataRow("公差下上") & e.DataRow("公差下符") & e.DataRow("公差下下")
               \' End If
            Else
                e.DataRow("特性规格") = Nothing
          \'  End If
        End If
End Select

下拉后，就是会出来，可是一闪又不见了，查不出原因，做了例 子，在窗口一下面一张关联表内，谢谢老师

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

点击浏览该文件:下拉.foxdb