Foxtable(狐表)用户栏目专家坐堂 → 绑定字段未生成


  共有1579人关注过本帖树形打印复制链接

主题:绑定字段未生成

美女呀,离线,留言给我吧!
漂亮美眉vszh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:870 积分:7870 威望:0 精华:0 注册:2013/5/30 11:27:00
绑定字段未生成  发帖心情 Post By:2016/10/21 15:29:00 [只看该作者]

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


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107479 积分:546674 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/21 15:44:00 [只看该作者]

调用一下WriteValue试试

Dim Label1 As WinForm.Label = e.Form.Controls("Label1")
Label1.Text = "24324"
Label1.WriteValue

 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:870 积分:7870 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2016/10/21 16:11:00 [只看该作者]

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

 

 

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()


图片点击可在新窗口打开查看此主题相关图片如下:4.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107479 积分:546674 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/21 16:24:00 [只看该作者]

不是绑定的吗,在给label4赋值的时候调用label4.WriteValue

不行就上例子吧

 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:870 积分:7870 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2016/10/22 11:41:00 [只看该作者]

子表  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


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107479 积分:546674 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/22 14:06:00 [只看该作者]

弹出下拉的时候单元格处于编辑状态,无法赋值,这样

Dim tb2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim tb3 As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim cb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
e.Form.DropDownBox.value = tb2.value & cb1.value & tb3.value
e.Form.Close()

话说,这个有必要做下拉吗,直接表格录入前面3个值,自动计算得出规格更方便,还要点击打开下拉再点击保存,凭空多几个步骤

 回到顶部