记录表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 记录表

共有9536人关注过本帖树形打印复制链接主题：记录表

Bin

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/5/15 9:35:00 [只看该作者]

楼主,你这是完全盲目复制代码,完全不管三七二十一的吗? 都大半年了,你这样毫不思考,只会复制,那怎么会进步.

首先,这个事件没有E.ROW 这些只有DATAROW

其次

DataColChanged要离开单元才会触发,离开单元格意味着你要按回车,或者点击其他单元格, 既然你点击了其他单元格,焦点又回到你点击的那个单元格上面去了.

Bin

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/5/15 9:36:00 [只看该作者]

要不就和你1楼说的那样,写到按钮里去. 输入完毕就点一下按钮

有点甜

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/5/15 9:45:00 [只看该作者]

以下是引用发财在2014-5-15 9:22:00的发言：
记录窗口内的线条如何加粗？

查了一下，这样改

Forms("窗口1").Controls("RecordGrid1").Basecontrol.styles.normal.Border.width = 10
Forms("窗口1").Controls("RecordGrid1").Basecontrol.styles.normal.Border.Color = Color.Red
Forms("窗口1").Controls("RecordGrid1").Basecontrol.styles.Fixed.border.width = 10
Forms("窗口1").Controls("RecordGrid1").Basecontrol.styles.Fixed.Border.Color = Color.Red

发财

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2014/5/15 10:18:00 [只看该作者]

If e.Table.DataTable.Compute("sum(第三列)","第一列='" & e.Row("第一列") & "'") >=1 Then

With CurrentTable

Dim r As Integer

r = .Find((cint(e.Row("第一列"))+1).ToString(), 0, "第一列", False, False, True)

If r > - 1 Then '如果找到符合条件的行

.Select(r,2,r,2)

End If

End With

.StartEditing

End If

如何修改代码放入按钮中

有点甜

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/5/15 10:41:00 [只看该作者]

如下

Dim cr As Row = CurrentTable.Current
If CurrentTable.DataTable.Compute("sum(第三列)","第一列='" & cr("第一列") & "'") >=1 Then
    With CurrentTable
        Dim r As Integer
        r = .Find((cint(cr("第一列"))+1).ToString(), 0, "第一列", False, False, True)
        If r > - 1 Then '如果找到符合条件的行
            .Select(r,2,r,2)
        End If
        .StartEditing
    End With
End If