Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口如何关联显示相关内容


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

主题:[求助]窗口如何关联显示相关内容

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/9 15:25:00 [显示全部帖子]

1、控件只要绑定对了表、列,就直接跟随你的选择的行改变的啊。

 

2、去编写prepareEdit或者startEdit 事件

 

If e.Col.Name = "订单数量" Then

    e.Cancel = True

End If


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/9 15:37:00 [显示全部帖子]

定位一下 订单表 的某行数据

 

CurrentChanged事件

 

http://www.foxtable.com/webhelp/scr/0553.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/9 15:39:00 [显示全部帖子]

看5楼,定位对应的订单的行,就能看到对应的数据。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/9 20:31:00 [显示全部帖子]

把右边的,左右上下的控件,全部放在一个大窗口里,这样利于排版。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/9 21:05:00 [显示全部帖子]

 把整体放在一个窗口里去。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/9 21:17:00 [显示全部帖子]

 去编写CurrentChanged事件,把Links的内容清空,然后重新加入新的值,不就行了?

 

 尽量用实例说明。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/10 9:20:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/14 12:46:00 [显示全部帖子]

IF CurrentTable.Cols.Contains("已结账") Then 

 

End If


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/15 18:21:00 [显示全部帖子]

Dim y As Integer = 2016
Dim m As Integer = 8
For Each name As String In DataTables("员工资料表").GetValues("姓名")
    For i As Integer = 1 To Date.DaysInMonth(y, m)
        Dim d As Date = new Date(y, m, i)
        Dim drs As List(Of DataRow) = DataTables("员工工资表").Select( "姓名 = '" & name & "' and 日期=#" & d & "#")
        If drs.Count = 0 Then
            Dim dr As DataRow = DataTables("表a").AddNew()
            dr("姓名") = name
            dr("日期") = d
        ElseIf drs.Count > 1 Then
            For j As Integer = 1 To drs.Count - 1
                drs(j).Delete
            Next
        End If
    Next
Next

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/15 20:26:00 [显示全部帖子]

 回复29楼,正确。

 回到顶部
总数 12 1 2 下一页