Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于窗口的问题


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

主题：关于窗口的问题
帅哥哟，离线，有人找我吗？
hongyefor
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00 		关于窗口的问题  发帖心情 Post By：2015/7/14 17:05:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：问题.jpg
图片点击可在新窗口打开查看

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table

1、现在窗口中表A是不可编辑的，当点击窗口中表A的任何一行，能让TextBox1同时显示（不能用绑定），请问该怎么写这个代码，写在哪里？

2、按键修改的意思是当TextBox1显示后，点击TextBox1，然后在其显示的数据上进行修改，修改好后按修改作为确认并写入，请问该怎么写这个代码？
 回到顶部
帅哥哟，离线，有人找我吗？
hongyefor
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00 		  发帖心情 Post By：2015/7/14 17:59:00 [显示全部帖子]

不是我想要的，我这里有两个按键，

一个是增加 它的作用是当TextBox1输入数据时，点击增加，A表自动增加一行数据，然后将TextBox1的数据填入A表

还有一个是修改 它的作用是当点击窗口中表A时，将当前行的数据显示给TextBox1，然后可以在TextBox1，最后点击修改后写入表A当前行
 回到顶部
帅哥哟，离线，有人找我吗？
hongyefor
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00 		  发帖心情 Post By：2015/7/14 18:07:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试项目2.table

传错了，帮忙改一下吧

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


加好友 发短信
等级：二尾狐 帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00 		  发帖心情 Post By：2015/7/15 14:06:00 [显示全部帖子]

这个代码好像不对

应该表事件里有问题

我的新增按键代码如下：

Dim nr As Row = Tables("表A").AddNew
 nr("第一列") = e.Form.Controls("TextBox1").Text

修改按键代码如下：

If Tables("表A").Current IsNot Nothing Then
Tables("表A").Current("第一列") =e.Form.Controls("TextBox1").Text
   End If

表事件代码如下：

If Forms("窗口1").Opened Then
    If e.Table.Current IsNot Nothing Then
        Forms("窗口1").controls("Textbox1").Text = e.Table.Current("第一列")
    End If
End If

 

出来的结果是，新增按键只增加行，第二行代码无效，修改代码有效

 

如果把事件代码去掉后，按键代码都有效，但是TextBox1显示无效（不是跟着行走）

 

以上窗口代码都没有写

 

有什么办法解决吗？

 

而且如果加了表事件，TextBox1显示的是已经录入的数据，但是我要求空白

