| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 开发版项目代码修改后，修改部分保存不上 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173222) |
| -- 作者：czy66ds -- 发布时间：2021/11/19 13:26:00 -- 开发版项目代码修改后，修改部分保存不上 近来，发现保存代码有误，修改后保存不上。360关了，狐表重装了。 |
| -- 作者：有点蓝 -- 发布时间：2021/11/19 13:37:00 -- 内部表还是外部表？是不是查询表？web数据源？写了什么保存代码，事件完整代码发上来看看 新建项目测试有没有问题
|
| -- 作者：czy66ds -- 发布时间：2021/11/19 13:42:00 -- 例如修改窗口中的控件“保存”代码 |
| -- 作者：czy66ds -- 发布时间：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 粉色的行不见了，斷条了 |
| -- 作者：有点蓝 -- 发布时间：2021/11/19 14:00:00 -- 哦，是指代码不见了，我还以为不能使用代码保存数据。 1、联系客服核对一下激活码 2、在Windows的桌面上右击Foxtable的快捷方式，在快捷菜单中的单击属性命令，然后在兼容性页面看看是不是勾选了“兼容模式”，去掉这个勾选
|
| -- 作者：czy66ds -- 发布时间：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 -- 发布时间：2021/11/19 14:14:00 -- 如何调出激活窗口？ |
| -- 作者：有点蓝 -- 发布时间：2021/11/19 14:56:00 -- 在狐表命令窗口输入 ActiveFoxtable，点击执行按钮 |