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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 装箱单箱号的编程代码

共有20668人关注过本帖树形打印复制链接主题：装箱单箱号的编程代码

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57602 威望：0 精华：15 注册：2008/9/1 9:45:00

装箱单箱号的编程代码 发帖心情

Post By：2010/8/26 10:09:00 [显示全部帖子]

有没有什么代码可以不允许重置列的?

[此贴子已经被作者于2010-8-30 9:38:44编辑过]

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57602 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2010/8/26 10:32:00 [显示全部帖子]

以下是引用狐狸爸爸在2010-8-26 10:19:00的发言：

直接从菜单删除这个按钮

这个我知道,但是这个重置列的菜单我要留着,我想是这样的,我有一张表中的某一列不允许刷新.

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57602 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2010/8/26 10:46:00 [显示全部帖子]

以下是引用狐狸爸爸在2010-8-26 10:36:00的发言：

那就自己设计重置按钮的代码,判断选定的表和列，符合要求再重置。

if currenttable.Name = "xxx" AndAlso CurrentTable.Cols(CurrentTable.Colsel).Name = "yyy"

'不重置

Else

'重置

End If

一个,这个也放入菜单中吗?第二,不重置的代码怎么写?

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57602 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2010/8/26 10:52:00 [显示全部帖子]

或者:

If e.DataCol.Name = "开始箱号" Orelse e.DataCol.Name = "箱数" Then
    If e.DataRow.IsNull("开始箱号") = False Andalso e.DataRow.IsNull("箱数") = False Then
        e.DataRow("结束箱号") = e.DataRow("开始箱号") +e.DataRow("箱数") -1
    End If
End If

If e.DataCol.Name = "口岸" Orelse e.DataCol.Name = "箱数" Then
    If e.DataRow.IsNull("口岸") = False Andalso e.DataRow.IsNull("箱数") = False Then
        Dim dr As DataRow = DataTables("装箱单").Find("[IO] = '" & e.DataRow("IO") & "' And [口岸] = '" & e.DataRow("口岸") & "' And [结束箱号] > 0","_identify Desc")
        If dr IsNot Nothing Then
            e.DataRow("开始箱号") = dr("结束箱号")+1
        Else
            e.DataRow("开始箱号") = 1
        End If
    End If
End If

这一段代码,我一但刷新"箱数"列后,会重新再加一遍,而且"开始箱号"和"结束箱号"不再是连续箱号了.有没有什么代码可以将"箱数"列刷新后,开始箱号和结束箱号,自动按照连续箱号再计算一遍.