Foxtable(狐表) → 用户栏目 → 专家坐堂 → 开发版项目代码修改后，修改部分保存不上


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

主题：开发版项目代码修改后，修改部分保存不上
帅哥哟，离线，有人找我吗？
czy66ds
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1684 积分：16374 威望：0 精华：0 注册：2013/7/31 13:03:00 		开发版项目代码修改后，修改部分保存不上  发帖心情 Post By：2021/11/19 13:26:00 [只看该作者]

近来，发现保存代码有误，修改后保存不上。360关了，狐表重装了。

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


加好友 发短信
等级：超级版主 帖子：107739 积分：548028 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/19 13:37:00 [只看该作者]

内部表还是外部表？是不是查询表？web数据源？写了什么保存代码，事件完整代码发上来看看

新建项目测试有没有问题
 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1684 积分：16374 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2021/11/19 13:42:00 [只看该作者]

例如修改窗口中的控件“保存”代码

 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1684 积分：16374 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2021/11/19 13:54:00 [只看该作者]

例如
Dim cmd As new SQLCommand
cmd.ConnectionName = conn
'------POS窗口控件-------------------------------------------------
Dim T1 As Table = Forms(posckm).Controls("Table1").Table 'POS明细表
Dim r As Row 'POS明细表的行
Dim TB1 As WinForm.TextBox = Forms(posckm).Controls("TextBox1") '单号
Dim TB3 As WinForm.TextBox = Forms(posckm).Controls("TextBox3") ' 备注
Dim DTP1 As WinForm.DateTimePicker = Forms("POS").Controls("DateTimePicker1")
Dim CmB1 As WinForm.ComboBox = Forms(posckm).Controls("ComboBox1") '销售方式
Dim CmB2 As WinForm.ComboBox = Forms(posckm).Controls("ComboBox2") '营业员
Dim NC2 As WinForm.NumericComboBox = Forms("POS").Controls("NumericComboBox2") '原价总额
'本窗口控件
Dim cmb11 As WinForm.ComboBox = e.Form.Controls("ComboBox1") ' 领导姓名
Dim TB11 As WinForm.TextBox = e.Form.Controls("TextBox1") ' 受赠者姓名
Dim TB22 As WinForm.TextBox = e.Form.Controls("TextBox1") ' 受赠者姓名
Dim BT2 As WinForm.Button = e.Form.Controls("Button2") '确定按钮
If TB11.value = Nothing Then
    MessageBox.Show("请输入受赠者姓名!","提示")
    Return
End If

保存后再打开就成这样了


cmd.ConnectionName = conn
'------POS窗口控件-------------------------------------------------

Dim T1 As Table = Forms(posckm).Controls("Table1").Table 'POS明细表
Dim r As Row 'POS明细表的行
Dim TB1 As WinForm.TextBox = Forms(posckm).Controls("TextBox1") '单号
Dim TB3 As WinForm.TextBox = Forms(posckm).Controls("TextBox3") ' 备注

Dim CmB1 As WinForm.ComboBox = Forms(posckm).Controls("ComboBox1") '销售方式
Dim CmB2 As WinForm.ComboBox = Forms(posckm).Controls("ComboBox2") '营业员
Dim NC2 As WinForm.NumericComboBox = Forms("POS").Controls("NumericComboBox2") '原价总额
'本窗口控件
Dim cmb11 As WinForm.ComboBox = e.Form.Controls("ComboBox1") ' 领导姓名
Dim TB11 As WinForm.TextBox = e.Form.Controls("TextBox1") ' 受赠者姓名

Dim BT2 As WinForm.Button = e.Form.Controls("Button2") '确定按钮
If TB11.value = Nothing Then
    MessageBox.Show("请输入受赠者姓名!","提示")
    Return
End If

粉色的行不见了，斷条了
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107739 积分：548028 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/19 14:00:00 [只看该作者]

哦，是指代码不见了，我还以为不能使用代码保存数据。

1、联系客服核对一下激活码
2、在Windows的桌面上右击Foxtable的快捷方式，在快捷菜单中的单击属性命令，然后在兼容性页面看看是不是勾选了“兼容模式”，去掉这个勾选

 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1684 积分：16374 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2021/11/19 14:01:00 [只看该作者]

打错了
Dim TB22 As WinForm.TextBox = e.Form.Controls("TextBox1") ' 受赠者姓名
应为
Dim TB22 As WinForm.TextBox = e.Form.Controls("TextBox2") ' 备注
 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1684 积分：16374 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2021/11/19 14:14:00 [只看该作者]

如何调出激活窗口？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107739 积分：548028 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/19 14:56:00 [只看该作者]

在狐表命令窗口输入 ActiveFoxtable，点击执行按钮

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询