[此贴子已经被作者于2015/7/15 14:08:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hongyefor
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00 		  发帖心情 Post By：2015/7/15 14:16:00 [显示全部帖子]

那怎么样让TextBox1初始显示为空啊

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


加好友 发短信
等级：二尾狐 帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00 		  发帖心情 Post By：2015/7/15 14:40:00 [显示全部帖子]

呃，不知道放哪里图片点击可在新窗口打开查看

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


加好友 发短信
等级：二尾狐 帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00 		  发帖心情 Post By：2015/7/15 14:51:00 [显示全部帖子]

没有用，去掉了也这样

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


加好友 发短信
等级：二尾狐 帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00 		  发帖心情 Post By：2015/7/15 15:03:00 [显示全部帖子]

afterload事件里有别的事件代码，和这个无关的

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


加好友 发短信
等级：二尾狐 帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00 		  发帖心情 Post By：2015/7/15 15:26:00 [显示全部帖子]

呃，没反应图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
hongyefor
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00 		  发帖心情 Post By：2015/7/15 15:49:00 [显示全部帖子]

e.Form.Controls("生产客户").Text = Nothing

Dim t As Table = Tables("企业信息")
If t.Current IsNot Nothing Then
    If t.Current.IsNull("企业名称") Then
        e.Form.Controls("TextBox1").Visible = True
        e.Form.Controls("企业名称").Visible = False
    Else
        e.Form.Controls("TextBox1").Visible = False
        e.Form.Controls("企业名称").Visible = True
    End If
    If t.Current.IsNull("地址") Then
        e.Form.Controls("TextBox2").Visible = True
        e.Form.Controls("企业地址").Visible = False
    Else
        e.Form.Controls("TextBox2").Visible = False
        e.Form.Controls("企业地址").Visible = True
    End If
    If t.Current.IsNull("联系电话") Then
        e.Form.Controls("TextBox3").Visible = True
        e.Form.Controls("企业电话").Visible = False
    Else
        e.Form.Controls("TextBox3").Visible = False
        e.Form.Controls("企业电话").Visible = True
    End If
    If t.Current.IsNull("传真") Then
        e.Form.Controls("TextBox4").Visible = True
        e.Form.Controls("企业传真").Visible = False
    Else
        e.Form.Controls("TextBox4").Visible = False
        e.Form.Controls("企业传真").Visible = True
    End If
    If t.Current.IsNull("企业税号") Then
        e.Form.Controls("TextBox5").Visible = True
        e.Form.Controls("企业税号").Visible = False
    Else
        e.Form.Controls("TextBox5").Visible = False
        e.Form.Controls("企业税号").Visible = True
    End If
    If t.Current.IsNull("开户银行") Then
        e.Form.Controls("TextBox6").Visible = True
        e.Form.Controls("开户银行").Visible = False
    Else
        e.Form.Controls("TextBox6").Visible = False
        e.Form.Controls("开户银行").Visible = True
    End If
    If t.Current.IsNull("银行账号") Then
        e.Form.Controls("TextBox7").Visible = True
        e.Form.Controls("银行账号").Visible = False
    Else
        e.Form.Controls("TextBox7").Visible = False
        e.Form.Controls("银行账号").Visible = True
    End If
    If t.Current.IsNull("银行行号") Then
        e.Form.Controls("TextBox8").Visible = True
        e.Form.Controls("银行行号").Visible = False
    Else
        e.Form.Controls("TextBox8").Visible = False
        e.Form.Controls("银行行号").Visible = True
    End If
    If t.Current.IsNull("法人代表") Then
        e.Form.Controls("TextBox9").Visible = True
        e.Form.Controls("法人代表").Visible = False
    Else
        e.Form.Controls("TextBox9").Visible = False
        e.Form.Controls("法人代表").Visible = True
    End If
    If t.Current.IsNull("企业英文名称") Then
        e.Form.Controls("TextBox11").Visible = True
        e.Form.Controls("英文名称").Visible = False
    Else
        e.Form.Controls("TextBox11").Visible = False
        e.Form.Controls("英文名称").Visible = True
    End If
    If t.Current.IsNull("企业英文地址") Then
        e.Form.Controls("TextBox10").Visible = True
        e.Form.Controls("英文地址").Visible = False
    Else
        e.Form.Controls("TextBox10").Visible = False
        e.Form.Controls("英文地址").Visible = True
    End If
    If t.Current.IsNull("营业执照正本") Then
        e.Form.Controls("红1").Visible = True
        e.Form.Controls("绿1").Visible = False
        e.Form.Controls("Button3").Visible = True
        e.Form.Controls("Button5").Visible = False
    Else
        e.Form.Controls("红1").Visible = False
        e.Form.Controls("绿1").Visible = True
        e.Form.Controls("Button3").Visible = False
        e.Form.Controls("Button5").Visible = True
    End If
    If t.Current.IsNull("营业执照副本") Then
        e.Form.Controls("红2").Visible = True
        e.Form.Controls("绿2").Visible = False
        e.Form.Controls("Button4").Visible = True
        e.Form.Controls("Button12").Visible = False
    Else
        e.Form.Controls("红2").Visible = False
        e.Form.Controls("绿2").Visible = True
        e.Form.Controls("Button4").Visible = False
        e.Form.Controls("Button12").Visible = True
    End If
    If t.Current.IsNull("税务登记证正本") Then
        e.Form.Controls("红3").Visible = True
        e.Form.Controls("绿3").Visible = False
        e.Form.Controls("Button6").Visible = True
        e.Form.Controls("dltsw1").Visible = False
    Else
        e.Form.Controls("红3").Visible = False
        e.Form.Controls("绿3").Visible = True
        e.Form.Controls("Button6").Visible = False
        e.Form.Controls("dltsw1").Visible = True
    End If
    If t.Current.IsNull("税务登记证副本") Then
        e.Form.Controls("红6").Visible = True
        e.Form.Controls("绿6").Visible = False
        e.Form.Controls("Button9").Visible = True
        e.Form.Controls("dltsw2").Visible = False
    Else
        e.Form.Controls("红6").Visible = False
        e.Form.Controls("绿6").Visible = True
        e.Form.Controls("Button9").Visible = False
        e.Form.Controls("dltsw2").Visible = True
    End If
    If t.Current.IsNull("企业代码证正本") Then
        e.Form.Controls("红4").Visible = True
        e.Form.Controls("绿4").Visible = False
        e.Form.Controls("Button7").Visible = True
        e.Form.Controls("dltdm1").Visible = False
    Else
        e.Form.Controls("红4").Visible = False
        e.Form.Controls("绿4").Visible = True
        e.Form.Controls("Button7").Visible = False
        e.Form.Controls("dltdm1").Visible = True
    End If
    If t.Current.IsNull("企业代码证副本") Then
        e.Form.Controls("红7").Visible = True
        e.Form.Controls("绿7").Visible = False
        e.Form.Controls("Button10").Visible = True
        e.Form.Controls("dltdm2").Visible = False
    Else
        e.Form.Controls("红7").Visible = False
        e.Form.Controls("绿7").Visible = True
        e.Form.Controls("Button10").Visible = False
        e.Form.Controls("dltdm2").Visible = True
    End If
    If t.Current.IsNull("开户许可证") Then
        e.Form.Controls("红5").Visible = True
        e.Form.Controls("绿5").Visible = False
        e.Form.Controls("Button8").Visible = True
        e.Form.Controls("dltkh1").Visible = False
    Else
        e.Form.Controls("红5").Visible = False
        e.Form.Controls("绿5").Visible = True
        e.Form.Controls("Button8").Visible = False
        e.Form.Controls("dltkh1").Visible = True
    End If
End If

Dim Bar As WinForm.NavBar
Bar = e.Form.Controls("任务窗口")
Bar.SelectedIndex = 0
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询